paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 18:51:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* create the addr node for cse with create_internal to avoid errors when taking the address of a temp.

Browse Source 
git-svn-id: trunk@26624 -
This commit is contained in:
florian 2014-01-30 17:19:04 +00:00
parent fc7dc9e54c
commit 3a11dd1055
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/optcse.pas
View File

@ -374,7 +374,7 @@ unit optcse;
if addrstored then if addrstored then
templist[i]:=ctempcreatenode.create_value(getpointerdef(def),voidpointertype.size,tt_persistent, templist[i]:=ctempcreatenode.create_value(getpointerdef(def),voidpointertype.size,tt_persistent,
true,caddrnode.create(tnode(lists.nodelist[i]))) true,caddrnode.create_internal(tnode(lists.nodelist[i])))
else else
templist[i]:=ctempcreatenode.create_value(def,def.size,tt_persistent, templist[i]:=ctempcreatenode.create_value(def,def.size,tt_persistent,
def.is_intregable or def.is_fpuregable,tnode(lists.nodelist[i])); def.is_intregable or def.is_fpuregable,tnode(lists.nodelist[i]));