paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:26:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* restore the correct way for stabs of forward defs

Browse Source
This commit is contained in:
pierre 1999-12-01 10:26:38 +00:00
parent 3b8d4d2b32
commit 5fb34a8946
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.inc
View File

@ -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