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

* fix stabs for locals

Browse Source
This commit is contained in:
peter 2004-01-06 15:46:12 +00:00
parent e03e8b5a27
commit 4b9ba9e064
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/symsym.pas
View File

@ -1859,12 +1859,14 @@ implementation
tostr(N_LCSYM)+',0,'+tostr(fileinfo.line)+','+mangledname);
exit;
end;
if (owner.symtabletype=parasymtable) and
paramanager.push_addr_param(varspez,vartype.def,tprocdef(owner.defowner).proccalloption) and
not(vo_has_local_copy in varoptions) then
st := 'v'+st { should be 'i' but 'i' doesn't work }
else
st := 'p'+st;
if (owner.symtabletype=parasymtable) then
begin
if paramanager.push_addr_param(varspez,vartype.def,tprocdef(owner.defowner).proccalloption) and
not(vo_has_local_copy in varoptions) then
st := 'v'+st { should be 'i' but 'i' doesn't work }
else
st := 'p'+st;
end;
case localloc.loc of
LOC_REGISTER, LOC_FPUREGISTER :
begin
@ -2687,7 +2689,10 @@ implementation
end.
{
$Log$
Revision 1.139 2003-12-23 22:13:26 peter
Revision 1.140 2004-01-06 15:46:12 peter
* fix stabs for locals
Revision 1.139 2003/12/23 22:13:26 peter
* don't generate rtti for errordef
Revision 1.138 2003/12/12 12:09:40 marco