From 5913434ba91a5726dd2842277eb378cba6eb2e3f Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Tue, 20 Sep 2022 22:39:28 +0100
Subject: [PATCH] Add DISABLE_SYSTEMINLINE check to be able to avoid setting
 SYSTEMINLINE macro

---
 rtl/inc/macpas.pp           | 4 +++-
 rtl/inc/systemh.inc         | 4 +++-
 rtl/java/jsystemh_types.inc | 4 +++-
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/macpas.pp b/rtl/inc/macpas.pp
index 13ff65e6a4..bcf693204e 100644
--- a/rtl/inc/macpas.pp
+++ b/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}
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 5862dbb368..c437c30671 100644
--- a/rtl/inc/systemh.inc
+++ b/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)}
diff --git a/rtl/java/jsystemh_types.inc b/rtl/java/jsystemh_types.inc
index afac663933..16d5ba81b0 100644
--- a/rtl/java/jsystemh_types.inc
+++ b/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)}