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

* fixed CompareByte for x86-64 after r37528

Browse Source 
git-svn-id: trunk@37535 -
This commit is contained in:
florian 2017-10-30 21:01:59 +00:00
parent 3bcf774c7b
commit 5b766a1e67
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/x86_64/x86_64.inc
View File

@ -648,8 +648,13 @@ asm
.balign 16 .balign 16
.LCmpbyteLoop: .LCmpbyteLoop:
movb (%rcx,%r8), %al {$ifdef oldbinutils}
cmpb (%rdx,%r8), %al // for the reason why this alternate coding of movzbl is given here
// see the comments in FillChar above
.byte 0x42,0x0F,0xB6,0x04,0x01
{$else}
movzbl (%rcx,%r8), %eax
{$endif} cmpb (%rdx,%r8), %al
jne .LCmpbyteExitFast jne .LCmpbyteExitFast
incq %r8 incq %r8
jne .LCmpbyteLoop jne .LCmpbyteLoop