* Changed move (var source;var dest) to move (const source;var dest)

rtl/i386/i386.inc

@@ -23,7 +23,7 @@
 ****************************************************************************}
 
 {$define FPC_SYSTEM_HAS_MOVE}
-procedure Move(var source;var dest;count:longint);assembler;
+procedure Move(const source;var dest;count:longint);assembler;
 asm
         movl    dest,%edi
         movl    source,%esi
@@ -1196,7 +1196,10 @@ end;
 
 {
   $Log$
-  Revision 1.73  2000-05-09 06:21:58  pierre
+  Revision 1.74  2000-07-07 18:23:41  marco
+   * Changed move (var source;var dest) to move (const source;var dest)
+
+  Revision 1.73  2000/05/09 06:21:58  pierre
    * fix ingnored assembler error in IndexDWord
 
   Revision 1.72  2000/04/23 09:26:51  jonas
@@ -1272,4 +1275,4 @@ end;
     * saveregister is now working and used for assert and iocheck (which has
       been moved to system.inc because it's now system independent)
 
-}
+}

rtl/inc/generic.inc

@@ -21,7 +21,7 @@
 ****************************************************************************}
 
 {$ifndef FPC_SYSTEM_HAS_MOVE}
-procedure Move(var source;var dest;count:longint);
+procedure Move(const source;var dest;count:longint);
 type
   longintarray = array [0..maxlongint] of longint;
   bytearray    = array [0..maxlongint] of byte;
@@ -750,7 +750,10 @@ end;
 
 {
   $Log$
-  Revision 1.8  2000-03-10 13:45:31  pierre
+  Revision 1.9  2000-07-07 18:23:41  marco
+   * Changed move (var source;var dest) to move (const source;var dest)
+
+  Revision 1.8  2000/03/10 13:45:31  pierre
    * small fixes
 
   Revision 1.7  2000/02/09 16:59:29  peter
@@ -770,4 +773,4 @@ end;
        WARNING these are not yet TESTED !!!
      + FPC_CHARARRAY_TO_SHORTSTRING added
 
-}
+}

rtl/inc/systemh.inc

@@ -165,7 +165,7 @@ var
                         Processor specific routines
 ****************************************************************************}
 
-Procedure Move(Var source,dest;count:Longint);
+Procedure Move(const source,dest;count:Longint);
 Procedure FillChar(Var x;count:Longint;Value:Boolean);
 Procedure FillChar(Var x;count:Longint;Value:Char);
 Procedure FillChar(Var x;count:Longint;Value:Byte);
@@ -445,7 +445,10 @@ const
 
 {
   $Log$
-  Revision 1.85  2000-06-22 18:41:25  peter
+  Revision 1.86  2000-07-07 18:23:41  marco
+   * Changed move (var source;var dest) to move (const source;var dest)
+
+  Revision 1.85  2000/06/22 18:41:25  peter
     * moved islibrary,isconsole,ismulithread to systemh as they are
       os independent
 
@@ -530,4 +533,4 @@ const
   Revision 1.62  1999/08/19 11:16:13  peter
     * settextbuf size is now longint
 
-}
+}