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

* the address of complex inline parameters can be hold always in a register

Browse Source 
git-svn-id: trunk@22076 -
This commit is contained in:
florian 2012-08-13 15:09:11 +00:00
parent 5b90a02e75
commit bd47ba6ba4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -3874,7 +3874,7 @@ implementation
paraaddr: taddrnode; paraaddr: taddrnode;
begin begin
ptrtype:=getpointerdef(para.left.resultdef); ptrtype:=getpointerdef(para.left.resultdef);
tempnode := ctempcreatenode.create(ptrtype,ptrtype.size,tt_persistent,tparavarsym(para.parasym).is_regvar(true)); tempnode:=ctempcreatenode.create(ptrtype,ptrtype.size,tt_persistent,true);
addstatement(inlineinitstatement,tempnode); addstatement(inlineinitstatement,tempnode);
addstatement(inlinecleanupstatement,ctempdeletenode.create(tempnode)); addstatement(inlinecleanupstatement,ctempdeletenode.create(tempnode));
{ inherit addr_taken flag } { inherit addr_taken flag }