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

* Fixed bug where a call node's intrinsic code

Browse Source 
wasn't copied over during "DoGetCopy"
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-12-27 18:58:02 +00:00
parent d6c3c74b46
commit d25d094d57
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncal.pas
View File

@ -1819,7 +1819,8 @@ implementation
n.procdefinition:=procdefinition; n.procdefinition:=procdefinition;
n.typedef := typedef; n.typedef := typedef;
n.callnodeflags := callnodeflags; n.callnodeflags := callnodeflags;
n.pushedparasize:=pushedparasize; n.pushedparasize := pushedparasize;
n.intrinsiccode := intrinsiccode;
if assigned(callinitblock) then if assigned(callinitblock) then
n.callinitblock:=tblocknode(callinitblock.dogetcopy) n.callinitblock:=tblocknode(callinitblock.dogetcopy)
else else