paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 04:49:26 +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

2
compiler/ncal.pas
View File

@ -3874,7 +3874,7 @@ implementation
paraaddr: taddrnode;
begin
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(inlinecleanupstatement,ctempdeletenode.create(tempnode));
{ inherit addr_taken flag }