Fix UNSAFE_FX use of type for v, instead of intptr_t (#2653)
This commit is contained in:
parent
b8617c24e9
commit
6eb2175f7a
|
@ -5499,7 +5499,7 @@ static Scheme_Object *fold_fixnum_bitwise_shift(int argc, Scheme_Object *argv[])
|
|||
#define UNSAFE_FX(name, op, fold, type, no_args) \
|
||||
static Scheme_Object *name(int argc, Scheme_Object *argv[]) \
|
||||
{ \
|
||||
intptr_t v; \
|
||||
type v; \
|
||||
int i; \
|
||||
if (!argc) return no_args; \
|
||||
if (scheme_current_thread->constant_folding) return fold(argc, argv); \
|
||||
|
|
Loading…
Reference in New Issue
Block a user