From b3c7210a3469dc96fc627a7586857fac899caa5b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 16 Jul 2012 19:19:46 -0600
Subject: [PATCH] FFI repairs for 64-bit big-endian

Based on a patch supplied by Stephen Lewis
---
 src/foreign/foreign.c    | 4 ++--
 src/foreign/foreign.rktc | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/foreign/foreign.c b/src/foreign/foreign.c
index 92e2fe94a0..0c564ef4e5 100644
--- a/src/foreign/foreign.c
+++ b/src/foreign/foreign.c
@@ -1604,8 +1604,8 @@ void *scheme_extract_pointer(Scheme_Object *v) {
  * for both the function definition and calls */
 #ifdef SCHEME_BIG_ENDIAN
 #define C2SCHEME(ap,typ,src,delta,argsloc,gcsrc) c_to_scheme(ap,typ,src,delta,argsloc,gcsrc)
-#define REF_CTYPE(ctype) (((sizeof(ctype)<sizeof(int)) && args_loc) \
-  ? ((ctype)(((int*)W_OFFSET(src,delta))[0])) \
+#define REF_CTYPE(ctype) (((sizeof(ctype)<sizeof(intptr_t)) && args_loc) \
+  ? ((ctype)(((intptr_t*)W_OFFSET(src,delta))[0])) \
   : (((ctype *)W_OFFSET(src,delta))[0]))
 #else
 #define C2SCHEME(ap,typ,src,delta,argsloc,gcsrc) c_to_scheme(ap,typ,src,delta,gcsrc)
diff --git a/src/foreign/foreign.rktc b/src/foreign/foreign.rktc
index 1b10124966..692c4f70cf 100755
--- a/src/foreign/foreign.rktc
+++ b/src/foreign/foreign.rktc
@@ -1383,8 +1383,8 @@ void *scheme_extract_pointer(Scheme_Object *v) {
  * for both the function definition and calls */
 #ifdef SCHEME_BIG_ENDIAN
 #define C2SCHEME(ap,typ,src,delta,argsloc,gcsrc) c_to_scheme(ap,typ,src,delta,argsloc,gcsrc)
-#define REF_CTYPE(ctype) (((sizeof(ctype)<sizeof(int)) && args_loc) \
-  ? ((ctype)(((int*)W_OFFSET(src,delta))[0])) \
+#define REF_CTYPE(ctype) (((sizeof(ctype)<sizeof(intptr_t)) && args_loc) \
+  ? ((ctype)(((intptr_t*)W_OFFSET(src,delta))[0])) \
   : (((ctype *)W_OFFSET(src,delta))[0]))
 #else
 #define C2SCHEME(ap,typ,src,delta,argsloc,gcsrc) c_to_scheme(ap,typ,src,delta,gcsrc)