paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 02:39:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* free callparatemps created for call-by-reference parameters

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-29 10:05:40 +00:00
parent 4f91ae9605
commit bb3a5166db
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncgcal.pas
View File

@ -545,7 +545,17 @@ implementation
begin
{ don't release the funcret temp }
if not(vo_is_funcret in tvarsym(ppn.paraitem.parasym).varoptions) then
location_freetemp(exprasmlist,ppn.left.location);
begin
{$ifdef callparatemp}
{ free call-by-reference temps }
if (ppn.left.nodetype = typeconvn) and
(ttypeconvnode(ppn.left).left.nodetype = derefn) and
(tderefnode(ttypeconvnode(ppn.left).left).left.nodetype = temprefn) then
location_freetemp(exprasmlist,tderefnode(ttypeconvnode(ppn.left).left).left.location)
else
{$endif callparatemp}
location_freetemp(exprasmlist,ppn.left.location);
end;
{ process also all nodes of an array of const }
if ppn.left.nodetype=arrayconstructorn then
begin
@ -1222,7 +1232,10 @@ begin
end.
{
$Log$
Revision 1.76 2003-05-28 23:58:18 jonas
Revision 1.77 2003-05-29 10:05:40 jonas
* free callparatemps created for call-by-reference parameters
Revision 1.76 2003/05/28 23:58:18 jonas
* added missing initialization of rg.usedint{in,by}proc
* ppc now also saves/restores used fpu registers
* ncgcal doesn't add used registers to usedby/inproc anymore, except for