paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:29:20 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nld.pas
View File

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