Sfoglia il codice sorgente

* copy loadnodeflags in tloadnode.dogetcopy as well

git-svn-id: trunk@35558 -
florian 8 anni fa
parent
commit
a679cd4e37
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      compiler/nld.pas

+ 1 - 1
compiler/nld.pas

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