Sfoglia il codice sorgente

Fix system compilation for CPU16

Pierre Muller 2 anni fa
parent
commit
032158d943
1 ha cambiato i file con 16 aggiunte e 0 eliminazioni
  1. 16 0
      rtl/inc/system.inc

+ 16 - 0
rtl/inc/system.inc

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