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

* has_local_copy gdb fix

Browse Source
This commit is contained in:
peter 2003-09-25 21:25:37 +00:00
parent 56c14885bb
commit 349fceb4fc
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symsym.pas
View File

@ -1869,7 +1869,8 @@ implementation
exit;
end;
if (owner.symtabletype in [parasymtable,inlineparasymtable]) and
paramanager.push_addr_param(varspez,vartype.def,tprocdef(owner.defowner).proccalloption) then
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;
@ -2676,7 +2677,10 @@ implementation
end.
{
$Log$
Revision 1.120 2003-09-25 16:18:54 peter
Revision 1.121 2003-09-25 21:25:37 peter
* has_local_copy gdb fix
Revision 1.120 2003/09/25 16:18:54 peter
* fixed stabs for globals,static
Revision 1.119 2003/09/23 17:56:06 peter