* Fixed warning and notes.

git-svn-id: trunk@10899 -

rtl/inc/generic.inc

@@ -1711,7 +1711,7 @@ function SwapEndian(const AValue: SmallInt): SmallInt;
     { 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 := SmallInt((Word(AValue) shr 8) or (AValue shl 8));
+    Result := SmallInt((Word(AValue) shr 8) or (Word(AValue) shl 8));
   end;
 
 

rtl/win32/system.pp

@@ -1014,7 +1014,6 @@ Function ErrorWrite(Var F: TextRec): Integer;
   An error message should always end with #13#10#13#10
 }
 var
-  p : pchar;
   i : longint;
 Begin
   while F.BufPos>0 do

rtl/wince/system.pp

@@ -1674,7 +1674,6 @@ Function ErrorWrite(Var F: TextRec): Integer;
   An error message should always end with #13#10#13#10
 }
 var
-  p : pchar;
   i : longint;
 Begin
   while F.BufPos>0 do