paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 11:30:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix cpu16 error in AtomicCmpExchange

Browse Source
This commit is contained in:
Pierre Muller 2023-07-10 06:54:18 +02:00
parent 96921aaba3
commit ba2b29bd2c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/system.inc
View File

@ -2234,7 +2234,7 @@ end;
function AtomicCmpExchange(var Target: word; NewValue, Comperand: word): word; {$ifdef SYSTEMINLINE}inline{$endif};
begin
Result:=InterlockedCompareExchange(TargetNewValue, Comperand);
Result:=InterlockedCompareExchange(Target, NewValue, Comperand);
end;