paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 14:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added CLDs in the RTL i386 inline asm routines, wrapped in {$ifdef

Browse Source 
FPC_ENABLED_CLD}.

git-svn-id: trunk@25606 -
This commit is contained in:
nickysn 2013-09-29 10:53:49 +00:00
parent 4929bc5694
commit 4b3bf874df
3 changed files with 74 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/i386/fastmove.inc
View File

@ -373,6 +373,9 @@ end; {SmallBackwardMove}
}
procedure Forwards_Valgrind;assembler;nostackframe;
asm
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
push esi
push edi
mov esi,eax
@ -545,6 +548,9 @@ asm
add eax,8
jnz @MMXcopyloop
emms {Empty MMX State}
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
add ecx,ebx
shr ecx,2
rep movsd

26
rtl/i386/i386.inc
View File

@ -159,7 +159,9 @@ asm
jb .LBMove { Dest is in range of move, do backward }
{ Forward Copy }
.LFMove:
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
cmpl $15,%edx
jl .LFMove1
movl %edi,%ecx { Align on 32bits }
@ -233,7 +235,9 @@ asm
ret
.LFillFull:
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
push %edi
movl %eax,%edi
movzbl %cl,%eax
@ -271,7 +275,9 @@ asm
orl %edx,%eax
movl %ecx,%edx
shrl $1,%ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
rep
stosl
movl %edx,%ecx
@ -297,7 +303,9 @@ asm
{ check for zero or negative count }
cmpl $0,%ecx
jle .LFillDWordEnd
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
rep
stosl
.LFillDWordEnd:
@ -453,7 +461,9 @@ asm
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
@ -486,7 +496,9 @@ asm
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
@ -537,7 +549,9 @@ asm
.LCmpbyteFull:
pushl %esi
pushl %edi
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl %eax,%edi
movl %edx,%esi
movl %ecx,%eax
@ -610,7 +624,9 @@ asm
pushl %esi
pushl %edi
pushl %ebx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl %eax,%edi
movl %edx,%esi
movl %ecx,%eax
@ -698,7 +714,9 @@ asm
.LCmpDWordFull:
pushl %esi
pushl %edi
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl %eax,%edi
movl %edx,%esi
xorl %eax,%eax
@ -777,7 +795,9 @@ procedure fpc_shortstr_to_shortstr(out res:shortstring; const sstr: shortstring)
{$endif FPC_PROFILE}
movl %edi,saveedi
movl %esi,saveesi
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl res,%edi
movl sstr,%esi
movl %edx,%ecx
@ -824,7 +844,9 @@ begin
{$endif FPC_PROFILE}
pushl %eax
pushl %ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl dstr,%edi
movl sstr,%esi
xorl %eax,%eax
@ -879,7 +901,9 @@ asm
movl %edi,saveedi
movl %esi,saveesi
movl %ebx,saveebx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl right,%esi
movl left,%edi
movzbl (%esi),%eax
@ -1049,7 +1073,9 @@ asm
movl %eax,%edi
movl $0xffffffff,%ecx
xorl %eax,%eax
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
repne
scasb
movl $0xfffffffe,%eax

42
rtl/i386/set.inc
View File

@ -32,6 +32,9 @@ asm
movl %edi,saveedi
movl __RESULT,%edi
movl l,%eax
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
stosl
xorl %eax,%eax
movl $7,%ecx
@ -54,6 +57,9 @@ asm
movzbl b,%edx
xorl %eax,%eax
movl $8,%ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
rep
stosl
leal -32(%edi),%eax
@ -76,6 +82,9 @@ asm
movl __RESULT,%edi
movzbl b,%edx
movl $8,%ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
rep
movsl
leal -32(%edi),%eax
@ -98,6 +107,9 @@ asm
movl __RESULT,%edi
movzbl b,%edx
movl $8,%ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
rep
movsl
leal -32(%edi),%eax
@ -126,6 +138,9 @@ asm
movb %bl,saveh
movl $8,%ecx // we have to copy 32 bytes
cmpl %eax,%ebx // high < low?
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
rep // copy source to dest (it's possible to do the range
movsl // setting and copying simultanuously of course, but
// that would result in many more jumps and code)
@ -205,6 +220,9 @@ asm
movl set2,%edx
movl __RESULT,%edi
{$endif}
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl $8,%ecx
.LMADDSETS1:
lodsl
@ -238,6 +256,9 @@ asm
movl set2,%edx
movl __RESULT,%edi
{$endif}
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl $8,%ecx
.LMMULSETS1:
lodsl
@ -272,6 +293,9 @@ asm
movl set2,%ebx
movl __RESULT,%edi
{$endif}
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl $8,%ecx
.LMSUBSETS1:
lodsl
@ -308,6 +332,9 @@ asm
movl set2,%edx
movl __RESULT,%edi
{$endif}
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
movl $8,%ecx
.LMSYMDIFSETS1:
lodsl
@ -437,6 +464,9 @@ asm
movl set2,%ebx
movl dest,%edi
movl size,%ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
.LMADDSETSIZES1:
lodsl
orl (%ebx),%eax
@ -457,6 +487,9 @@ asm
movl set2,%ebx
movl dest,%edi
movl size,%ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
.LMMULSETSIZES1:
lodsl
andl (%ebx),%eax
@ -473,6 +506,9 @@ asm
movl set2,%ebx
movl dest,%edi
movl size,%ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
.LMSUBSETSIZES1:
lodsl
movl (%ebx),%edx
@ -494,6 +530,9 @@ asm
movl set2,%ebx
movl dest,%edi
movl size,%ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
.LMSYMDIFSETSIZE1:
lodsl
movl (%ebx),%edx
@ -510,6 +549,9 @@ asm
movl set1,%esi
movl set2,%edi
movl size,%ecx
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
.LMCOMPSETSIZES1:
lodsl
movl (%edi),%edx