cox@software.org (Guy Cox) (08/15/90)
I have been trying to use Open Dialog under Ada and have absolutely no
success. The example programs do not compile and when the fixes are
made the programs get a
** MAIN PROGRAM ABANDONED -- EXCEPTION "storage_error" RAISED
In routine "quit" line 67
Called from "/local/cox/dialog/ada/quit:.text" offset 1B74A
Called from "__genesis" line 17
Called from "PM_$CALL" line 176
Called from "pgm_$load_run" line 891
Called from "pgm_$invoke_uid_pn" line 1112
Called from "pm_$init" line 834
all of the example programs exibit this error.
the changes that I have made to allow compilation are:
1) the parameters on the parse command line are not compatible so ...
with system;
...
argc : dlg_int; -- I added this
argv : system.address; -- I added this
2) there is a routine called which is not in the libraries
if argc /= 1 then
dlg_print_command_usage( dlg_long_false );
return;
end if;
I just put a text_io.put_line to let me know something was
wrong.
The storage error is exibited in the load_ddb routine but the error message
points to the last line of the program.
id := dlg_load_quit_file (file_name.s, str_len, dlg_quit_key, st);
The example programs for the other languages run fine. Does anyone have
any suggestions.??????????
--
//
//Remember; Tuesday is Soylent green day!
//
Guy O. Cox, Jr.
Software Productivity Consortium.
2214 RockHill Rd
Herndon, VA 22090
703-742-7219
cox@software.org