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

* fixed stabs generation for local variables on systems where they have

Browse Source 
a positive offset relative to the stack/framepointer
This commit is contained in:
Jonas Maebe 2003-04-27 10:03:18 +00:00
parent 098caf591c
commit e514b12f7a
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/symsym.pas
View File

@ -379,7 +379,7 @@ implementation
{ module }
fmodule,
{ codegen }
paramgr,cgbase,cresstr
tgobj,paramgr,cgbase,cresstr
;
{****************************************************************************
@ -1824,7 +1824,7 @@ implementation
tostr(N_LCSYM)+',0,'+tostr(fileinfo.line)+','+mangledname)
else
stabstring := strpnew('"'+name+':'+st+'",'+
tostr(N_LSYM)+',0,'+tostr(fileinfo.line)+',-'+tostr(address-owner.address_fixup))
tostr(N_LSYM)+',0,'+tostr(fileinfo.line)+','+tostr(tg.direction*address+owner.address_fixup))
else
stabstring := inherited stabstring;
end;
@ -2557,7 +2557,11 @@ implementation
end.
{
$Log$
Revision 1.98 2003-04-27 07:29:51 peter
Revision 1.99 2003-04-27 10:03:18 jonas
* fixed stabs generation for local variables on systems where they have
a positive offset relative to the stack/framepointer
Revision 1.98 2003/04/27 07:29:51 peter
* aktprocdef cleanup, aktprocdef is now always nil when parsing
a new procdef declaration
* aktprocsym removed