From ba698cf9a4edf455f86f0d0cf677e0bb299bb436 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 16 Feb 2007 11:36:47 +0000 Subject: [PATCH] fix SCHEME2C macro, which may help big-endian problem svn: r5623 --- 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 4f171eb5d2..9d97fb4eb4 100644 --- a/src/foreign/foreign.c +++ b/src/foreign/foreign.c @@ -1167,7 +1167,7 @@ static Scheme_Object *C2SCHEME(Scheme_Object *type, void *src, int delta, int ar #ifdef SCHEME_BIG_ENDIAN #define SCHEME2C(typ,dst,delta,val,basep,_offset,retloc) scheme_to_c(typ,dst,delta,val,basep,_offset,retloc) #else -#define SCHEME2C(typ,dst,delta,val,basep,_offset,retloc) scheme_to_c(typ,dst,delta,val,_offset,basep) +#define SCHEME2C(typ,dst,delta,val,basep,_offset,retloc) scheme_to_c(typ,dst,delta,val,basep,_offset) #endif /* Usually writes the C object to dst and returns NULL. When basetype_p is not diff --git a/src/foreign/foreign.ssc b/src/foreign/foreign.ssc index d8d1ef2b04..5e169f2c10 100755 --- a/src/foreign/foreign.ssc +++ b/src/foreign/foreign.ssc @@ -960,7 +960,7 @@ static Scheme_Object *C2SCHEME(Scheme_Object *type, void *src, int delta, int ar #ifdef SCHEME_BIG_ENDIAN #define SCHEME2C(typ,dst,delta,val,basep,_offset,retloc) scheme_to_c(typ,dst,delta,val,basep,_offset,retloc) #else -#define SCHEME2C(typ,dst,delta,val,basep,_offset,retloc) scheme_to_c(typ,dst,delta,val,_offset,basep) +#define SCHEME2C(typ,dst,delta,val,basep,_offset,retloc) scheme_to_c(typ,dst,delta,val,basep,_offset) #endif /* Usually writes the C object to dst and returns NULL. When basetype_p is not