git.iko.soy/Idris-dev
on master help sign in
Add missing cast to RTS
ea288f7David Christiansen
rts/idris_rts.h+1−1
compare with master
unifiedsplit
@@ -213,7 +213,7 @@ typedef void(*func)(VM*, VAL*);
213
213
214typedef intptr_t i_int;
214typedef intptr_t i_int;
215
215
216−#define MKINT(x) ((void*)((x)<<1)+1)
216+#define MKINT(x) ((void*)((i_int)(((x)<<1)+1)))
217#define GETINT(x) ((i_int)(x)>>1)
217#define GETINT(x) ((i_int)(x)>>1)
218#define ISINT(x) ((((i_int)x)&1) == 1)
218#define ISINT(x) ((((i_int)x)&1) == 1)
219#define ISSTR(x) (GETTY(x) == CT_STRING)
219#define ISSTR(x) (GETTY(x) == CT_STRING)