Browse Source

* fixed disabling of recusive inlining after pocall_inline to po_inline
change

git-svn-id: trunk@699 -

Jonas Maebe 20 years ago
parent
commit
2d58a4d4d7
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ncal.pas

+ 1 - 1
compiler/ncal.pas

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