Add missing cast to RTS
This allows programs to compile cleanly with the C backend.
commitea288f756d8f581f135fb9a2d7d786817dc63fc8
authorDavid Christiansen <david@davidchristiansen.dk>
dateFri 26 Aug 2016, 14:53 (10 years ago)
parentf754d9c
rts/idris_rts.h+1−1
@@ -213,7 +213,7 @@ typedef void(*func)(VM*, VAL*);
213213
214214typedef intptr_t i_int;
215215
216−#define MKINT(x) ((void*)((x)<<1)+1)
216+#define MKINT(x) ((void*)((i_int)(((x)<<1)+1)))
217217#define GETINT(x) ((i_int)(x)>>1)
218218#define ISINT(x) ((((i_int)x)&1) == 1)
219219#define ISSTR(x) (GETTY(x) == CT_STRING)