paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 21:48:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

IndexWord and IndexDWord for i386 without REP SCAS.

Browse Source
This commit is contained in:
Rika Ichinose 2023-02-09 00:11:10 +03:00 committed by FPK
parent 64319dc019
commit 71863e1b2c
1 changed files with 54 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
rtl/i386/i386.inc
View File

@ -459,35 +459,34 @@ end;
{$ifndef FPC_SYSTEM_HAS_INDEXWORD}
{$define FPC_SYSTEM_HAS_INDEXWORD}
function IndexWord_Plain(Const buf;len:SizeInt;b:word):SizeInt; assembler;
var
saveedi,saveebx : longint;
function IndexWord_Plain(Const buf;len:SizeInt;b:word):SizeInt; assembler; nostackframe;
asm
movl %edi,saveedi
movl %ebx,saveebx
movl Buf,%edi // Load String
movw b,%bx
movl Len,%ecx // Load len
xorl %eax,%eax
testl %ecx,%ecx
jz .Lcharposnotfound
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl %ecx,%edx // Copy for easy manipulation
movw %bx,%ax
repne
scasw
jne .Lcharposnotfound
incl %ecx
subl %ecx,%edx
movl %edx,%eax
jmp .Lready
.Lcharposnotfound:
movl $-1,%eax
.Lready:
movl saveedi,%edi
movl saveebx,%ebx
push %eax
cmp $1073741823, %edx
ja .LUnbounded
lea (%eax,%edx,2), %edx
cmp %edx, %eax
je .LNotFound
.LWordwise_Body:
cmp %cx, (%eax)
je .LFound
add $2, %eax
cmp %edx, %eax
jne .LWordwise_Body
.LNotFound:
pop %eax
mov $-1, %eax
ret
.LFound:
pop %edx
sub %edx, %eax
shr $1, %eax
ret
.LUnbounded:
mov %eax, %edx
jmp .LWordwise_Body
end;
function IndexWord_SSE2(const buf;len:SizeInt;b:word):SizeInt; assembler; nostackframe;
@ -626,35 +625,34 @@ end;
{$ifndef FPC_SYSTEM_HAS_INDEXDWORD}
{$define FPC_SYSTEM_HAS_INDEXDWORD}
function IndexDWord_Plain(Const buf;len:SizeInt;b:DWord):SizeInt; assembler;
var
saveedi,saveebx : longint;
function IndexDWord_Plain(Const buf;len:SizeInt;b:DWord):SizeInt; assembler; nostackframe;
asm
movl %edi,saveedi
movl %ebx,saveebx
movl %eax,%edi
movl %ecx,%ebx
movl %edx,%ecx
xorl %eax,%eax
testl %ecx,%ecx
jz .Lcharposnotfound
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl %ecx,%edx // Copy for easy manipulation
movl %ebx,%eax
repne
scasl
jne .Lcharposnotfound
incl %ecx
subl %ecx,%edx
movl %edx,%eax
jmp .Lready
.Lcharposnotfound:
movl $-1,%eax
.Lready:
movl saveedi,%edi
movl saveebx,%ebx
push %eax
cmp $536870911, %edx
ja .LUnbounded
lea (%eax,%edx,4), %edx
cmp %edx, %eax
je .LNotFound
.LDWordwise_Body:
cmp %ecx, (%eax)
je .LFound
add $4, %eax
cmp %edx, %eax
jne .LDWordwise_Body
.LNotFound:
pop %eax
mov $-1, %eax
ret
.LFound:
pop %edx
sub %edx, %eax
shr $2, %eax
ret
.LUnbounded:
mov %eax, %edx
jmp .LDWordwise_Body
end;
function IndexDWord_SSE2(const buf;len:SizeInt;b:DWord):SizeInt; assembler; nostackframe;