diff --git a/rtl/inc/generic.inc b/rtl/inc/generic.inc index 621e364801..bd86758bc2 100644 --- a/rtl/inc/generic.inc +++ b/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;