paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:50:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Change argument name

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-27 09:27:41 +01:00
parent c2176d27ea
commit 8b40033964
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/objpas.inc
View File

@ -1175,9 +1175,9 @@ end;
{$IFDEF SYSTEM_HAS_FEATURE_MONITOR} {$IFDEF SYSTEM_HAS_FEATURE_MONITOR}
function TObject.SetMonitorData(aData,aComparand : Pointer) : Pointer; function TObject.SetMonitorData(aData,aCheckOld : Pointer) : Pointer;
begin begin
Result:=InterlockedCompareExchange(_MonitorData,aData,aComparand); Result:=InterlockedCompareExchange(_MonitorData,aData,aCheckOld);
end; end;
function TObject.GetMonitorData: Pointer; function TObject.GetMonitorData: Pointer;

2
rtl/inc/objpash.inc
View File

@ -245,7 +245,7 @@
strict private strict private
_MonitorData : Pointer; _MonitorData : Pointer;
private private
function SetMonitorData(aData,aComparand : Pointer) : Pointer; inline; function SetMonitorData(aData,aCheckOld : Pointer) : Pointer; inline;
function GetMonitorData: Pointer; inline; function GetMonitorData: Pointer; inline;
{$ENDIF} {$ENDIF}
protected protected