paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 21:50:07 +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; exit;
end; end;
if (owner.symtabletype in [parasymtable,inlineparasymtable]) and 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 } st := 'v'+st { should be 'i' but 'i' doesn't work }
else else
st := 'p'+st; st := 'p'+st;
@ -2676,7 +2677,10 @@ implementation
end. end.
{ {
$Log$ $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 * fixed stabs for globals,static
Revision 1.119 2003/09/23 17:56:06 peter Revision 1.119 2003/09/23 17:56:06 peter