diff options
Diffstat (limited to 'src/lj_cdata.h')
-rw-r--r-- | src/lj_cdata.h | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/lj_cdata.h b/src/lj_cdata.h index 2a82a9d8..de52e8aa 100644 --- a/src/lj_cdata.h +++ b/src/lj_cdata.h | |||
@@ -18,7 +18,7 @@ static LJ_AINLINE void *cdata_getptr(void *p, CTSize sz) | |||
18 | if (LJ_64 && sz == 4) { /* Support 32 bit pointers on 64 bit targets. */ | 18 | if (LJ_64 && sz == 4) { /* Support 32 bit pointers on 64 bit targets. */ |
19 | return ((void *)(uintptr_t)*(uint32_t *)p); | 19 | return ((void *)(uintptr_t)*(uint32_t *)p); |
20 | } else { | 20 | } else { |
21 | lua_assert(sz == CTSIZE_PTR); | 21 | lj_assertX(sz == CTSIZE_PTR, "bad pointer size %d", sz); |
22 | return *(void **)p; | 22 | return *(void **)p; |
23 | } | 23 | } |
24 | } | 24 | } |
@@ -29,7 +29,7 @@ static LJ_AINLINE void cdata_setptr(void *p, CTSize sz, const void *v) | |||
29 | if (LJ_64 && sz == 4) { /* Support 32 bit pointers on 64 bit targets. */ | 29 | if (LJ_64 && sz == 4) { /* Support 32 bit pointers on 64 bit targets. */ |
30 | *(uint32_t *)p = (uint32_t)(uintptr_t)v; | 30 | *(uint32_t *)p = (uint32_t)(uintptr_t)v; |
31 | } else { | 31 | } else { |
32 | lua_assert(sz == CTSIZE_PTR); | 32 | lj_assertX(sz == CTSIZE_PTR, "bad pointer size %d", sz); |
33 | *(void **)p = (void *)v; | 33 | *(void **)p = (void *)v; |
34 | } | 34 | } |
35 | } | 35 | } |
@@ -40,7 +40,8 @@ static LJ_AINLINE GCcdata *lj_cdata_new(CTState *cts, CTypeID id, CTSize sz) | |||
40 | GCcdata *cd; | 40 | GCcdata *cd; |
41 | #ifdef LUA_USE_ASSERT | 41 | #ifdef LUA_USE_ASSERT |
42 | CType *ct = ctype_raw(cts, id); | 42 | CType *ct = ctype_raw(cts, id); |
43 | lua_assert((ctype_hassize(ct->info) ? ct->size : CTSIZE_PTR) == sz); | 43 | lj_assertCTS((ctype_hassize(ct->info) ? ct->size : CTSIZE_PTR) == sz, |
44 | "inconsistent size of fixed-size cdata alloc"); | ||
44 | #endif | 45 | #endif |
45 | cd = (GCcdata *)lj_mem_newgco(cts->L, sizeof(GCcdata) + sz); | 46 | cd = (GCcdata *)lj_mem_newgco(cts->L, sizeof(GCcdata) + sz); |
46 | cd->gct = ~LJ_TCDATA; | 47 | cd->gct = ~LJ_TCDATA; |
@@ -58,11 +59,14 @@ static LJ_AINLINE GCcdata *lj_cdata_new_(lua_State *L, CTypeID id, CTSize sz) | |||
58 | } | 59 | } |
59 | 60 | ||
60 | LJ_FUNC GCcdata *lj_cdata_newref(CTState *cts, const void *pp, CTypeID id); | 61 | LJ_FUNC GCcdata *lj_cdata_newref(CTState *cts, const void *pp, CTypeID id); |
61 | LJ_FUNC GCcdata *lj_cdata_newv(CTState *cts, CTypeID id, CTSize sz, | 62 | LJ_FUNC GCcdata *lj_cdata_newv(lua_State *L, CTypeID id, CTSize sz, |
62 | CTSize align); | 63 | CTSize align); |
64 | LJ_FUNC GCcdata *lj_cdata_newx(CTState *cts, CTypeID id, CTSize sz, | ||
65 | CTInfo info); | ||
63 | 66 | ||
64 | LJ_FUNC void LJ_FASTCALL lj_cdata_free(global_State *g, GCcdata *cd); | 67 | LJ_FUNC void LJ_FASTCALL lj_cdata_free(global_State *g, GCcdata *cd); |
65 | LJ_FUNCA TValue * LJ_FASTCALL lj_cdata_setfin(lua_State *L, GCcdata *cd); | 68 | LJ_FUNC void lj_cdata_setfin(lua_State *L, GCcdata *cd, GCobj *obj, |
69 | uint32_t it); | ||
66 | 70 | ||
67 | LJ_FUNC CType *lj_cdata_index(CTState *cts, GCcdata *cd, cTValue *key, | 71 | LJ_FUNC CType *lj_cdata_index(CTState *cts, GCcdata *cd, cTValue *key, |
68 | uint8_t **pp, CTInfo *qual); | 72 | uint8_t **pp, CTInfo *qual); |