GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-14 05:43:00 +08:00
Code Issues Projects Releases Wiki Activity

luaL_loadbuffer replaced by luaL_loadstring (to test luaL_loadstring)

Browse Source 
+ 'rawgetp'/'rawsetp' added to C interpreter
This commit is contained in:
Roberto Ierusalimschy 2014-11-10 12:47:29 -02:00
parent 9212175ffb
commit b6911c177d
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ltests.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 2.192 2014/11/02 19:19:04 roberto Exp roberto $ ** $Id: ltests.c,v 2.193 2014/11/07 18:07:17 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation ** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -1118,9 +1118,8 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
luaL_loadfile(L1, luaL_checkstring(L1, getnum)); luaL_loadfile(L1, luaL_checkstring(L1, getnum));
} }
else if EQ("loadstring") { else if EQ("loadstring") {
size_t sl; const char *s = luaL_checkstring(L1, getnum);
const char *s = luaL_checklstring(L1, getnum, &sl); luaL_loadstring(L1, s);
luaL_loadbuffer(L1, s, sl, s);
} }
else if EQ("newmetatable") { else if EQ("newmetatable") {
lua_pushboolean(L1, luaL_newmetatable(L1, getstring)); lua_pushboolean(L1, luaL_newmetatable(L1, getstring));
@ -1201,6 +1200,14 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
int t = getindex; int t = getindex;
lua_rawgeti(L1, t, getnum); lua_rawgeti(L1, t, getnum);
} }
else if EQ("rawgetp") {
int t = getindex;
lua_rawgetp(L1, t, cast(void *, cast(size_t, getnum)));
}
else if EQ("rawsetp") {
int t = getindex;
lua_rawsetp(L1, t, cast(void *, cast(size_t, getnum)));
}
else if EQ("remove") { else if EQ("remove") {
lua_remove(L1, getnum); lua_remove(L1, getnum);
} }