From 5fb34a8946c695172c0fd6f7e92345cda436e11c Mon Sep 17 00:00:00 2001 From: pierre Date: Wed, 1 Dec 1999 10:26:38 +0000 Subject: [PATCH] * restore the correct way for stabs of forward defs --- compiler/symdef.inc | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/compiler/symdef.inc b/compiler/symdef.inc index 6bb0781a74..5c983fdedb 100644 --- a/compiler/symdef.inc +++ b/compiler/symdef.inc @@ -1498,7 +1498,7 @@ procedure tpointerdef.concatstabto(asmlist : paasmoutput); - var st : string; + var st,nb : string; sym_line_no : longint; begin if assigned(pointertype.def) and @@ -1512,6 +1512,7 @@ if pointertype.def^.deftype in [recorddef,objectdef] then begin is_def_stab_written := true; + nb:=pointertype.def^.numberstring; {to avoid infinite recursion in record with next-like fields } is_def_stab_written := false; if not pointertype.def^.is_def_stab_written then @@ -1528,7 +1529,7 @@ st := ' '; sym_line_no:=0; end; - st := '"'+st+':t'+numberstring+'=*'+pointertype.def^.numberstring + st := '"'+st+':t'+numberstring+'=*'+nb +'=xs'+pointertype.def^.typesym^.name+':",'+tostr(N_LSYM)+',0,'+tostr(sym_line_no)+',0'; asmlist^.concat(new(pai_stabs,init(strpnew(st)))); end; @@ -3840,7 +3841,10 @@ Const local_symtable_index : longint = $8001; { $Log$ - Revision 1.177 1999-11-30 10:40:54 peter + Revision 1.178 1999-12-01 10:26:38 pierre + * restore the correct way for stabs of forward defs + + Revision 1.177 1999/11/30 10:40:54 peter + ttype, tsymlist Revision 1.176 1999/11/09 23:35:49 pierre