瀏覽代碼

* fixed disabling of recusive inlining after pocall_inline to po_inline
change

git-svn-id: trunk@699 -

Jonas Maebe 20 年之前
父節點
當前提交
2d58a4d4d7
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/ncal.pas

+ 1 - 1
compiler/ncal.pas

@@ -2241,7 +2241,7 @@ type
           addstatement(createstatement,funcretnode.getcopy);
         { consider it must not be inlined if called
           again inside the args or itself }
-        procdefinition.proccalloption:=pocall_default;
+        exclude(procdefinition.procoptions,po_inline);
 
         dosimplify(createblock);