suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

workaround clang problem

Browse Source 
Using MZ_INLINE on scheme_get_realint_val() and
scheme_get_unsigned_realint_val() leads to a link
error when using the current clang on Mac OS X 10.9.
Remove the MZ_INLINE declaration, since a modern C
compiler will inline, anyway.
This commit is contained in:
Matthew Flatt 2013-12-30 15:20:30 -07:00
parent 6a0b3af9cd
commit 33f2c23c05
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/foreign/foreign.c
View File

@ -492,7 +492,7 @@ static Scheme_Object *foreign_ffi_obj_name(int argc, Scheme_Object *argv[])
/* These will make sense in Racket when longs are longer than ints (needed /* These will make sense in Racket when longs are longer than ints (needed
* for libffi's int32 types). There is no need to deal with bignums because * for libffi's int32 types). There is no need to deal with bignums because
* racket's fixnums are longs. */ * racket's fixnums are longs. */
XFORM_NONGCING MZ_INLINE int scheme_get_realint_val(Scheme_Object *o, int *v) XFORM_NONGCING int scheme_get_realint_val(Scheme_Object *o, int *v)
{ {
if (SCHEME_INTP(o)) { if (SCHEME_INTP(o)) {
uintptr_t lv = SCHEME_INT_VAL(o); uintptr_t lv = SCHEME_INT_VAL(o);
@ -503,7 +503,7 @@ XFORM_NONGCING MZ_INLINE int scheme_get_realint_val(Scheme_Object *o, int *v)
return 1; return 1;
} else return 0; } else return 0;
} }
XFORM_NONGCING MZ_INLINE int scheme_get_unsigned_realint_val(Scheme_Object *o, unsigned int *v) XFORM_NONGCING int scheme_get_unsigned_realint_val(Scheme_Object *o, unsigned int *v)
{ {
if (SCHEME_INTP(o)) { if (SCHEME_INTP(o)) {
uintptr_t lv = SCHEME_INT_VAL(o); uintptr_t lv = SCHEME_INT_VAL(o);

4
racket/src/foreign/foreign.rktc
View File

@ -409,7 +409,7 @@ static uintptr_t adjustment;
/* These will make sense in Racket when longs are longer than ints (needed /* These will make sense in Racket when longs are longer than ints (needed
* for libffi's int32 types). There is no need to deal with bignums because * for libffi's int32 types). There is no need to deal with bignums because
* racket's fixnums are longs. */ * racket's fixnums are longs. */
XFORM_NONGCING MZ_INLINE int scheme_get_realint_val(Scheme_Object *o, int *v) XFORM_NONGCING int scheme_get_realint_val(Scheme_Object *o, int *v)
{ {
if (SCHEME_INTP(o)) { if (SCHEME_INTP(o)) {
uintptr_t lv = SCHEME_INT_VAL(o); uintptr_t lv = SCHEME_INT_VAL(o);
@ -420,7 +420,7 @@ XFORM_NONGCING MZ_INLINE int scheme_get_realint_val(Scheme_Object *o, int *v)
return 1; return 1;
} else return 0; } else return 0;
} }
XFORM_NONGCING MZ_INLINE int scheme_get_unsigned_realint_val(Scheme_Object *o, unsigned int *v) XFORM_NONGCING int scheme_get_unsigned_realint_val(Scheme_Object *o, unsigned int *v)
{ {
if (SCHEME_INTP(o)) { if (SCHEME_INTP(o)) {
uintptr_t lv = SCHEME_INT_VAL(o); uintptr_t lv = SCHEME_INT_VAL(o);