瀏覽代碼

Add DISABLE_SYSTEMINLINE check to be able to avoid setting SYSTEMINLINE macro

Pierre Muller 2 年之前
父節點
當前提交
5913434ba9
共有 3 個文件被更改,包括 9 次插入3 次删除
  1. 3 1
      rtl/inc/macpas.pp
  2. 3 1
      rtl/inc/systemh.inc
  3. 3 1
      rtl/java/jsystemh_types.inc

+ 3 - 1
rtl/inc/macpas.pp

@@ -22,7 +22,9 @@ interface
 
 { Using inlining for small system functions/wrappers }
 {$inline on}
-{$define SYSTEMINLINE}
+{$ifndef DISABLE_SYSTEMINLINE}
+  {$define SYSTEMINLINE}
+{$endif}
 
 type
 {$ifndef FPUNONE}

+ 3 - 1
rtl/inc/systemh.inc

@@ -29,7 +29,9 @@
 
 { Using inlining for small system functions/wrappers }
 {$inline on}
-{$define SYSTEMINLINE}
+{$ifndef DISABLE_SYSTEMINLINE}
+  {$define SYSTEMINLINE}
+{$endif}
 
 { don't use FPU registervariables on the i386 and i8086 }
 {$if defined(CPUI386) or defined(CPUI8086)}

+ 3 - 1
rtl/java/jsystemh_types.inc

@@ -28,7 +28,9 @@
 
 { Using inlining for small system functions/wrappers }
 {$inline on}
-{$define SYSTEMINLINE}
+{$ifndef DISABLE_SYSTEMINLINE}
+  {$define SYSTEMINLINE}
+{$endif}
 
 { don't use FPU registervariables on the i386 and i8086 }
 {$if defined(CPUI386) or defined(CPUI8086)}