Browse Source

* FPC_MOVE alias

peter 21 years ago
parent
commit
b4474438d9
3 changed files with 15 additions and 6 deletions
  1. 5 2
      rtl/i386/i386.inc
  2. 5 2
      rtl/inc/generic.inc
  3. 5 2
      rtl/x86_64/x86_64.inc

+ 5 - 2
rtl/i386/i386.inc

@@ -35,7 +35,7 @@ end;
 
 
 {$ifndef FPC_SYSTEM_HAS_MOVE}
 {$ifndef FPC_SYSTEM_HAS_MOVE}
 {$define FPC_SYSTEM_HAS_MOVE}
 {$define FPC_SYSTEM_HAS_MOVE}
-procedure Move(const source;var dest;count:longint);assembler;
+procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];assembler;
 var
 var
   saveesi,saveedi : longint;
   saveesi,saveedi : longint;
 asm
 asm
@@ -1457,7 +1457,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.59  2004-02-05 01:16:12  florian
+  Revision 1.60  2004-04-26 15:55:01  peter
+    * FPC_MOVE alias
+
+  Revision 1.59  2004/02/05 01:16:12  florian
     + completed x86-64/linux system unit
     + completed x86-64/linux system unit
 
 
   Revision 1.58  2004/01/11 11:10:07  jonas
   Revision 1.58  2004/01/11 11:10:07  jonas

+ 5 - 2
rtl/inc/generic.inc

@@ -23,7 +23,7 @@ type
   pstring = ^shortstring;
   pstring = ^shortstring;
 
 
 {$ifndef FPC_SYSTEM_HAS_MOVE}
 {$ifndef FPC_SYSTEM_HAS_MOVE}
-procedure Move(const source;var dest;count:longint);
+procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];
 type
 type
   bytearray    = array [0..maxlongint-1] of byte;
   bytearray    = array [0..maxlongint-1] of byte;
 var
 var
@@ -1139,7 +1139,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.69  2004-02-02 20:39:27  florian
+  Revision 1.70  2004-04-26 15:55:01  peter
+    * FPC_MOVE alias
+
+  Revision 1.69  2004/02/02 20:39:27  florian
     + added prefetch(const mem)
     + added prefetch(const mem)
 
 
   Revision 1.68  2004/01/31 16:14:24  florian
   Revision 1.68  2004/01/31 16:14:24  florian

+ 5 - 2
rtl/x86_64/x86_64.inc

@@ -71,7 +71,7 @@ end ['RAX'];
 
 
 (*
 (*
 {$define FPC_SYSTEM_HAS_MOVE}
 {$define FPC_SYSTEM_HAS_MOVE}
-procedure Move(const source;var dest;count:longint);assembler;
+procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];assembler;
   asm
   asm
      { rdi destination
      { rdi destination
        rsi source
        rsi source
@@ -306,7 +306,10 @@ const
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.9  2004-04-22 20:20:16  peter
+  Revision 1.10  2004-04-26 15:55:01  peter
+    * FPC_MOVE alias
+
+  Revision 1.9  2004/04/22 20:20:16  peter
     * get_caller_addr fixed
     * get_caller_addr fixed
 
 
   Revision 1.8  2004/04/21 21:26:51  florian
   Revision 1.8  2004/04/21 21:26:51  florian