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

* changed access of globals to be indirect via TOC

Browse Source
This commit is contained in:
olle 2003-01-16 11:29:11 +00:00
parent 5e2e0e48d2
commit e45d57fd4f
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/powerpc/math.inc
View File

@ -227,7 +227,8 @@ asm
lis r3,longint_to_real_helper@ha
lfd f1,longint_to_real_helper@l(r3)
{$else}
lfd f1,longint_to_real_helper(r2)
lwz r3,longint_to_real_helper[TC](r2)
lfd f1,0(r3)
{$endif}
lfd f0,temp
stw r4,4+temp
@ -239,9 +240,11 @@ asm
lfd f3,temp
lfd f2,int_to_real_factor@l(r3)
{$else}
lfd f1,cardinal_to_real_helper(r2)
lwz r4,cardinal_to_real_helper[TC](r2)
lwz r3,int_to_real_factor[TC](r2)
lfd f3,temp
lfd f2,int_to_real_factor(r2)
lfd f1,0(r4)
lfd f2,0(r3)
{$endif}
fsub f3,f3,f1
fmadd f1,f0,f2,f3
@ -267,7 +270,8 @@ asm
lis r3,cardinal_to_real_helper@ha
lfd f1,cardinal_to_real_helper@l(r3)
{$else}
lfd f1,cardinal_to_real_helper(r2)
lwz r3,longint_to_real_helper[TC](r2)
lfd f1,0(r3)
{$endif}
stw r4,4+temp
fsub f0,f0,f1
@ -276,7 +280,8 @@ asm
lis r3,int_to_real_factor@ha
lfd f2,int_to_real_factor@l(r3)
{$else}
lfd f2,int_to_real_factor(r2)
lwz r3,int_to_real_factor[TC](r2)
lfd f2,0(r3)
{$endif}
fsub f3,f3,f1
fmadd f1,f0,f2,f3
@ -285,7 +290,10 @@ end ['R0','R3','F0','F1','F2','F3'];
{
$Log$
Revision 1.15 2003-01-15 01:09:04 florian
Revision 1.16 2003-01-16 11:29:11 olle
* changed access of globals to be indirect via TOC
Revision 1.15 2003/01/15 01:09:04 florian
* changed power(...) prototype to int64
Revision 1.14 2002/11/28 11:04:16 olle