- avoid warnings (add typecast)

rtl/inc/astrings.inc

@@ -235,7 +235,7 @@ begin
      If Size>high_of_res then
       Size:=high_of_res;
      Move (S2[1],fpc_AnsiStr_To_ShortStr[1],Size);
-     byte(fpc_AnsiStr_To_ShortStr[0]):=Size;
+     byte(fpc_AnsiStr_To_ShortStr[0]):=byte(Size);
    end;
 end;
 
@@ -841,7 +841,10 @@ end;
 
 {
   $Log$
-  Revision 1.33  2002-10-21 19:52:47  jonas
+  Revision 1.34  2002-12-07 14:34:30  carl
+    - avoid warnings (add typecast)
+
+  Revision 1.33  2002/10/21 19:52:47  jonas
     * fixed some buffer overflow errors in SetString (both short and
       ansistring versions) (merged)
 

rtl/inc/file.inc

@@ -150,7 +150,7 @@ var
   l : longint;
 Begin
   BlockWrite(f,Buf,Count,l);
-  Result:=l;
+  Result:=word(l);
 End;
 
 
@@ -174,7 +174,7 @@ var
   l : longint;
 Begin
   BlockWrite(f,Buf,Count,l);
-  Result:=l;
+  Result:=integer(l);
 End;
 
 
@@ -220,7 +220,7 @@ var
   l : longint;
 Begin
   BlockRead(f,Buf,Count,l);
-  Result:=l;
+  Result:=word(l);
 End;
 
 
@@ -246,7 +246,7 @@ var
   l : longint;
 Begin
   BlockRead(f,Buf,Count,l);
-  Result:=l;
+  Result:=integer(l);
 End;
 
 
@@ -412,7 +412,10 @@ End;
 
 {
   $Log$
-  Revision 1.5  2002-09-07 15:07:45  peter
+  Revision 1.6  2002-12-07 14:36:14  carl
+    - avoid warnings (add typecast)
+
+  Revision 1.5  2002/09/07 15:07:45  peter
     * old logs removed and tabs fixed
 
 }

rtl/inc/objects.pp

@@ -1119,7 +1119,7 @@ BEGIN
      End Else ObjType := Q^.ObjType;                  { Update object type }
    End;
    If TPCompatible Then Begin
-     ObjTypeWord := ObjType;
+     ObjTypeWord := word(ObjType);
      Write(ObjTypeWord, SizeOf(ObjTypeWord))
    end
    else
@@ -2901,7 +2901,10 @@ END;
 END.
 {
   $Log$
-  Revision 1.16  2002-10-31 13:08:04  carl
+  Revision 1.17  2002-12-07 14:37:15  carl
+    - avoid warnings (add typecast)
+
+  Revision 1.16  2002/10/31 13:08:04  carl
     * forgot to init P buffer variable = crash
 
   Revision 1.15  2002/10/31 12:47:30  carl

rtl/inc/system.inc

@@ -587,8 +587,8 @@ Procedure HandleErrorAddrFrame (Errno : longint;addr,frame : longint);[public,al
 begin
   If pointer(ErrorProc)<>Nil then
     ErrorProc(Errno,pointer(addr),pointer(frame));
-  errorcode:=Errno;
+  errorcode:=word(Errno);
-  exitcode:=Errno;
+  exitcode:=word(Errno);
   erroraddr:=pointer(addr);
   errorbase:=frame;
   halt(errorcode);
@@ -757,7 +757,10 @@ end;
 
 {
   $Log$
-  Revision 1.37  2002-11-18 18:33:51  peter
+  Revision 1.38  2002-12-07 14:36:33  carl
+    - avoid warnings (add typecast)
+
+  Revision 1.37  2002/11/18 18:33:51  peter
     * Swap(QWord) constant support
 
   Revision 1.36  2002/10/14 19:39:17  peter

rtl/inc/wstrings.inc

@@ -223,7 +223,7 @@ begin
      If Size>high_of_res then
       Size:=high_of_res;
      Wide2AnsiMoveProc(PWideChar(S2),PChar(@fpc_WideStr_To_ShortStr[1]),Size);
-     byte(fpc_WideStr_To_ShortStr[0]):=Size;
+     byte(fpc_WideStr_To_ShortStr[0]):=byte(Size);
    end;
 end;
 
@@ -913,7 +913,10 @@ end;
 
 {
   $Log$
-  Revision 1.24  2002-10-10 16:08:50  florian
+  Revision 1.25  2002-12-07 14:35:34  carl
+    - avoid warnings (add typecast)
+
+  Revision 1.24  2002/10/10 16:08:50  florian
     + several widestring/pwidechar related helpers added
 
   Revision 1.23  2002/10/02 18:21:52  peter