From 8b40033964ca7c4008646fdf4471209fc9e814a5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 27 Feb 2024 09:27:41 +0100
Subject: [PATCH] * Change argument name

---
 rtl/inc/objpas.inc  | 4 ++--
 rtl/inc/objpash.inc | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index 14f960204d..5153c314a4 100644
--- a/rtl/inc/objpas.inc
+++ b/rtl/inc/objpas.inc
@@ -1175,9 +1175,9 @@ end;
 
       {$IFDEF SYSTEM_HAS_FEATURE_MONITOR}
 
-       function TObject.SetMonitorData(aData,aComparand : Pointer) : Pointer;
+       function TObject.SetMonitorData(aData,aCheckOld : Pointer) : Pointer;
        begin
-         Result:=InterlockedCompareExchange(_MonitorData,aData,aComparand);
+         Result:=InterlockedCompareExchange(_MonitorData,aData,aCheckOld);
        end;
 
        function TObject.GetMonitorData: Pointer;
diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc
index df5843d5a9..f168fb4c54 100644
--- a/rtl/inc/objpash.inc
+++ b/rtl/inc/objpash.inc
@@ -245,7 +245,7 @@
        strict private
           _MonitorData : Pointer;
        private
-          function SetMonitorData(aData,aComparand : Pointer) : Pointer; inline;
+          function SetMonitorData(aData,aCheckOld : Pointer) : Pointer; inline;
           function GetMonitorData: Pointer; inline;
        {$ENDIF}
        protected