Explorar o código

also try to inline 32bit SwapEndian variants, as they're still reasonably simple

git-svn-id: trunk@36304 -
Károly Balogh %!s(int64=8) %!d(string=hai) anos
pai
achega
346f040a54
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      rtl/inc/generic.inc

+ 2 - 2
rtl/inc/generic.inc

@@ -2268,14 +2268,14 @@ function SwapEndian(const AValue: Word): Word;{$ifdef SYSTEMINLINE}inline;{$endi
   end;
   end;
 {$endif}
 {$endif}
 
 
-function SwapEndian(const AValue: LongInt): LongInt;
+function SwapEndian(const AValue: LongInt): LongInt;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
   begin
     Result := ((AValue shl 8) and $FF00FF00) or ((AValue shr 8) and $00FF00FF);
     Result := ((AValue shl 8) and $FF00FF00) or ((AValue shr 8) and $00FF00FF);
     Result := (Result shl 16) or (Result shr 16);
     Result := (Result shl 16) or (Result shr 16);
   end;
   end;
 
 
 {$ifndef cpujvm}
 {$ifndef cpujvm}
-function SwapEndian(const AValue: DWord): DWord;
+function SwapEndian(const AValue: DWord): DWord;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
   begin
     Result := ((AValue shl 8) and $FF00FF00) or ((AValue shr 8) and $00FF00FF);
     Result := ((AValue shl 8) and $FF00FF00) or ((AValue shr 8) and $00FF00FF);
     Result := (Result shl 16) or (Result shr 16);
     Result := (Result shl 16) or (Result shr 16);