mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-25 01:37:19 +00:00
Code Issues 1 Releases Wiki Activity

Fix 32 bit platforms.

Browse Source
This commit is contained in:
Calvin Rose 2019-04-28 16:22:24 -04:00
parent 3c0f12ea4d
commit bfb354b469
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/core/wrap.c
View File

@ -46,12 +46,10 @@ void *(janet_unwrap_pointer)(Janet x) { return janet_unwrap_pointer(x); }
JanetFunction *(janet_unwrap_function)(Janet x) { return janet_unwrap_function(x); } JanetFunction *(janet_unwrap_function)(Janet x) { return janet_unwrap_function(x); }
JanetCFunction (janet_unwrap_cfunction)(Janet x) { return janet_unwrap_cfunction(x); } JanetCFunction (janet_unwrap_cfunction)(Janet x) { return janet_unwrap_cfunction(x); }
int (janet_unwrap_boolean)(Janet x) { return janet_unwrap_boolean(x); } int (janet_unwrap_boolean)(Janet x) { return janet_unwrap_boolean(x); }
double (janet_unwrap_number)(Janet x) { return janet_unwrap_number(x); }
int32_t (janet_unwrap_integer)(Janet x) { return janet_unwrap_integer(x); } int32_t (janet_unwrap_integer)(Janet x) { return janet_unwrap_integer(x); }
#if defined(JANET_NANBOX_32) || defined(JANET_NANBOX_64) #if defined(JANET_NANBOX_32) || defined(JANET_NANBOX_64)
Janet (janet_wrap_nil)(void) { return janet_wrap_nil(); } Janet (janet_wrap_nil)(void) { return janet_wrap_nil(); }
Janet (janet_wrap_number)(double x) { return janet_wrap_number(x); }
Janet (janet_wrap_true)(void) { return janet_wrap_true(); } Janet (janet_wrap_true)(void) { return janet_wrap_true(); }
Janet (janet_wrap_false)(void) { return janet_wrap_false(); } Janet (janet_wrap_false)(void) { return janet_wrap_false(); }
Janet (janet_wrap_boolean)(int x) { return janet_wrap_boolean(x); } Janet (janet_wrap_boolean)(int x) { return janet_wrap_boolean(x); }
@ -71,6 +69,14 @@ Janet (janet_wrap_pointer)(void *x) { return janet_wrap_pointer(x); }
Janet (janet_wrap_integer)(int32_t x) { return janet_wrap_integer(x); } Janet (janet_wrap_integer)(int32_t x) { return janet_wrap_integer(x); }
#endif #endif
#ifndef JANET_NANBOX_32
double (janet_unwrap_number)(Janet x) { return janet_unwrap_number(x); }
#endif
#ifdef JANET_NANBOX_64
Janet (janet_wrap_number)(double x) { return janet_wrap_number(x); }
#endif
/*****/ /*****/
void *janet_memalloc_empty(int32_t count) { void *janet_memalloc_empty(int32_t count) {