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

* fixed trunc, now it's working at least for longint range

Browse Source
This commit is contained in:
florian 2003-04-26 17:20:16 +00:00
parent dc4694eb15
commit 96df8384cd
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/powerpc/math.inc
View File

@ -75,7 +75,7 @@
{$define FPC_SYSTEM_HAS_TRUNC}
{$warning FIX ME}
{$warning FIX ME, trunc is working only for longint}
function trunc(d : extended) : int64;assembler;[internconst:in_const_trunc];
{ input: d in fr1 }
{ output: result in r3 }
@ -89,9 +89,9 @@
asm
fctiwz f1,f1
stfd f1,temp
lwz r3,temp
lwz r4,4+temp
end ['R3','F1'];
xor r4,r4,r4
lwz r3,4+temp
end ['R3','R4','F1'];
{$define FPC_SYSTEM_HAS_ROUND}
@ -296,7 +296,10 @@ end ['R0','R3','F0','F1','F2','F3'];
{
$Log$
Revision 1.17 2003-04-23 21:28:21 peter
Revision 1.18 2003-04-26 17:20:16 florian
* fixed trunc, now it's working at least for longint range
Revision 1.17 2003/04/23 21:28:21 peter
* fpc_round added, needed for int64 currency
Revision 1.16 2003/01/16 11:29:11 olle