From eb4d545a0fe421bc39b2976d4c525125d3e8ad3a Mon Sep 17 00:00:00 2001 From: florian Date: Fri, 10 Mar 2017 20:44:20 +0000 Subject: * copy loadnodeflags in tloadnode.dogetcopy as well git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@35558 3ad0048d-3df7-0310-abae-a5850022a9f2 --- compiler/nld.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compiler/nld.pas') diff --git a/compiler/nld.pas b/compiler/nld.pas index e34a7f7978..003bf381db 100644 --- a/compiler/nld.pas +++ b/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; -- cgit v1.2.1