浏览代码

* Fixed bug where a call node's intrinsic code
wasn't copied over during "DoGetCopy"

J. Gareth "Curious Kit" Moreton 1 年之前
父节点
当前提交
d25d094d57
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/ncal.pas

+ 2 - 1
compiler/ncal.pas

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