Forráskód Böngészése

* made SwapEndian(<16 Bit>); inlined

git-svn-id: trunk@13453 -
florian 16 éve
szülő
commit
6ff15f46e2
1 módosított fájl, 4 hozzáadás és 4 törlés
  1. 4 4
      rtl/inc/generic.inc

+ 4 - 4
rtl/inc/generic.inc

@@ -1784,7 +1784,7 @@ end;
 {$endif}
 
 {$ifndef FPC_SYSTEM_HAS_SWAPENDIAN}
-function SwapEndian(const AValue: SmallInt): SmallInt;
+function SwapEndian(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
     { the extra Word type cast is necessary because the "AValue shr 8" }
     { is turned into "longint(AValue) shr 8", so if AValue < 0 then    }
@@ -1794,7 +1794,7 @@ function SwapEndian(const AValue: SmallInt): SmallInt;
   end;
 
 
-function SwapEndian(const AValue: Word): Word;
+function SwapEndian(const AValue: Word): Word;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
     Result := Word((AValue shr 8) or (AValue shl 8));
   end;
@@ -2112,7 +2112,7 @@ function RorByte(Const AValue : Byte): Byte;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
     Result:=(AValue shr 1) or (AValue shl 7);
   end;
-  
+
 
 function RorByte(Const AValue : Byte;Dist : Byte): Byte;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
@@ -2144,7 +2144,7 @@ function RorWord(Const AValue : Word): Word;{$ifdef SYSTEMINLINE}inline;{$endif}
     Result:=(AValue shr 1) or (AValue shl 15);
   end;
 
-  
+
 function RorWord(Const AValue : Word;Dist : Byte): Word;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
     Dist:=Dist and 15;