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

* copy loadnodeflags in tloadnode.dogetcopy as well

Browse Source 
git-svn-id: trunk@35558 -
This commit is contained in:
florian 2017-03-10 20:44:20 +00:00
parent e87cc28b64
commit a679cd4e37
1 changed files with 1 additions and 1 deletions

2
compiler/nld.pas
View File

@ -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;