Browse Source

* copy loadnodeflags in tloadnode.dogetcopy as well

git-svn-id: trunk@35558 -
florian 8 years ago
parent
commit
a679cd4e37
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/nld.pas

+ 1 - 1
compiler/nld.pas

@@ -263,12 +263,12 @@ implementation
     function tloadnode.dogetcopy : tnode;
     function tloadnode.dogetcopy : tnode;
       var
       var
          n : tloadnode;
          n : tloadnode;
-
       begin
       begin
          n:=tloadnode(inherited dogetcopy);
          n:=tloadnode(inherited dogetcopy);
          n.symtable:=symtable;
          n.symtable:=symtable;
          n.symtableentry:=symtableentry;
          n.symtableentry:=symtableentry;
          n.fprocdef:=fprocdef;
          n.fprocdef:=fprocdef;
+         n.loadnodeflags:=loadnodeflags;
          result:=n;
          result:=n;
       end;
       end;