--- /dev/null
+\r
+#include <stdbool.h>\r
+#include <stdint.h>\r
+#include "platform.h"\r
+#include "primitives.h"\r
+#include "internals.h"\r
+#include "softfloat.h"\r
+\r
+int_fast64_t f32_to_i64( float32_t a, int_fast8_t roundingMode, bool exact )\r
+{\r
+ union ui32_f32 uA;\r
+ uint_fast32_t uiA;\r
+ bool sign;\r
+ int_fast16_t exp;\r
+ uint_fast32_t sig;\r
+ int_fast16_t shiftCount;\r
+ uint_fast64_t sig64, extra;\r
+ struct uint64_extra sig64Extra;\r
+\r
+ uA.f = a;\r
+ uiA = uA.ui;\r
+ sign = signF32UI( uiA );\r
+ exp = expF32UI( uiA );\r
+ sig = fracF32UI( uiA );\r
+ shiftCount = 0xBE - exp;\r
+ if ( shiftCount < 0 ) {\r
+ softfloat_raiseFlags( softfloat_flag_invalid );\r
+ if ( ! sign || ( ( exp == 0xFF ) && sig ) ) {\r
+ return INT64_C( 0x7FFFFFFFFFFFFFFF );\r
+ }\r
+ return - INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1;\r
+ }\r
+ if ( exp ) sig |= 0x00800000;\r
+ sig64 = (uint_fast64_t) sig<<40;\r
+ extra = 0;\r
+ if ( shiftCount ) {\r
+ sig64Extra = softfloat_shift64ExtraRightJam( sig64, 0, shiftCount );\r
+ sig64 = sig64Extra.v;\r
+ extra = sig64Extra.extra;\r
+ }\r
+ return softfloat_roundPackToI64( sign, sig64, extra, roundingMode, exact );\r
+\r
+}\r
+\r