* readd SmallInt typecasts to SmallInt overload of SwapEndian

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@46898 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 1 deletions

diff --git a/rtl/arm/arm.inc b/rtl/arm/arm.inc
index b5793f5f0c..29b5a5c1dd 100644
--- a/rtl/arm/arm.inc
+++ b/rtl/arm/arm.inc
@@ -1190,7 +1190,7 @@ function SwapEndian(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inlin
     { is turned into "longint(AValue) shr 8", so if AValue < 0 then    }
     { the sign bits from the upper 16 bits are shifted in rather than  }
     { zeroes.                                                          }
-    Result := ((Word(AValue) shr 8) or (Word(AValue) shl 8)) and $ffff;
+    Result := SmallInt(((Word(AValue) shr 8) or (Word(AValue) shl 8)) and $ffff);
   end;