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

* Aligment code in fillchar proved to slow down stuff seriously instead of

Browse Source 
speeding it up. This is logical, the compiler aligns everything very well,
    it is possible that fillchar gets called on misaligned data, but it seems
    this never happens.
This commit is contained in:
daniel 2004-07-07 17:38:58 +00:00
parent d2a2aeac9f
commit 509870553d
1 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
rtl/i386/i386.inc
View File

@ -120,39 +120,30 @@ end;
{$ifndef FPC_SYSTEM_HAS_FILLCHAR}
{$define FPC_SYSTEM_HAS_FILLCHAR}
Procedure FillChar(var x;count:longint;value:byte);assembler;
var
saveedi : longint;
asm
movl %edi,saveedi
{A push is prefered over a local variable because a local
variable causes the compiler to generate a stackframe.}
cld
{$ifdef REGCALL}
push %edi
movl %eax,%edi
movb %cl,%al
movzbl %cl,%eax
movl %edx,%ecx
{$else}
movl x,%edi
movb value,%al
movl count,%ecx
movzbl value,%eax
movl %ecx,%edx
{$endif}
{ check for zero or negative count }
cmpl $0,%ecx
or %ecx,%ecx
jle .LFillEnd
cmpl $7,%ecx
jl .LFill1
movb %al,%ah
movl %eax,%edx
shll $16,%eax
movw %dx,%ax
movl %ecx,%edx
movl %edi,%ecx { Align on 32bits }
negl %ecx
andl $3,%ecx
subl %ecx,%edx
rep
stosb
movl %edx,%ecx
andl $3,%edx
imul $0x01010101,%eax { Expand al into a 4 subbytes of eax}
shrl $2,%ecx
andl $3,%edx
rep
stosl
movl %edx,%ecx
@ -160,7 +151,9 @@ asm
rep
stosb
.LFillEnd:
movl saveedi,%edi
{$ifdef REGCALL}
pop %edi
{$endif}
end;
{$endif FPC_SYSTEM_HAS_FILLCHAR}
@ -1457,7 +1450,13 @@ end;
{
$Log$
Revision 1.61 2004-04-29 20:00:47 peter
Revision 1.62 2004-07-07 17:38:58 daniel
* Aligment code in fillchar proved to slow down stuff seriously instead of
speeding it up. This is logical, the compiler aligns everything very well,
it is possible that fillchar gets called on misaligned data, but it seems
this never happens.
Revision 1.61 2004/04/29 20:00:47 peter
* inclocked_longint ifdef fixed
Revision 1.60 2004/04/26 15:55:01 peter