paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +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}
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;

2
rtl/inc/objpash.inc
View File

@ -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