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

* inherit modification flag from load nodes when creating temp nodes when inlining, dfa/cse need this information

Browse Source 
git-svn-id: trunk@22056 -
This commit is contained in:
florian 2012-08-10 21:16:54 +00:00
parent aadf6da14f
commit 2c122a9bf6
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -3639,6 +3639,8 @@ implementation
not assigned(inlinelocals[indexnr]) then not assigned(inlinelocals[indexnr]) then
internalerror(20040720); internalerror(20040720);
temp := tnode(inlinelocals[indexnr]).getcopy; temp := tnode(inlinelocals[indexnr]).getcopy;
{ inherit modification information, this is needed by the dfa/cse }
temp.flags:=temp.flags+(n.flags*[nf_modify,nf_write]);
n.free; n.free;
n := temp; n := temp;
typecheckpass(n); typecheckpass(n);