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

* fixed srwi's after cntlzw instructions (should be 5 instead of 31)

Browse Source
This commit is contained in:
Jonas Maebe 2002-10-17 10:14:46 +00:00
parent 45d58bddec
commit e2ff3fe87a
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/powerpc/set.inc
View File

@ -331,7 +331,7 @@ asm
sub. r0,r0,r10
bdnzt cr0*4+eq,LMCOMPSETS1
cntlzw r3,r0
srwi. r3,r3,31
srwi. r3,r3,5
end ['R0','R3','R4','R10','CR0','CTR'];
@ -353,7 +353,7 @@ asm
andc. r0,r0,r10
bdnzt cr0*4+eq,LMCONTAINSSETS1
cntlzw r3,r0
srwi. r3,r3,31
srwi. r3,r3,5
end ['R0','R3','R4','R10','CR0','CTR'];
@ -523,7 +523,10 @@ end;
{
$Log$
Revision 1.15 2002-09-07 16:01:26 peter
Revision 1.16 2002-10-17 10:14:46 jonas
* fixed srwi's after cntlzw instructions (should be 5 instead of 31)
Revision 1.15 2002/09/07 16:01:26 peter
* old logs removed and tabs fixed
Revision 1.14 2002/08/18 22:11:10 florian

9
rtl/powerpc/strpas.inc
View File

@ -39,8 +39,8 @@ LStrPasLoop:
{ get remaining count for length }
mfctr r10
{ if r10 was zero (-> stopped because of zero byte), then r4 will be 32 }
{ (32 leading zero bits) -> shr 31 = 1, otherwise this will be zero }
srwi r4,r4,31
{ (32 leading zero bits) -> shr 5 = 1, otherwise this will be zero }
srwi r4,r4,5
subfic r10,r10,255
sub r10,r10,r4
@ -50,7 +50,10 @@ end ['R0','R3','R4','R10','R11','CR0','CTR'];
{
$Log$
Revision 1.7 2002-09-11 07:49:40 jonas
Revision 1.8 2002-10-17 10:14:46 jonas
* fixed srwi's after cntlzw instructions (should be 5 instead of 31)
Revision 1.7 2002/09/11 07:49:40 jonas
* fixed assembler errors
Revision 1.6 2002/09/07 16:01:26 peter