gambit-c/gambit-c-4.8.4-fix-flonum-f...

12 lines
383 B
Diff

--- gambit-v4_8_4-devel/include/gambit.h.in.orig 2016-01-26 05:55:30.000000000 +0700
+++ gambit-v4_8_4-devel/include/gambit.h.in 2016-02-29 00:03:00.880809119 +0700
@@ -2962,7 +2962,7 @@
/* APPLY-able operations */
-#define ___F64TOFIX(x)___FIX(x)
+#define ___F64TOFIX(x)___FIX(___CAST(___WORD,x))
#define ___F64FROMFIX(x)___INT(x)
#define ___F64_0 0.0
#define ___F64POS(x)x