paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed strcomp

Browse Source
This commit is contained in:
florian 2004-11-02 15:34:10 +00:00
parent 07c28067aa
commit b6c33aacb7
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/x86_64/strings.inc
View File

@ -165,15 +165,18 @@ asm
jmp .Lexit jmp .Lexit
.LFPC_STRCMP_NEG: .LFPC_STRCMP_NEG:
movl $1, %eax movq $1, %rax
movl $-1, %ecx movq $-1, %rcx
cmovbl %ecx, %eax cmovbq %rcx, %rax
.Lexit: .Lexit:
end; end;
{ {
$Log$ $Log$
Revision 1.4 2004-05-01 23:55:18 peter Revision 1.5 2004-11-02 15:34:10 florian
* fixed strcomp
Revision 1.4 2004/05/01 23:55:18 peter
* replace strlenint with sizeint * replace strlenint with sizeint
Revision 1.3 2004/02/18 22:00:59 peter Revision 1.3 2004/02/18 22:00:59 peter