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

git-svn-id: trunk@22056 -

compiler/ncal.pas

@@ -3639,6 +3639,8 @@ implementation
                      not assigned(inlinelocals[indexnr]) then
                     internalerror(20040720);
                   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 := temp;
                   typecheckpass(n);