From 6a751d4e928054e563d41533a0d990731b7f7a83 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 Apr 2006 14:40:16 +0000 Subject: [PATCH] cast ptr to long insteda of int to avoid a warning on 64-bit machines svn: r2573 --- src/foreign/foreign.c | 2 +- src/foreign/foreign.ssc | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/foreign/foreign.c b/src/foreign/foreign.c index 93860841ee..d938113bfb 100644 --- a/src/foreign/foreign.c +++ b/src/foreign/foreign.c @@ -710,7 +710,7 @@ END_XFORM_SKIP; #define CTYPE_PRIMP(x) (NULL == (CTYPE_BASETYPE(x))) #define CTYPE_USERP(x) (!(CTYPE_PRIMP(x))) #define CTYPE_PRIMTYPE(x) ((ffi_type*)(((ctype_struct*)(x))->scheme_to_c)) -#define CTYPE_PRIMLABEL(x) ((int)(((ctype_struct*)(x))->c_to_scheme)) +#define CTYPE_PRIMLABEL(x) ((long)(((ctype_struct*)(x))->c_to_scheme)) #define CTYPE_USER_S2C(x) (((ctype_struct*)(x))->scheme_to_c) #define CTYPE_USER_C2S(x) (((ctype_struct*)(x))->c_to_scheme) diff --git a/src/foreign/foreign.ssc b/src/foreign/foreign.ssc index fdd8c29488..c16bf53868 100755 --- a/src/foreign/foreign.ssc +++ b/src/foreign/foreign.ssc @@ -614,7 +614,7 @@ typedef union _ForeignAny { #define CTYPE_PRIMP(x) (NULL == (CTYPE_BASETYPE(x))) #define CTYPE_USERP(x) (!(CTYPE_PRIMP(x))) #define CTYPE_PRIMTYPE(x) ((ffi_type*)(((ctype_struct*)(x))->scheme_to_c)) -#define CTYPE_PRIMLABEL(x) ((int)(((ctype_struct*)(x))->c_to_scheme)) +#define CTYPE_PRIMLABEL(x) ((long)(((ctype_struct*)(x))->c_to_scheme)) #define CTYPE_USER_S2C(x) (((ctype_struct*)(x))->scheme_to_c) #define CTYPE_USER_C2S(x) (((ctype_struct*)(x))->c_to_scheme)