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

* fixed fpc_int64_to_double and fpc_int64_to_double (fpc_int64_to_double

Browse Source 
is now mostly tested and should work fine, fpc_qword_to_double should
    work too since it's almost the same)
This commit is contained in:
Jonas Maebe 2001-10-30 17:18:14 +00:00
parent f5675de287
commit 6fbd6e2e6d
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/powerpc/math.inc
View File

@ -202,7 +202,7 @@ var
1: (d: double); 1: (d: double);
end; end;
asm asm
li r0,$43300000 lis r0,$4330
stw r0,temp.l1 stw r0,temp.l1
xoris r3,r3,$8000 xoris r3,r3,$8000
stw r3,temp.l2 stw r3,temp.l2
@ -210,13 +210,13 @@ asm
lfd fr1,longint_to_real_helper@l(r3) lfd fr1,longint_to_real_helper@l(r3)
lfd fr0,temp.d lfd fr0,temp.d
stw r4,temp.l2 stw r4,temp.l2
fsub fr0,fr1,fr0 fsub fr0,fr0,fr1
lis r4,cardinal_to_real_helper@ha lis r4,cardinal_to_real_helper@ha
lfd fr1,cardinal_to_real_helper@l(r4) lfd fr1,cardinal_to_real_helper@l(r4)
lis r3,int_to_real_factor@ha lis r3,int_to_real_factor@ha
lfd fr3,temp lfd fr3,temp
lfd fr2,int_to_real_factor@l(r3) lfd fr2,int_to_real_factor@l(r3)
fsub fr3,fr1,fr3 fsub fr3,fr3,fr1
fmadd fr0,fr0,fr2,fr3 fmadd fr0,fr0,fr2,fr3
end ['r0','r3','r4','fr0','fr1','fr2','fr3']; end ['r0','r3','r4','fr0','fr1','fr2','fr3'];
@ -233,18 +233,18 @@ var
1: (d: double); 1: (d: double);
end; end;
asm asm
li r0,$43300000 lis r0,$4330
stw r0,temp.l1 stw r0,temp.l1
stw r3,temp.l2 stw r3,temp.l2
lfd fr0,temp.d lfd fr0,temp.d
lis r3,cardinal_to_real_helper@ha lis r3,cardinal_to_real_helper@ha
lfd fr1,cardinal_to_real_helper@l(r3) lfd fr1,cardinal_to_real_helper@l(r3)
stw r4,temp.l2 stw r4,temp.l2
fsub fr0,fr1,fr0 fsub fr0,fr0,fr1
lfd fr3,temp lfd fr3,temp
lis r3,int_to_real_factor@ha lis r3,int_to_real_factor@ha
lfd fr2,int_to_real_factor@l(r3) lfd fr2,int_to_real_factor@l(r3)
fsub fr3,fr1,fr3 fsub fr3,fr3,fr1
fmadd fr0,fr0,fr2,fr3 fmadd fr0,fr0,fr2,fr3
end ['r0','r3','fr0','fr1','fr2','fr3']; end ['r0','r3','fr0','fr1','fr2','fr3'];
@ -252,8 +252,13 @@ end ['r0','r3','fr0','fr1','fr2','fr3'];
{ {
$Log$ $Log$
Revision 1.1 2001-10-28 14:09:13 jonas Revision 1.2 2001-10-30 17:18:14 jonas
* fixed fpc_int64_to_double and fpc_int64_to_double (fpc_int64_to_double
is now mostly tested and should work fine, fpc_qword_to_double should
work too since it's almost the same)
Revision 1.1 2001/10/28 14:09:13 jonas
+ initial implementation, lots of things still missing + initial implementation, lots of things still missing
} }