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

* fixed qword_to_double conversion on powerpc

Browse Source
This commit is contained in:
florian 2003-09-04 16:07:31 +00:00
parent dfd60cb507
commit ed7610985b
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/systemh.inc
View File

@ -123,6 +123,8 @@ Type
{$define SUPPORT_SINGLE} {$define SUPPORT_SINGLE}
{$define SUPPORT_DOUBLE} {$define SUPPORT_DOUBLE}
{$define FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE}
ValSInt = Longint; ValSInt = Longint;
ValUInt = Cardinal; ValUInt = Cardinal;
ValReal = Double; ValReal = Double;
@ -690,7 +692,10 @@ const
{ {
$Log$ $Log$
Revision 1.71 2003-09-03 14:09:37 florian Revision 1.72 2003-09-04 16:07:31 florian
* fixed qword_to_double conversion on powerpc
Revision 1.71 2003/09/03 14:09:37 florian
* arm fixes to the common rtl code * arm fixes to the common rtl code
* some generic math code fixed * some generic math code fixed
* ... * ...

6
rtl/powerpc/math.inc
View File

@ -386,6 +386,7 @@ asm
end; end;
{$define FPC_SYSTEM_HAS_QWORD_TO_DOUBLE}
function fpc_qword_to_double(q: qword): double; compilerproc; function fpc_qword_to_double(q: qword): double; compilerproc;
assembler; assembler;
{ input: high(q) in r4, low(q) in r3 } { input: high(q) in r4, low(q) in r3 }
@ -425,7 +426,10 @@ end;
{ {
$Log$ $Log$
Revision 1.28 2003-09-03 14:09:37 florian Revision 1.29 2003-09-04 16:07:31 florian
* fixed qword_to_double conversion on powerpc
Revision 1.28 2003/09/03 14:09:37 florian
* arm fixes to the common rtl code * arm fixes to the common rtl code
* some generic math code fixed * some generic math code fixed
* ... * ...