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

* changed in temp+4 to 4+temp, to be compatible with PPCAsm

Browse Source
This commit is contained in:
olle 2003-12-07 17:54:53 +00:00
parent 62394e45d7
commit 0b2afad6e8
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/powerpc/math.inc
View File

@ -102,12 +102,12 @@ const
// store // store
stfd f4,temp stfd f4,temp
// and load into r4 // and load into r4
lwz r3,temp+4 lwz r3,4+temp
// convert back to float // convert back to float
lis r0,0x4330 lis r0,0x4330
stw r0,temp stw r0,temp
xoris r0,r3,0x8000 xoris r0,r3,0x8000
stw r0,temp+4 stw r0,4+temp
{$ifndef macos} {$ifndef macos}
lis r4,longint_to_real_helper@ha lis r4,longint_to_real_helper@ha
lfd f0,longint_to_real_helper@l(r4) lfd f0,longint_to_real_helper@l(r4)
@ -143,7 +143,7 @@ const
// next part same as conversion to signed integer word // next part same as conversion to signed integer word
fctiwz f4,f4 fctiwz f4,f4
stfd f4,temp stfd f4,temp
lwz r4,temp+4 lwz r4,4+temp
// add 2^31 if value was >=2^31 // add 2^31 if value was >=2^31
blt cr1, .LTruncNoAdd blt cr1, .LTruncNoAdd
xoris r4,r4,0x8000 xoris r4,r4,0x8000
@ -198,12 +198,12 @@ const
// store // store
stfd f4,temp stfd f4,temp
// and load into r4 // and load into r4
lwz r3,temp+4 lwz r3,4+temp
// convert back to float // convert back to float
lis r0,0x4330 lis r0,0x4330
stw r0,temp stw r0,temp
xoris r0,r3,0x8000 xoris r0,r3,0x8000
stw r0,temp+4 stw r0,4+temp
{$ifndef macos} {$ifndef macos}
lis r4,longint_to_real_helper@ha lis r4,longint_to_real_helper@ha
lfd f0,longint_to_real_helper@l(r4) lfd f0,longint_to_real_helper@l(r4)
@ -239,7 +239,7 @@ const
// next part same as conversion to signed integer word // next part same as conversion to signed integer word
fctiw f4,f4 fctiw f4,f4
stfd f4,temp stfd f4,temp
lwz r4,temp+4 lwz r4,4+temp
// add 2^31 if value was >=2^31 // add 2^31 if value was >=2^31
blt cr1, .LRoundNoAdd blt cr1, .LRoundNoAdd
xoris r4,r4,0x8000 xoris r4,r4,0x8000
@ -357,7 +357,7 @@ asm
lis r0,0x4330 lis r0,0x4330
stw r0,temp stw r0,temp
xoris r3,r3,0x8000 xoris r3,r3,0x8000
stw r3,temp+4 stw r3,4+temp
{$ifndef macos} {$ifndef macos}
lis r3,longint_to_real_helper@ha lis r3,longint_to_real_helper@ha
lfd f1,longint_to_real_helper@l(r3) lfd f1,longint_to_real_helper@l(r3)
@ -366,7 +366,7 @@ asm
lfd f1,0(r3) lfd f1,0(r3)
{$endif} {$endif}
lfd f0,temp lfd f0,temp
stw r4,temp+4 stw r4,4+temp
fsub f0,f0,f1 fsub f0,f0,f1
{$ifndef macos} {$ifndef macos}
lis r4,cardinal_to_real_helper@ha lis r4,cardinal_to_real_helper@ha
@ -400,7 +400,7 @@ var
asm asm
lis r0,0x4330 lis r0,0x4330
stw r0,temp stw r0,temp
stw r3,temp+4 stw r3,4+temp
lfd f0,temp lfd f0,temp
{$ifndef macos} {$ifndef macos}
lis r3,cardinal_to_real_helper@ha lis r3,cardinal_to_real_helper@ha
@ -409,7 +409,7 @@ asm
lwz r3,longint_to_real_helper[TC](r2) lwz r3,longint_to_real_helper[TC](r2)
lfd f1,0(r3) lfd f1,0(r3)
{$endif} {$endif}
stw r4,temp+4 stw r4,4+temp
fsub f0,f0,f1 fsub f0,f0,f1
lfd f3,temp lfd f3,temp
{$ifndef macos} {$ifndef macos}
@ -426,7 +426,10 @@ end;
{ {
$Log$ $Log$
Revision 1.30 2003-11-15 19:01:27 florian Revision 1.31 2003-12-07 17:54:53 olle
* changed in temp+4 to 4+temp, to be compatible with PPCAsm
Revision 1.30 2003/11/15 19:01:27 florian
* fixed rtl to work with the integrated fpc ppc assembler reader * fixed rtl to work with the integrated fpc ppc assembler reader
Revision 1.29 2003/09/04 16:07:31 florian Revision 1.29 2003/09/04 16:07:31 florian