Browse Source

* commented out broken fillchar and move

florian 21 years ago
parent
commit
f92fd26490
1 changed files with 10 additions and 5 deletions
  1. 10 5
      rtl/x86_64/x86_64.inc

+ 10 - 5
rtl/x86_64/x86_64.inc

@@ -68,9 +68,9 @@ asm
         movq    (%rax),%rax
         movq    (%rax),%rax
 .Lgnf_null:
 .Lgnf_null:
 end ['RAX'];
 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);assembler;
   asm
   asm
      { rdi destination
      { rdi destination
@@ -167,8 +167,9 @@ procedure Move(const source;var dest;count:longint);assembler;
      sfence
      sfence
      popq %rbx
      popq %rbx
   end;
   end;
+*)
 
 
-
+(*
 {$define FPC_SYSTEM_HAS_FILLCHAR}
 {$define FPC_SYSTEM_HAS_FILLCHAR}
 Procedure FillChar(var x;count:longint;value:byte);assembler;
 Procedure FillChar(var x;count:longint;value:byte);assembler;
   asm
   asm
@@ -242,6 +243,7 @@ Procedure FillChar(var x;count:longint;value:byte);assembler;
 .Lende:
 .Lende:
      movq       %r10,%rax
      movq       %r10,%rax
   end;
   end;
+*)
 
 
 {$define FPC_SYSTEM_HAS_DECLOCKED}
 {$define FPC_SYSTEM_HAS_DECLOCKED}
 { does a thread save inc/dec }
 { does a thread save inc/dec }
@@ -304,7 +306,10 @@ const
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.7  2004-02-23 15:52:15  peter
+  Revision 1.8  2004-04-21 21:26:51  florian
+    * commented out broken fillchar and move
+
+  Revision 1.7  2004/02/23 15:52:15  peter
     * don't use ret
     * don't use ret
 
 
   Revision 1.6  2004/02/06 15:58:21  florian
   Revision 1.6  2004/02/06 15:58:21  florian
@@ -324,4 +329,4 @@ const
 
 
   Revision 1.1  2003/01/06 19:40:18  florian
   Revision 1.1  2003/01/06 19:40:18  florian
     + initial revision
     + initial revision
-}
+}