From 964011c39b0c44916c5db04421501d7f026c3edc Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 28 Dec 2009 22:59:57 +0900 Subject: [PATCH] fixing build for immediate flonums on 32-bit machines --- include/chibi/sexp.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/include/chibi/sexp.h b/include/chibi/sexp.h index 44b7cc7a..09254723 100644 --- a/include/chibi/sexp.h +++ b/include/chibi/sexp.h @@ -401,7 +401,7 @@ SEXP_API float sexp_flonum_value (sexp x); SEXP_API sexp sexp_make_flonum(sexp ctx, float f); #else #define sexp_make_flonum(ctx, x) ((sexp) ((((union sexp_flonum_conv)((float)(x))).bits & ~SEXP_IMMEDIATE_MASK) + SEXP_IFLONUM_TAG)) -#define sexp_flonum_value(x) (((union sexp_flonum_conv)(((sexp_uint_t)(x)) & ~SEXP_IMMEDIATE_MASK)).flonum) +#define sexp_flonum_value(x) (((union sexp_flonum_conv)(((unsigned int)(x)) & ~SEXP_IMMEDIATE_MASK)).flonum) #endif #else #define sexp_flonump(x) (sexp_check_tag(x, SEXP_FLONUM))