nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small changes to use new auxiliar functions

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1998-07-12 13:16:02 -03:00
parent 41d9ea948c
commit 1d8edd347d
1 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lapi.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 1.24 1998/03/09 21:49:52 roberto Exp roberto $ ** $Id: lapi.c,v 1.25 1998/06/05 22:17:44 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -173,12 +173,8 @@ lua_Object lua_rawgettable (void)
if (ttype(L->stack.top-2) != LUA_T_ARRAY) if (ttype(L->stack.top-2) != LUA_T_ARRAY)
lua_error("indexed expression not a table in rawgettable"); lua_error("indexed expression not a table in rawgettable");
else { else {
TObject *h = luaH_get(avalue(L->stack.top-2), L->stack.top-1); *(L->stack.top-2) = *luaH_get(avalue(L->stack.top-2), L->stack.top-1);
--L->stack.top; --L->stack.top;
if (h != NULL)
*(L->stack.top-1) = *h;
else
ttype(L->stack.top-1) = LUA_T_NIL;
} }
return put_luaObjectonTop(); return put_luaObjectonTop();
} }
@@ -426,7 +422,7 @@ void lua_settag (int tag)
break; break;
default: default:
luaL_verror("cannot change the tag of a %.20s", luaL_verror("cannot change the tag of a %.20s",
luaO_typenames[-ttype((L->stack.top-1))]); luaO_typename(L->stack.top-1));
} }
L->stack.top--; L->stack.top--;
} }