* readd SmallInt typecasts to SmallInt overload of SwapEndian

git-svn-id: trunk@46898 -

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;
 
 

rtl/inc/generic.inc

@@ -2663,7 +2663,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;
 
 {$ifndef cpujvm}

rtl/x86_64/x86_64.inc

@@ -1021,7 +1021,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;