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

* fixed comparedword in case len=0

Browse Source 
git-svn-id: trunk@8815 -
This commit is contained in:
Jonas Maebe 2007-10-15 13:44:57 +00:00
parent 0d1c396521
commit cc843f5f62
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/i386/i386.inc
View File

@ -421,9 +421,9 @@ asm
movl %edx,%esi movl %edx,%esi
movl %ecx,%eax movl %ecx,%eax
{$else} {$else}
movl len,%eax
movl buf2,%esi { Load params} movl buf2,%esi { Load params}
movl buf1,%edi movl buf1,%edi
movl len,%eax
{$endif} {$endif}
testl %eax,%eax {We address -1(%esi), so we have to deal with len=0} testl %eax,%eax {We address -1(%esi), so we have to deal with len=0}
je .LCmpbyteExit je .LCmpbyteExit
@ -479,9 +479,9 @@ asm
movl %edx,%esi movl %edx,%esi
movl %ecx,%eax movl %ecx,%eax
{$else} {$else}
movl len,%eax
movl buf2,%esi { Load params} movl buf2,%esi { Load params}
movl buf1,%edi movl buf1,%edi
movl len,%eax
{$endif} {$endif}
testl %eax,%eax {We address -2(%esi), so we have to deal with len=0} testl %eax,%eax {We address -2(%esi), so we have to deal with len=0}
je .LCmpwordExit je .LCmpwordExit
@ -544,13 +544,16 @@ asm
{$ifdef REGCALL} {$ifdef REGCALL}
movl %eax,%edi movl %eax,%edi
movl %edx,%esi movl %edx,%esi
movl %ecx,%eax
{$else} {$else}
movl len,%ecx
movl buf2,%esi { Load params} movl buf2,%esi { Load params}
movl buf1,%edi movl buf1,%edi
movl len,%eax
movl %eax,%ecx
{$endif} {$endif}
testl %ecx,%ecx testl %eax,%eax
je .LCmpDwordExit je .LCmpDwordExit
movl %eax,%ecx
xorl %eax,%eax xorl %eax,%eax
rep { Compare entire DWords} rep { Compare entire DWords}
cmpsl cmpsl