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

new auxiliar function `luaH_setstr'

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2000-06-05 17:15:33 -03:00
parent c542aac0b9
commit 292c953018
4 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lvm.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lvm.c,v 1.110 2000/05/30 19:00:31 roberto Exp roberto $
** $Id: lvm.c,v 1.111 2000/06/05 14:56:18 roberto Exp roberto $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@@ -66,10 +66,9 @@ int luaV_tostring (lua_State *L, TObject *obj) { /* LUA_NUMBER */
void luaV_setn (lua_State *L, Hash *t, int val) {
TObject index, value;
ttype(&index) = TAG_STRING; tsvalue(&index) = luaS_new(L, "n");
TObject value;
ttype(&value) = TAG_NUMBER; nvalue(&value) = val;
luaH_set(L, t, &index, &value);
luaH_setstr(L, t, luaS_new(L, "n"), &value);
}