Gpc October 1996

gpc@gnu.de

22 participants
67 discussions

Re: 2.7.2 compiler
by Peter Gerwinski 23 Oct '96

23 Oct '96

According to Jim Brander: > gpc-typeck.c:626 > >626 for (r =3D rhs; r; r =3D TYPE_LANG_SPECIFIC (r)->elts [1]) > >(gdb) l > >621 tree lhs, rhs; > >622 { > >623 register tree r; > >624 if (TREE_CODE (lhs) =3D=3D RECORD_TYPE > >625 && TREE_CODE (rhs) =3D=3D RECORD_TYPE) > >626 for (r =3D rhs; r; r =3D TYPE_LANG_SPECIFIC (r)->elts [1]) > >627 { > >628 … [View More]

1 0

getenv - any solutions?
by John Michael Black 23 Oct '96

23 Oct '96

There's been a lot of getenvs going around here lately. :) Has anyone found a method that works yet? The last thing posted about it gave this: Function GetEnv ( Name: __CString__ ): PChar; C; GPC does not recognize PChar -- at least ours doesn't. This could go on for weeks.... :) -john jm_black(a)csunix1.lvc.edu

1 0

2.7.2 compiler
by Jim Brander 23 Oct '96

23 Oct '96

Ran binary distribution 2.7.2 elf format compiler on three files which compile cleanly on 2.6.3. Each time gpc1 failed with segmentation fault in comp_object_pointer_types () but with dissimilar record structures being compared. Here is gdb trace of one failure - file is 20000 lines, failure at 8000 lines >er_end_main Away Away_or_both Towards_or_both Towards Direq Single_direq Makelist Makelistup Duplicate_list Duplicate_node Getnumvalue Getlists Makelistx Makesave Getxset … [View More]Getxset_from_listarr Find_create_var Add_inconsistency Check_inconsistency Setfalsevar Check_where Partset Makepossle Equalxset Compare_members Compare_lists Listequality String_equality Test_equality Attach_link Patmatch Mesg Ztrim Subs2 Subs3 All_numeric Bnch Bran Create_operator New_link Cut_link Findsubhead Create_sub Buildsub Writej Plusminus Makeset Setpoints Getnum Debug_state Listkill Add_mber_to_list Solution Undoable Remove_member_from_list Add_delete_list Goal Add_data Cleaned_path Add_search Add_variable Highsearch Check_searcFirst_rec New_job_rec First New_job Remove Remove_shuffle Remove_q Remove_search Remove_data Pointing Point_link Pointed_at Setconsistentlink A_link_job Get_link Clear Remove_entry Clear_obsolete Killdata Next_job Killlist Kill_entry Kill_inference Kill_invoc Kill_branch Check_level Adush Check_path Check_out Check_any Check_zero Rate_action List_unlink Breaklink Destroy_constant_list Kill_fun2 Kill_fun3 Another Kill_externalhange_environment Clear_environment Killnet Add_clean Purge_cleanjob_of Add_match Nosearch Cleanupjobs Cleanup Cleanvar Setlinkdata Linksearch t_first_link Uke_out Check_list Link_open Path_open Deadend Reconnoitre Check_paths Contingency_plan Check_tuf Search_for_link Getrange Setvarfmlink Build_list Same_pred Side_link Funcop Symmetric Searches_in Equality Valid Find_search_in Search_in Find_info Revive Start_up_job Clean_uDo_cleaning Find_link Traverse_network Mirror_image Nan Shortnan Pushdata Find_environment Purge_search Gettrueset Unsetlist Readfilename Read_ion_list Next_nextch Getchar Skipblanks Lex_string Lex_id >Program received signal SIGSEGV, Segmentation fault. >0x8011c33 in comp_object_pointer_types (lhs=0x817b3e4, rhs=0x8590dc0) at gpc-typeck.c:626 >626 for (r = rhs; r; r = TYPE_LANG_SPECIFIC (r)->elts [1]) >(gdb) l >621 tree lhs, rhs; >622 { >623 register tree r; >624 if (TREE_CODE (lhs) == RECORD_TYPE >625 && TREE_CODE (rhs) == RECORD_TYPE) >626 for (r = rhs; r; r = TYPE_LANG_SPECIFIC (r)->elts [1]) >627 { >628 if (comptypes (lhs, r)) >629 return 1; >630 } >(gdb) p r >$1 = (union tree_node *) 0x8590dc0 >(gdb) p rhs >$2 = (union tree_node *) 0x0 >(gdb) p lhs >$3 = (union tree_node *) 0x817b3e4 >(gdb) where >#0 0x8011c33 in comp_object_pointer_types (lhs=0x817b3e4, rhs=0x8590dc0) at gpc-typeck.c:626 >#1 0x8016e76 in convert_for_assignment (type=0x8208ac8, rhs=0x859b31c, errtype=0x0, fundecl=0x817b9f0, funname=0x8178e20, parmnum=1) > at gpc-typeck.c:4960 >#2 0x80139ae in convert_arguments (typelist=0x817b90c, values=0x859b2f4, name=0x8178e20, fundecl=0x817b9f0) at gpc-typeck.c:2359 The record being compared, and the offending function >procedure read_orion_list(fs: string300; transient: Boolean; > anchor: net_index; var ls:logstate); >label > error_exit; (* When abandoning hope *) >const > maxlevels = 50; (* Maximum depth of lists within lists *) > max_string = 63; (* maximum length identifier string *) >type > symtype = (uninit, curly_left, curly_right, lit_string, comma, > number, logcon, identifier, endfile, dot_dot, from_to, > maybe,ellip); > lexical_symbol = record > case sym: symtype of > lit_string: (str_val: string(maxstring)); > number: (val: real); > logcon: (log: logstate); > identifier: (name: string(max_string); id_type: ltype; > use: usage); > end; (* lexical_symbol *) > >var > edfile: text; (* File to read from *) > b : BindingType; > string_pp: integer; (* position in command *) > file_io: Boolean; (* Reading from file? *) > readlist_nextch: char; (* next input char *) > eoln1, > eof1: Boolean; > s1 : string300; > > s2,s3: string(maxstring); (* used for opening file *) > i, > max1: integer; > set1: listarr; > prevprevsym, > prevsym, > now_sym, > nextsym: lexical_symbol; > filebuf: string(maxlinelen); > >function next_nextch(far:integer;file_or_string:boolean): char; >(* Returns character beyond nextch *) >var ch,nnch:char; >begin > if file_or_string > then begin > if length(filebuf) < far > then nnch := ' ' > else nnch := filebuf[far]; > end > else begin > if string_pp+far > length(system_data.p^.command) > then nnch := ' ' > else begin > ch := system_data.p^.command[string_pp+far]; > if ch = chr(10) > then nnch := ' ' > else nnch := ch; > end; > end; >next_nextch := nnch; >end; (* func next_nextch *) > >procedure getchar(file_or_string:boolean); >(* input is managed by this routine, and the following variables: > * file_io, edfile, system_data.p^.command, nextch, eoln1, eof1. > *) >begin >while true do begin > if file_or_string > then begin > if filebuf = '' > then begin > if eoln1 > then begin > if eof(edfile) > then begin eof1 := true; readlist_nextch := ' '; eoln1 := false; end > else begin > readln(edfile, filebuf); eoln1 := false; > filebuf := trim(ztrim(filebuf)); > continue; > end > end > else begin > eoln1 := true; readlist_nextch := ' '; > end > end > else begin (* filebuf <> '' *) > readlist_nextch := filebuf[1]; > filebuf := delete(filebuf, 1, 1); > end; > end > else begin > string_pp := string_pp + 1; > if string_pp > length(system_data.p^.command) > then begin > readlist_nextch := ' '; > if eoln1 > then begin > eoln1 := false; eof1:= true; > end > else eoln1 := true; > end > else begin > readlist_nextch := system_data.p^.command[string_pp]; > if readlist_nextch = chr(10) > then begin > eoln1 := true;readlist_nextch := ' '; > end > else eoln1 := false; > end; > end; > break; >end; { while true } >end; (* proc getchar *) > > procedure skipblanks; > const > blank = ' '; > exclam = '!'; > begin (* skip blanks and comments in edfile *) > while not eoln1 and_then not eof1 and_then > ((readlist_nextch = blank) or_else (readlist_nextch = exclam)) do > if readlist_nextch = exclam > then repeat getchar(file_io) > until eoln1 > else getchar(file_io); > end; > > procedure lex_string; > var > termch: char; > begin > with nextsym do begin > termch := readlist_nextch; getchar(file_io); > sym := lit_string; str_val := ''; > while not eoln1 and_then (readlist_nextch <> termch) and_then > (length(str_val) < maxstring) do begin > str_val := str_val + readlist_nextch; > getchar(file_io); > end; > if readlist_nextch = termch > then getchar(file_io) > else begin status := 818; goto error_exit; (* fast escape *) end; > end > end; (* proc lex_string *) > > procedure lex_id; > const > max_name = 31; > var s:string(80); > begin > with nextsym do begin > name := ''; > sym := identifier; > use := normal; > while (readlist_nextch in alphanumund) and_then > (length(name) < max_name) do begin > name := name + readlist_nextch; getchar(file_io); > end; > if (readlist_nextch in ['?', '$', '%', '@']) > then begin > if length(name) < max_name > then begin > case readlist_nextch of > '?': id_type := multi; > '$': id_type := string_p; > '%': id_type := list_p; > '@': id_type := logical; > end; (* esac *) > name := name + readlist_nextch; getchar(file_io); > end > else begin status := 857; goto error_exit; end; > end > else id_type := numeric; (* move from end of routine *) > s := name; > uppercaseproc(s); > if (readlist_nextch in ['a'..'z','A'..'Z','_']) (* too long *) > or_else (s = 'NYK') > then begin status := 862; goto error_exit; end; > if (s = 'TRUE') or_else (s = 'FALSE') or_else (s = 'UKE') > or_else (s = 'ERROR') > then begin > log := logstate(index('UEFT', substr(s, 1, 1))); > sym := logcon; > end; > end; (* with *) > end; (* proc lex_id *) Another trace, from compiling another file with a different record structure being compared >Starting program: /tmp/gpc1 externfunc.i > >Program received signal SIGSEGV, Segmentation fault. >0x8011c33 in comp_object_pointer_types (lhs=0x817ab08, rhs=0x817af64) > at gpc-typeck.c:626 >626 for (r = rhs; r; r = TYPE_LANG_SPECIFIC (r)->elts [1]) >(gdb) where >#0 0x8011c33 in comp_object_pointer_types (lhs=0x817ab08, rhs=0x817af64) > at gpc-typeck.c:626 >#1 0x8016e76 in convert_for_assignment (type=0x8a060b4, rhs=0x8a05e54, > errtype=0x0, fundecl=0x822cd78, funname=0x822caa4, parmnum=2) > at gpc-typeck.c:4960 >#2 0x80139ae in convert_arguments (typelist=0x822cc80, values=0x8a05e40, > name=0x822caa4, fundecl=0x822cd78) at gpc-typeck.c:2359 >#3 0x8013244 in build_function_call (function=0x822cd78, params=0x8a05e40) > at gpc-typeck.c:1896 >#4 0x8007223 in yyparse () at ../gpc-1.2-2.7.2/gpc-parse.y:4364 >#5 0x805ab6e in compile_file (name=0xbffffe61 "externfunc.i") > at ./toplev.c:2288 >#6 0x805d25d in main (argc=2, argv=0xbffffda4, envp=0xbffffdb0) > at ./toplev.c:3977 >#7 0x800126b in _start () >(gdb) up 1 >#1 0x8016e76 in convert_for_assignment (type=0x8a060b4, rhs=0x8a05e54, > errtype=0x0, fundecl=0x822cd78, funname=0x822caa4, parmnum=2) > at gpc-typeck.c:4960 >4960 if (TYPE_MAIN_VARIANT (ttl) == void_type_node >(gdb) p *funname >$1 = {common = {chain = 0x818f334, type = 0x0, code = IDENTIFIER_NODE, > side_effects_flag = 0, constant_flag = 0, permanent_flag = 1, > addressable_flag = 0, volatile_flag = 0, readonly_flag = 0, > unsigned_flag = 0, asm_written_flag = 0, used_flag = 0, raises_flag = 0, > static_flag = 0, public_flag = 1, private_flag = 0, protected_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0}, int_cst = { > common = "4 \030\b\000\000\000\000\001\004\b", int_cst_low = 13, > int_cst_high = 136497872}, real_cst = { > common = "4 \030\b\000\000\000\000\001\004\b", rtl = 0xd, real_cst = {r = { > 136497872, 136498552, 0}}}, string = { > common = "4 \030\b\000\000\000\000\001\004\b", rtl = 0xd, > length = 136497872, pointer = 0x822cd78 " \"\b\024 \"\b\035\004\t"}, > complex = {common = "4 \030\b\000\000\000\000\001\004\b", rtl = 0xd, > real = 0x822cad0, imag = 0x822cd78}, identifier = { > common = "4 \030\b\000\000\000\000\001\004\b", length = 13, > pointer = 0x822cad0 "Dollarsubproc"}, decl = { > common = "4 \030\b\000\000\000\000\001\004\b", > filename = 0xd <Address 0xd out of bounds>, linenum = 136497872, > size = 0x822cd78, uid = 0, mode = VOIDmode, external_flag = 0, > nonlocal_flag = 0, regdecl_flag = 0, inline_flag = 0, bit_field_flag = 0, > virtual_flag = 0, ignored_flag = 0, abstract_flag = 0, > in_system_header_flag = 0, common_flag = 0, defer_output = 0, > transparent_union = 0, static_ctor_flag = 0, static_dtor_flag = 0, > artificial_flag = 0, weak_flag = 0, lang_flag_0 = 0, lang_flag_1 = 0, > lang_flag_2 = 0, lang_flag_3 = 0, lang_flag_4 = 0, lang_flag_5 = 0, > lang_flag_6 = 0, lang_flag_7 = 0, name = 0x0, context = 0x0, > arguments = 0x0, result = 0x6c6c6f44, initial = 0x75737261, > abstract_origin = 0x6f727062, assembler_name = 0x63, section_name = 0x0, > machine_attributes = 0x0, rtl = 0x403, frame_size = {i = 0, u = 0, > f = NOT_BUILT_IN}, saved_insns = {r = 0x817bdf4, i = 135773684}, > vindex = 0x0, lang_specific = 0x0}, type = { > common = "4 \030\b\000\000\000\000\001\004\b", values = 0xd, > size = 0x822cad0, attributes = 0x822cd78, uid = 0, precision = 0 '\000', > mode = VOIDmode, string_flag = 0, no_force_blk_flag = 0, > needs_constructing_flag = 0, transparent_union_flag = 0, packed_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0, align = 0, > pointer_to = 0x0, reference_to = 0x0, symtab = {address = 1819045700, > pointer = 0x6c6c6f44 ""}, name = 0x75737261, minval = 0x6f727062, > maxval = 0x63, next_variant = 0x0, main_variant = 0x0, binfo = 0x403, > noncopied_parts = 0x0, context = 0x817bdf4, obstack = 0x0, > lang_specific = 0x0}, list = { > common = "4 \030\b\000\000\000\000\001\004\b", purpose = 0xd, > value = 0x822cad0}, vec = {common = "4 \030\b\000\000\000\000\001\004\b", > length = 13, a = {0x822cad0}}, exp = { > common = "4 \030\b\000\000\000\000\001\004\b", complexity = 13, > operands = {0x822cad0}}, block = { > common = "4 \030\b\000\000\000\000\001\004\b", handler_block_flag = 1, > abstract_flag = 0, vars = 0x822cad0, type_tags = 0x822cd78, > subblocks = 0x0, supercontext = 0x0, abstract_origin = 0x0, > end_note = 0x0}} >(gdb) >$2 = {common = {chain = 0x818f334, type = 0x0, code = IDENTIFIER_NODE, > side_effects_flag = 0, constant_flag = 0, permanent_flag = 1, > addressable_flag = 0, volatile_flag = 0, readonly_flag = 0, > unsigned_flag = 0, asm_written_flag = 0, used_flag = 0, raises_flag = 0, > static_flag = 0, public_flag = 1, private_flag = 0, protected_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0}, int_cst = { > common = "4 \030\b\000\000\000\000\001\004\b", int_cst_low = 13, > int_cst_high = 136497872}, real_cst = { > common = "4 \030\b\000\000\000\000\001\004\b", rtl = 0xd, real_cst = {r = { > 136497872, 136498552, 0}}}, string = { > common = "4 \030\b\000\000\000\000\001\004\b", rtl = 0xd, > length = 136497872, pointer = 0x822cd78 " \"\b\024 \"\b\035\004\t"}, > complex = {common = "4 \030\b\000\000\000\000\001\004\b", rtl = 0xd, > real = 0x822cad0, imag = 0x822cd78}, identifier = { > common = "4 \030\b\000\000\000\000\001\004\b", length = 13, > pointer = 0x822cad0 "Dollarsubproc"}, decl = { > common = "4 \030\b\000\000\000\000\001\004\b", > filename = 0xd <Address 0xd out of bounds>, linenum = 136497872, > size = 0x822cd78, uid = 0, mode = VOIDmode, external_flag = 0, > nonlocal_flag = 0, regdecl_flag = 0, inline_flag = 0, bit_field_flag = 0, > virtual_flag = 0, ignored_flag = 0, abstract_flag = 0, > in_system_header_flag = 0, common_flag = 0, defer_output = 0, > transparent_union = 0, static_ctor_flag = 0, static_dtor_flag = 0, > artificial_flag = 0, weak_flag = 0, lang_flag_0 = 0, lang_flag_1 = 0, > lang_flag_2 = 0, lang_flag_3 = 0, lang_flag_4 = 0, lang_flag_5 = 0, > lang_flag_6 = 0, lang_flag_7 = 0, name = 0x0, context = 0x0, > arguments = 0x0, result = 0x6c6c6f44, initial = 0x75737261, > abstract_origin = 0x6f727062, assembler_name = 0x63, section_name = 0x0, > machine_attributes = 0x0, rtl = 0x403, frame_size = {i = 0, u = 0, > f = NOT_BUILT_IN}, saved_insns = {r = 0x817bdf4, i = 135773684}, > vindex = 0x0, lang_specific = 0x0}, type = { > common = "4 \030\b\000\000\000\000\001\004\b", values = 0xd, > size = 0x822cad0, attributes = 0x822cd78, uid = 0, precision = 0 '\000', > mode = VOIDmode, string_flag = 0, no_force_blk_flag = 0, > needs_constructing_flag = 0, transparent_union_flag = 0, packed_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0, align = 0, > pointer_to = 0x0, reference_to = 0x0, symtab = {address = 1819045700, > pointer = 0x6c6c6f44 ""}, name = 0x75737261, minval = 0x6f727062, > maxval = 0x63, next_variant = 0x0, main_variant = 0x0, binfo = 0x403, > noncopied_parts = 0x0, context = 0x817bdf4, obstack = 0x0, > lang_specific = 0x0}, list = { > common = "4 \030\b\000\000\000\000\001\004\b", purpose = 0xd, > value = 0x822cad0}, vec = {common = "4 \030\b\000\000\000\000\001\004\b", > length = 13, a = {0x822cad0}}, exp = { > common = "4 \030\b\000\000\000\000\001\004\b", complexity = 13, > operands = {0x822cad0}}, block = { > common = "4 \030\b\000\000\000\000\001\004\b", handler_block_flag = 1, > abstract_flag = 0, vars = 0x822cad0, type_tags = 0x822cd78, > subblocks = 0x0, supercontext = 0x0, abstract_origin = 0x0, > end_note = 0x0}} >(gdb) p *fundecl >$3 = {common = {chain = 0x822c9f0, type = 0x822cd14, code = FUNCTION_DECL, > side_effects_flag = 0, constant_flag = 0, permanent_flag = 1, > addressable_flag = 0, volatile_flag = 0, readonly_flag = 0, > unsigned_flag = 0, asm_written_flag = 0, used_flag = 1, raises_flag = 0, > static_flag = 0, public_flag = 1, private_flag = 0, protected_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0}, int_cst = { > common = " \"\b\024 \"\b\035\004\t", int_cst_low = 135759440, > int_cst_high = 8539}, real_cst = {common = " \"\b\024 \"\b\035\004\t", > rtl = 0x8178650, real_cst = {r = {8539, 0, 2549}}}, string = { > common = " \"\b\024 \"\b\035\004\t", rtl = 0x8178650, length = 8539, > pointer = 0x0}, complex = {common = " \"\b\024 \"\b\035\004\t", > rtl = 0x8178650, real = 0x215b, imag = 0x0}, identifier = { > common = " \"\b\024 \"\b\035\004\t", length = 135759440, > pointer = 0x215b <Address 0x215b out of bounds>}, decl = { > common = " \"\b\024 \"\b\035\004\t", > filename = 0x8178650 "externfunc.pas", linenum = 8539, size = 0x0, > uid = 2549, mode = QImode, external_flag = 1, nonlocal_flag = 0, > regdecl_flag = 0, inline_flag = 0, bit_field_flag = 0, virtual_flag = 0, > ignored_flag = 0, abstract_flag = 0, in_system_header_flag = 0, > common_flag = 1, defer_output = 0, transparent_union = 0, > static_ctor_flag = 0, static_dtor_flag = 0, artificial_flag = 0, > weak_flag = 0, lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, > lang_flag_3 = 0, lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0, > lang_flag_7 = 0, name = 0x822caa4, context = 0x0, arguments = 0x0, > result = 0x0, initial = 0x0, abstract_origin = 0x0, > assembler_name = 0x822cde0, section_name = 0x0, machine_attributes = 0x0, > rtl = 0x822ce24, frame_size = {i = 0, u = 0, f = NOT_BUILT_IN}, > saved_insns = {r = 0x0, i = 0}, vindex = 0x0, lang_specific = 0x89fda98}, > type = {common = " \"\b\024 \"\b\035\004\t", values = 0x8178650, > size = 0x215b, attributes = 0x0, uid = 2549, precision = 1 '\001', > mode = QImode, string_flag = 0, no_force_blk_flag = 1, > needs_constructing_flag = 0, transparent_union_flag = 0, packed_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0, align = 136497828, > pointer_to = 0x0, reference_to = 0x0, symtab = {address = 0, > pointer = 0x0}, name = 0x0, minval = 0x0, maxval = 0x822cde0, > next_variant = 0x0, main_variant = 0x0, binfo = 0x822ce24, > noncopied_parts = 0x0, context = 0x0, obstack = 0x0, > lang_specific = 0x89fda98}, list = {common = " \"\b\024 \"\b\035\004\t", > purpose = 0x8178650, value = 0x215b}, vec = { > common = " \"\b\024 \"\b\035\004\t", length = 135759440, a = {0x215b}}, > exp = {common = " \"\b\024 \"\b\035\004\t", complexity = 135759440, > operands = {0x215b}}, block = {common = " \"\b\024 \"\b\035\004\t", > handler_block_flag = 0, abstract_flag = 0, vars = 0x215b, type_tags = 0x0, > subblocks = 0x9f5, supercontext = 0x20101, abstract_origin = 0x822caa4, > end_note = 0x0}} >(gdb) p *rhs >$4 = {common = {chain = 0x0, type = 0x825b390, code = CONVERT_EXPR, > side_effects_flag = 0, constant_flag = 0, permanent_flag = 1, > addressable_flag = 0, volatile_flag = 0, readonly_flag = 0, > unsigned_flag = 0, asm_written_flag = 0, used_flag = 0, raises_flag = 0, > static_flag = 0, public_flag = 0, private_flag = 0, protected_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0}, int_cst = { > common = "\000\000\000\000\220 %\bi\004\000", int_cst_low = 0, > int_cst_high = 136644252}, real_cst = { > common = "\000\000\000\000\220 %\bi\004\000", rtl = 0x0, real_cst = {r = { > 136644252, 0, 135769552}}}, string = { > common = "\000\000\000\000\220 %\bi\004\000", rtl = 0x0, > length = 136644252, pointer = 0x0}, complex = { > common = "\000\000\000\000\220 %\bi\004\000", rtl = 0x0, real = 0x825069c, > imag = 0x0}, identifier = {common = "\000\000\000\000\220 %\bi\004\000", > length = 0, pointer = 0x825069c "á\a%\b \005%\b\"L\001"}, decl = { > common = "\000\000\000\000\220 %\bi\004\000", filename = 0x0, > linenum = 136644252, size = 0x0, uid = 135769552, mode = 39, > external_flag = 0, nonlocal_flag = 0, regdecl_flag = 1, inline_flag = 0, > bit_field_flag = 0, virtual_flag = 0, ignored_flag = 0, abstract_flag = 0, > in_system_header_flag = 0, common_flag = 0, defer_output = 0, > transparent_union = 0, static_ctor_flag = 0, static_dtor_flag = 0, > artificial_flag = 0, weak_flag = 0, lang_flag_0 = 0, lang_flag_1 = 0, > lang_flag_2 = 0, lang_flag_3 = 0, lang_flag_4 = 0, lang_flag_5 = 0, > lang_flag_6 = 0, lang_flag_7 = 0, name = 0x0, context = 0x8a05e54, > arguments = 0x0, result = 0x0, initial = 0x403, abstract_origin = 0x0, > assembler_name = 0x8a05e68, section_name = 0x0, > machine_attributes = 0x822cd14, rtl = 0x440d, frame_size = {i = 0, u = 0, > f = NOT_BUILT_IN}, saved_insns = {r = 0x815aa68, i = 135637608}, > vindex = 0x0, lang_specific = 0x906}, type = { > common = "\000\000\000\000\220 %\bi\004\000", values = 0x0, > size = 0x825069c, attributes = 0x0, uid = 135769552, precision = 39 '\'', > mode = SImode, string_flag = 0, no_force_blk_flag = 0, > needs_constructing_flag = 0, transparent_union_flag = 0, packed_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0, align = 0, > pointer_to = 0x8a05e54, reference_to = 0x0, symtab = {address = 0, > pointer = 0x0}, name = 0x403, minval = 0x0, maxval = 0x8a05e68, > next_variant = 0x0, main_variant = 0x822cd14, binfo = 0x440d, > noncopied_parts = 0x0, context = 0x815aa68, obstack = 0x0, > lang_specific = 0x906}, list = { > common = "\000\000\000\000\220 %\bi\004\000", purpose = 0x0, > value = 0x825069c}, vec = {common = "\000\000\000\000\220 %\bi\004\000", > length = 0, a = {0x825069c}}, exp = { > common = "\000\000\000\000\220 %\bi\004\000", complexity = 0, operands = { > 0x825069c}}, block = {common = "\000\000\000\000\220 %\bi\004\000", > handler_block_flag = 0, abstract_flag = 0, vars = 0x825069c, > type_tags = 0x0, subblocks = 0x817add0, supercontext = 0x427, > abstract_origin = 0x0, end_note = 0x8a05e54}} >(gdb) p *lhs >(gdb) >(gdb) p *type >$5 = {common = {chain = 0x0, type = 0x817ab08, code = POINTER_TYPE, > side_effects_flag = 0, constant_flag = 0, permanent_flag = 1, > addressable_flag = 0, volatile_flag = 0, readonly_flag = 0, > unsigned_flag = 1, asm_written_flag = 0, used_flag = 0, raises_flag = 0, > static_flag = 0, public_flag = 0, private_flag = 0, protected_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0}, int_cst = { > common = "\000\000\000\000\b½\027\b\rD\000", int_cst_low = 0, > int_cst_high = 135637608}, real_cst = { > common = "\000\000\000\000\b½\027\b\rD\000", rtl = 0x0, real_cst = {r = { > 135637608, 0, 2311}}}, string = { > common = "\000\000\000\000\b½\027\b\rD\000", rtl = 0x0, > length = 135637608, pointer = 0x0}, complex = { > common = "\000\000\000\000\b½\027\b\rD\000", rtl = 0x0, real = 0x815aa68, > imag = 0x0}, identifier = {common = "\000\000\000\000\b½\027\b\rD\000", > length = 0, pointer = 0x815aa68 ""}, decl = { > common = "\000\000\000\000\b½\027\b\rD\000", filename = 0x0, > linenum = 135637608, size = 0x0, uid = 2311, mode = 32, external_flag = 0, > nonlocal_flag = 0, regdecl_flag = 1, inline_flag = 0, bit_field_flag = 0, > virtual_flag = 0, ignored_flag = 0, abstract_flag = 0, > in_system_header_flag = 0, common_flag = 0, defer_output = 0, > transparent_union = 0, static_ctor_flag = 0, static_dtor_flag = 0, > artificial_flag = 0, weak_flag = 0, lang_flag_0 = 0, lang_flag_1 = 0, > lang_flag_2 = 0, lang_flag_3 = 0, lang_flag_4 = 0, lang_flag_5 = 0, > lang_flag_6 = 0, lang_flag_7 = 0, name = 0x20, context = 0x0, > arguments = 0x0, result = 0x0, initial = 0x0, abstract_origin = 0x0, > assembler_name = 0x0, section_name = 0x0, machine_attributes = 0x8a060b4, > rtl = 0x0, frame_size = {i = 0, u = 0, f = NOT_BUILT_IN}, saved_insns = { > r = 0x0, i = 0}, vindex = 0x8151654, lang_specific = 0x0}, type = { > common = "\000\000\000\000\b½\027\b\rD\000", values = 0x0, > size = 0x815aa68, attributes = 0x0, uid = 2311, precision = 32 ' ', > mode = SImode, string_flag = 0, no_force_blk_flag = 0, > needs_constructing_flag = 0, transparent_union_flag = 0, packed_flag = 0, > lang_flag_0 = 0, lang_flag_1 = 0, lang_flag_2 = 0, lang_flag_3 = 0, > lang_flag_4 = 0, lang_flag_5 = 0, lang_flag_6 = 0, align = 32, > pointer_to = 0x0, reference_to = 0x0, symtab = {address = 0, > pointer = 0x0}, name = 0x0, minval = 0x0, maxval = 0x0, > next_variant = 0x0, main_variant = 0x8a060b4, binfo = 0x0, > noncopied_parts = 0x0, context = 0x0, obstack = 0x8151654, > lang_specific = 0x0}, list = {common = "\000\000\000\000\b½\027\b\rD\000", > purpose = 0x0, value = 0x815aa68}, vec = { > common = "\000\000\000\000\b½\027\b\rD\000", length = 0, a = {0x815aa68}}, > exp = {common = "\000\000\000\000\b½\027\b\rD\000", complexity = 0, > operands = {0x815aa68}}, block = { > common = "\000\000\000\000\b½\027\b\rD\000", handler_block_flag = 0, > abstract_flag = 0, vars = 0x815aa68, type_tags = 0x0, subblocks = 0x907, > supercontext = 0x420, abstract_origin = 0x20, end_note = 0x0}} Please let me know what you would like to see in terms of output. Regards Jim [View Less]

1 0

GPC WWW home page modified
by Peter Gerwinski 23 Oct '96

23 Oct '96

Hello, friends of GNU Pascal, I did some modifications to the GNU Pascal home page, http://home.pages.de/~GNU-Pascal/ or http://agnes.dida.physik.uni-essen.de/~gnu-pascal/ Please post your comments here; especially let me know if I missed to mention you and/or your work in the "development team" page. Yours, Peter e-mail: peter.gerwinski(a)uni-essen.de home address: D\"usseldorfer Str. 35, 45145 Essen, Germany WWW: http://agnes.dida.physik.uni-essen.de/~peter/

1 0

Re: Asmname Directive
by J.J. van der Heijden 21 Oct '96

21 Oct '96

On Sun, 20 Oct 96 22:30:09 -0400, Kevin A. Foss <kfoss(a)atlsysnet.com> wrote: >Hello, > >I am having trouble getting gpc to call external function names the way I >would like. According to builtin.texi, there is a directive called 'Asmname' >which should allow for case sensitive function names. > >However when I declare: > >function WinInitialize(fsoptions : u_long) : u_long; Asmname; >[u_long is a type defined elsewhere] > >gpc responds with a … [View More]

1 0

Asmname Directive
by Kevin A. Foss 21 Oct '96

21 Oct '96

Hello, I am having trouble getting gpc to call external function names the way I would like. According to builtin.texi, there is a directive called 'Asmname' which should allow for case sensitive function names. However when I declare: function WinInitialize(fsoptions : u_long) : u_long; Asmname; [u_long is a type defined elsewhere] gpc responds with a parse error on the line. What is the correct format for using the 'Asmname' directive? -- I couldn't find it mentioned anywhere else in … [View More]

1 0

Main Program Name decapitalization
by Peter Gerwinski 20 Oct '96

20 Oct '96

Hi everybody, I was reported several errors resulting from the decapitalization of the main program's name, e.g. Program Log; begin writeln ( ln ( 2.7184 ) ); end. crashed because the program's name was decapitalized, i.e. "Log" was mapped to "log" which did hide the function in libm.a ... One could think about letting the program name like it is, say "Log". But (as Juki writes in gpc-util.c :-) the standard says that the program's name has to go into a separate name … [View More]

1 0

Re: Trouble with GPC
by Niels Heirbaut 20 Oct '96

20 Oct '96

Hi, I want to thank everybody who has helped me getting GPC started, but another problem came up: I get the following messages when I try to compile my program: _main.c(.text+0x1a): undefined reference to `djgpp_last_ctor' _main.c(.text+0x1f): undefined reference to `djgpp_first_ctor' _main.c(.text+0x2f): undefined reference to `djgpp_first_ctor' exit.c(.text+0x29): undefined reference to `djgpp_last_dtor' exit.c(.text+0x2e): undefined reference to `djgpp_first_dtor' exit.c(.text+0x3f): … [View More]undefined reference to `djgpp_first_dtor' I couldn't find any reference to these error messages in the GPC info files or DJGPP FAQ. Could some please help me (again)? here are my env.lst and messages with the -v option on: C:\>type env.lst TMP=C:\WINDOWS\TEMP winbootdir=C:\WINDOWS COMSPEC=C:\WINDOWS\COMMAND.COM PROMPT=$p$g PATH=C:\WINDOWS;C:\WINDOWS\COMMAND;C:\DOS;C:\DJGPP\BIN;C:\DJGPP\LIB;C:\PHOTO ;C:\PKWARE TEMP=C:\DOS DJGPP=C:\DJGPP\DJGPP.ENV windir=C:\WINDOWS BLASTER=A220 I10 D3 T4 CMDLINE=gpc -v test.pas -o test.exe C:\>gpc -v test.pas -o test.exe gpc version 1.2(2.7.2) gpc-cpp -lang-pascal -v -nocharescape -undef -D__GNUC__=1 -D__GPC__=1 -D__GNUC_MINOR__=2(2 -D__unix__ -D__i386__ -D__GO32__ -D__MSDOS__ -D__unix -D__i386 -D__GO32 -D__MSDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) test.pas c:/djgpp/tmp\ccbaaaaa.i GNU CPP version 1.2(2.7.2) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: c:/djgpp/include /usr/local/include /usr/local/go32/include /usr/local/lib/gcc-lib/go32/2.7.2/include /usr/include End of search list. c:/djgpp/bin\gpc1.exe c:/djgpp/tmp\ccbaaaaa.i -quiet -dumpbase test.pas -version -o c:/djgpp/tmp\cccaaaaa.s GNU Pascal version 1.2(2.7.2) (80386, BSD syntax) compiled by GNU C version 2.7.2. c:/djgpp/bin\as.exe -o c:/djgpp/tmp\ccdaaaaa.o c:/djgpp/tmp\cccaaaaa.s c:/djgpp/bin\ld.exe c:/djgpp/lib\crt0.o -Lc:/djgpp/lib c:/djgpp/tmp\ccdaaaaa.o -lgpc -lgcc -lm -lc -lgcc _main.c(.text+0x1a): undefined reference to `djgpp_last_ctor' _main.c(.text+0x1f): undefined reference to `djgpp_first_ctor' _main.c(.text+0x2f): undefined reference to `djgpp_first_ctor' exit.c(.text+0x29): undefined reference to `djgpp_last_dtor' exit.c(.text+0x2e): undefined reference to `djgpp_first_dtor' exit.c(.text+0x3f): undefined reference to `djgpp_first_dtor' I also would like to know where I could get the latest version of GPC. Mine came from ftp://kampi.hut.fi/. But there was no installation manual or DJGPP.ENV included with the binary *.ZIP file. Thanks in advance again, Niels Heirbaut [View Less]

1 0

Re: System.pas module
by Peter Gerwinski 20 Oct '96

20 Oct '96

Hello Berend, hello everybody! The system.pas module triggers one bug in GPC concerning String schemas as parameters: > procedure GetDir(D: byte; var s: string); declares a string schema without specified length as a formal parameter. When trying to use it with an actual parameter which must have a specified length, the compiler crashes. To work around, always specify string length, e.g. procedure GetDir(D: byte; var s: string255); According to Berend de Boer: > This program is … [View More]

1 0

Re: How to implement writeln()
by The African Chief 18 Oct '96

18 Oct '96

On 17 Oct 1996 18:08:00 +0200 Andreas Bauer <andi.tio(a)hit.handshake.de> wrote: >I'm currently programming a bp-like CRT unit. >But i don't know how to do writeln(), which is not limited, >neither in the number of arguments nor in the type of this. This type of thing has to be catered for internally by the compiler itself. This is how Borland does it. I don't see how you can do it without changing the internals of the compiler to handle it specifically. Warmest regards, Dr … [View More]

1 0

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

1997

1996

1995

Gpc October 1996