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

* final (? :) fix to move, passes new tests/test/tmove test

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-10 17:33:06 +00:00
parent 17906f62d2
commit a74e48302d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/powerpc/powerpc.inc
View File

@ -217,7 +217,6 @@ L8BytesAligned:
{ adjust the update count: it will now be 8 or -8 depending on overlap } { adjust the update count: it will now be 8 or -8 depending on overlap }
slwi r10,r10,1 slwi r10,r10,1
slwi r6,r6,1
{ adjust source and dest pointers: because of the above loop, dest is now } { adjust source and dest pointers: because of the above loop, dest is now }
{ aligned to 8 bytes. So if we add r6 we will still have an 8 bytes } { aligned to 8 bytes. So if we add r6 we will still have an 8 bytes }
@ -225,6 +224,8 @@ L8BytesAligned:
add r3,r3,r6 add r3,r3,r6
add r4,r4,r6 add r4,r4,r6
slwi r6,r6,1
LMove32ByteLoop: LMove32ByteLoop:
lfdux f0,r3,r10 lfdux f0,r3,r10
lfdux f1,r3,r10 lfdux f1,r3,r10
@ -886,7 +887,10 @@ end ['R3','R10'];
{ {
$Log$ $Log$
Revision 1.39 2003-05-02 19:03:25 jonas Revision 1.40 2003-05-10 17:33:06 jonas
* final (? :) fix to move, passes new tests/test/tmove test
Revision 1.39 2003/05/02 19:03:25 jonas
* fixed some bugs in move() * fixed some bugs in move()
Revision 1.38 2003/04/27 16:24:44 jonas Revision 1.38 2003/04/27 16:24:44 jonas