gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-07 23:24:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

FFI: Perform stricter checks in ffi.cast(). Record ffi.cast().

Browse Source
This commit is contained in:
Mike Pall 2011-02-06 12:46:18 +01:00
parent bf58160b7a
commit ceece4d13e
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/lib_ffi.c
View File

@ -406,19 +406,18 @@ LJLIB_CF(ffi_offsetof)
return 0; return 0;
} }
LJLIB_CF(ffi_cast) LJLIB_CF(ffi_cast) LJLIB_REC(ffi_new)
{ {
CTState *cts = ctype_cts(L); CTState *cts = ctype_cts(L);
CTypeID id = ffi_checkctype(L, cts); CTypeID id = ffi_checkctype(L, cts);
CType *d = ctype_raw(cts, id);
TValue *o = lj_lib_checkany(L, 2); TValue *o = lj_lib_checkany(L, 2);
L->top = o+1; /* Make sure this is the last item on the stack. */ L->top = o+1; /* Make sure this is the last item on the stack. */
if (!(ctype_isnum(d->info) || ctype_isptr(d->info) || ctype_isenum(d->info)))
lj_err_arg(L, 1, LJ_ERR_FFI_INVTYPE);
if (!(tviscdata(o) && cdataV(o)->typeid == id)) { if (!(tviscdata(o) && cdataV(o)->typeid == id)) {
CTSize sz = lj_ctype_size(cts, id); GCcdata *cd = lj_cdata_new(cts, id, d->size);
GCcdata *cd; lj_cconv_ct_tv(cts, d, cdataptr(cd), o, CCF_CAST);
if (sz == CTSIZE_INVALID)
lj_err_caller(L, LJ_ERR_FFI_INVSIZE);
cd = lj_cdata_new(cts, id, sz); /* Create destination cdata. */
lj_cconv_ct_tv(cts, ctype_raw(cts, id), cdataptr(cd), o, CCF_CAST);
setcdataV(L, o, cd); setcdataV(L, o, cd);
lj_gc_check(L); lj_gc_check(L);
} }