paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 06:48:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* commented out broken fillchar and move

Browse Source
This commit is contained in:
florian 2004-04-21 21:26:51 +00:00
parent 409dac05a4
commit f92fd26490
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/x86_64/x86_64.inc
View File

@ -68,9 +68,9 @@ asm
movq (%rax),%rax
.Lgnf_null:
end ['RAX'];
(*
{$define FPC_SYSTEM_HAS_MOVE}
procedure Move(const source;var dest;count:longint);assembler;
asm
{ rdi destination
@ -167,8 +167,9 @@ procedure Move(const source;var dest;count:longint);assembler;
sfence
popq %rbx
end;
*)
(*
{$define FPC_SYSTEM_HAS_FILLCHAR}
Procedure FillChar(var x;count:longint;value:byte);assembler;
asm
@ -242,6 +243,7 @@ Procedure FillChar(var x;count:longint;value:byte);assembler;
.Lende:
movq %r10,%rax
end;
*)
{$define FPC_SYSTEM_HAS_DECLOCKED}
{ does a thread save inc/dec }
@ -304,7 +306,10 @@ const
{
$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
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
+ initial revision
}
}