paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 13:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix system compilation for CPU16

Browse Source
This commit is contained in:
Pierre Muller 2023-07-10 07:04:11 +02:00
parent 276caedbcc
commit 5d16541129
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/system.inc
View File

@ -2311,9 +2311,13 @@ function AtomicIncrement (var Target: pointer) : pointer; {$ifdef SYSTEMINLINE}i
begin begin
{$IFDEF CPU64} {$IFDEF CPU64}
Result:=Pointer(InterlockedIncrement64(int64(Target))); Result:=Pointer(InterlockedIncrement64(int64(Target)));
{$ELSE}
{$IFDEF CPU16}
Result:=Pointer(InterlockedIncrement(smallint(Target)));
{$ELSE} {$ELSE}
Result:=Pointer(InterlockedIncrement(Longint(Target))); Result:=Pointer(InterlockedIncrement(Longint(Target)));
{$ENDIF} {$ENDIF}
{$ENDIF}
end; end;
@ -2322,9 +2326,13 @@ function AtomicDecrement (var Target: pointer) : pointer; {$ifdef SYSTEMINLINE}i
begin begin
{$IFDEF CPU64} {$IFDEF CPU64}
Result:=Pointer(InterlockedDecrement64(Int64(Target))); Result:=Pointer(InterlockedDecrement64(Int64(Target)));
{$ELSE}
{$IFDEF CPU16}
Result:=Pointer(InterlockedDecrement(smallint(Target)));
{$ELSE} {$ELSE}
Result:=Pointer(InterlockedDecrement(Longint(Target))); Result:=Pointer(InterlockedDecrement(Longint(Target)));
{$ENDIF} {$ENDIF}
{$ENDIF}
end; end;
@ -2333,9 +2341,13 @@ function AtomicCmpExchange(var Target: pointer; NewValue, Comperand: pointer): p
begin begin
{$IFDEF CPU64} {$IFDEF CPU64}
Result:=Pointer(InterlockedCompareExchange64(Int64(Target),Int64(NewValue), Int64(Comperand))); Result:=Pointer(InterlockedCompareExchange64(Int64(Target),Int64(NewValue), Int64(Comperand)));
{$ELSE}
{$IFDEF CPU16}
Result:=Pointer(InterlockedCompareExchange(smallint(Target),smallint(NewValue),smallint(Comperand)));
{$ELSE} {$ELSE}
Result:=Pointer(InterlockedCompareExchange(LongInt(Target),LongInt(NewValue), LongInt(Comperand))); Result:=Pointer(InterlockedCompareExchange(LongInt(Target),LongInt(NewValue), LongInt(Comperand)));
{$ENDIF} {$ENDIF}
{$ENDIF}
end; end;
@ -2344,9 +2356,13 @@ function AtomicExchange(var Target: pointer;Source : pointer) : pointer; {$ifdef
begin begin
{$IFDEF CPU64} {$IFDEF CPU64}
Result:=Pointer(InterlockedExchange64(Int64(Target),Int64(Source))); Result:=Pointer(InterlockedExchange64(Int64(Target),Int64(Source)));
{$ELSE}
{$IFDEF CPU16}
Result:=Pointer(InterlockedExchange(smallint(Target),smallint(Source)));
{$ELSE} {$ELSE}
Result:=Pointer(InterlockedExchange(LongInt(Target),LongInt(Source))); Result:=Pointer(InterlockedExchange(LongInt(Target),LongInt(Source)));
{$ENDIF} {$ENDIF}
{$ENDIF}
end; end;
function AtomicIncrement (var Target: Cardinal) : Cardinal; {$ifdef SYSTEMINLINE}inline{$endif}; function AtomicIncrement (var Target: Cardinal) : Cardinal; {$ifdef SYSTEMINLINE}inline{$endif};