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

added some float64() casts, based on similar casts in the 32bit code path, which makes ARM to build again

Browse Source 
git-svn-id: trunk@25914 -
This commit is contained in:
Károly Balogh 2013-11-02 17:44:47 +00:00
parent b147693cc5
commit 6522cd78ee
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/flt_pack.inc
View File

@ -124,9 +124,9 @@ end;
function unpack_float( const f: ValReal; out minus: boolean ): TDIY_FP; {$ifdef grisu1_inline}inline;{$endif}
begin
unpack_float.f := extractFloat64Frac( f );
unpack_float.e := extractFloat64Exp( f );
minus := ( extractFloat64Sign( f ) <> 0 );
unpack_float.f := extractFloat64Frac( float64( f ) );
unpack_float.e := extractFloat64Exp( float64( f ) );
minus := ( extractFloat64Sign( float64( f ) ) <> 0 );
end;
{$else not fpc_softfpu_implementation}