* Two moves with a string as target are now only exectuted if the number of

  bytes to move is greater than 0. This prevents RTE201's when compiled
  with range checks enabled.

rtl/objpas/sysstr.inc

@@ -929,7 +929,8 @@ Var S,F : String;
 
 begin
   Setlength(F,fmtlen);
-  Move(fmt,F[1],fmtlen);
+  if fmtlen > 0 then
+    Move(fmt,F[1],fmtlen);
   S:=Format (F,Args);
   If cardinal(Length(S))>Buflen then
     Result:=Length(S)
@@ -1227,7 +1228,12 @@ const
 
 {
   $Log$
-  Revision 1.1.2.5  2000-12-16 15:58:18  jonas
+  Revision 1.1.2.6  2001-07-30 10:17:50  sg
+  * Two moves with a string as target are now only exectuted if the number of
+    bytes to move is greater than 0. This prevents RTE201's when compiled
+    with range checks enabled.
+
+  Revision 1.1.2.5  2000/12/16 15:58:18  jonas
     * removed warnings about possible range check errors
 
   Revision 1.1.2.4  2000/12/07 21:48:57  michael