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

* fixed FillChar

Browse Source
This commit is contained in:
Jonas Maebe 2003-04-26 17:35:15 +00:00
parent b5d749d24d
commit b334226225
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/powerpc/powerpc.inc
View File

@ -341,7 +341,7 @@ L32ByteAlignLoopDone:
{ get the amount of 32 byte blocks } { get the amount of 32 byte blocks }
srwi r10,r4,5 srwi r10,r4,5
{ and keep the rest in r4 (recording whether there is any rest) } { and keep the rest in r4 (recording whether there is any rest) }
rlwinm. r4,r4,0,31-5+2,31 rlwinm. r4,r4,0,31-5+1,31
{ move to ctr } { move to ctr }
mtctr r10 mtctr r10
{ check how many rest there is (to decide whether we'll use } { check how many rest there is (to decide whether we'll use }
@ -357,7 +357,7 @@ LFillCharDCBZLoop:
bdnz LFillCharDCBZLoop bdnz LFillCharDCBZLoop
{ if there was no rest, we're finished } { if there was no rest, we're finished }
beq LFillCharDone beq LFillCharDone
b LFillCharSmall b LFillCharVerySmall
LFillCharNoZero: LFillCharNoZero:
{$ifdef ABI_AIX} {$ifdef ABI_AIX}
stw r5,0(sp) stw r5,0(sp)
@ -381,6 +381,7 @@ LFillChar32ByteLoop:
bdnz LFillChar32ByteLoop bdnz LFillChar32ByteLoop
{ if there was no rest, we're finished } { if there was no rest, we're finished }
beq LFillCharDone beq LFillCharDone
b LFillCharVerySmall
LFillCharSmall: LFillCharSmall:
{ when we arrive here, we're already 4 byte aligned } { when we arrive here, we're already 4 byte aligned }
{ get count div 4 to store dwords } { get count div 4 to store dwords }
@ -874,7 +875,10 @@ end ['R3','R10'];
{ {
$Log$ $Log$
Revision 1.34 2003-04-26 12:05:10 florian Revision 1.35 2003-04-26 17:35:15 jonas
* fixed FillChar
Revision 1.34 2003/04/26 12:05:10 florian
* removed object/class helpers, the compiler uses the generic ones * removed object/class helpers, the compiler uses the generic ones
Revision 1.33 2003/04/26 11:55:52 florian Revision 1.33 2003/04/26 11:55:52 florian