Parcourir la source

* disable inline if with is used

git-svn-id: branches/fixes_2_0@3815 -
peter il y a 19 ans
Parent
commit
f0c938083a
1 fichiers modifiés avec 3 ajouts et 0 suppressions
  1. 3 0
      compiler/nmem.pas

+ 3 - 0
compiler/nmem.pas

@@ -914,6 +914,9 @@ implementation
 
         if assigned(left) then
           resulttypepass(left);
+
+        { disable inline }
+        exclude(current_procinfo.procdef.procoptions,po_inline);
       end;