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

* temp results of calls in "with" statements can be in regs

Browse Source 
git-svn-id: trunk@4649 -
This commit is contained in:
Jonas Maebe 2006-09-19 09:23:57 +00:00
parent f88aa8de54
commit 355e101bc1
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/pstatmnt.pas
View File

@ -510,7 +510,7 @@ implementation
{ when right is a call then load it first in a temp } { when right is a call then load it first in a temp }
if p.nodetype=calln then if p.nodetype=calln then
begin begin
calltempnode:=ctempcreatenode.create(p.resulttype,p.resulttype.def.size,tt_persistent,false); calltempnode:=ctempcreatenode.create(p.resulttype,p.resulttype.def.size,tt_persistent,true);
addstatement(newstatement,calltempnode); addstatement(newstatement,calltempnode);
addstatement(newstatement,cassignmentnode.create( addstatement(newstatement,cassignmentnode.create(
ctemprefnode.create(calltempnode), ctemprefnode.create(calltempnode),