[open-cobol-list] cobc bug of sorts (0.33 tarball)

[Rich Painter]

if one does not compile (configure) cobc with --with-db (or --with-db1) the 
fileio_funcs structure will not be initialized with the db function addresses.

however, if one uses indexed file io in the cobol source it will generate code 
to use indexed file io and cause a segmentation fault at program runtime. 
specifically, "organization == 3" is still used as an index into fileio_funcs[] 
producing a 0 as the function address to call whereby it seg faults.

if the "db" function support is not configured in cobc then an error should be 
emitted when cobc compiles cobol that needs indexed files and never produce code 
that will seg fault.

rich
--

+---------------------------------------------------------------+
| Richard A. Painter, P.E.      Phone 719 495 7054              |
| Painter Engineering, Inc.     Mailto:address@hidden         |
| 8470 Swan Rd.                 Amateur Mailto:address@hidden   |
| Black Forest, CO 80908        LatLon: N39:1:41.1 W104:40:8.4  |
|                                                               |
| Visit our Web site:         http://painter.inc                |
|         http://home.earthlink.net/~painterengineering         |
|                                                               |
| Computer and Software Forensics                               |
| Systems & Software Engineering + LAN WAN Networking + X.25    |
| INTERNET TCP-IP + Real-time Transaction Processing            |
| System & Software Integration, Testing, Verification & Audits |
| Web Hosting & Design + Apache + PHP + modSSL + cURL           |
| Database Design & Applications + Oracle                       |
| Benchmarks + Course & Workshop Development & Delivery         |
| Financial and Medical Software Integration + Security         |
| Middleware + EDI + Cryptography + Firewalls                   |
| Embedded Hardware & Software Development                      |
| UNIX + Linux + Windows                                        |
|                                                               |
| Those who would give up essential liberty to purchase a       |
| little temporary safety, deserve neither liberty nor safety.  |
| - Ben Franklin, Historical Review of Pennsylvania, 1759       |
|                                                               |
| If you think technology can solve your security problems then |
| you don't understand the problems and you don't understand    |
| the technology.        - Bruce Schneier                       |
|                                                               |
| Face it.  You have no privacy!   - Scott McNealy              |
|                                                               |
| For a successful technology, reality must take precedence     |
| over public relations, for Nature cannot be fooled.           |
|                 - Richard P. Feynman                          |
|                                                               |
| The future always arrives too soon and in the wrong order!    |
|    - Alvin Toffler                                            |
|                                                               |
| What is popular is not always right and what is right is not  |
| always popular.     - Howard Cosell                           |
|                                                               |
| Ned Ludd wasn't completely wrong!                             |
|                                                               |
| Chance favors the prepared mind!   Illegitima non carborundum |
+---------------------------------------------------------------+

smime.p7s
Description: S/MIME Cryptographic Signature