From 6522cd78ee50b236f932d80fca404f7b5acbf743 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?K=C3=A1roly=20Balogh?= Date: Sat, 2 Nov 2013 17:44:47 +0000 Subject: [PATCH] added some float64() casts, based on similar casts in the 32bit code path, which makes ARM to build again git-svn-id: trunk@25914 - --- rtl/inc/flt_pack.inc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/rtl/inc/flt_pack.inc b/rtl/inc/flt_pack.inc index 44c407e044..e3de128ea8 100644 --- a/rtl/inc/flt_pack.inc +++ b/rtl/inc/flt_pack.inc @@ -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}