瀏覽代碼

* added the missing pop directive after the push directive in handle_const_rox

git-svn-id: trunk@36043 -
nickysn 8 年之前
父節點
當前提交
c028362f31
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/ninl.pas

+ 1 - 0
compiler/ninl.pas

@@ -2107,6 +2107,7 @@ implementation
                   else
                   else
                     internalerror(2011061901);
                     internalerror(2011061901);
                   end;
                   end;
+{$pop}
             end
             end
           else if (left.nodetype=callparan) and assigned(tcallparanode(left).right) and
           else if (left.nodetype=callparan) and assigned(tcallparanode(left).right) and
                   (tcallparanode(tcallparanode(left).right).left.nodetype=ordconstn) then
                   (tcallparanode(tcallparanode(left).right).left.nodetype=ordconstn) then