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

luaH_set does the set!

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1999-01-25 15:39:28 -02:00
parent 13ad46b67d
commit 4a13f513f8
1 changed files with 8 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lvm.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 1.39 1999/01/15 13:14:24 roberto Exp roberto $ ** $Id: lvm.c,v 1.40 1999/01/20 20:22:06 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -90,12 +90,11 @@ void luaV_setn (Hash *t, int val) {
TObject index, value; TObject index, value;
ttype(&index) = LUA_T_STRING; tsvalue(&index) = luaS_new("n"); ttype(&index) = LUA_T_STRING; tsvalue(&index) = luaS_new("n");
ttype(&value) = LUA_T_NUMBER; nvalue(&value) = val; ttype(&value) = LUA_T_NUMBER; nvalue(&value) = val;
*(luaH_set(t, &index)) = value; luaH_set(t, &index, &value);
} }
void luaV_closure (int nelems) void luaV_closure (int nelems) {
{
if (nelems > 0) { if (nelems > 0) {
struct Stack *S = &L->stack; struct Stack *S = &L->stack;
Closure *c = luaF_newclosure(nelems); Closure *c = luaF_newclosure(nelems);
@@ -155,7 +154,7 @@ void luaV_settable (TObject *t, int deep) {
else { /* object is a table... */ else { /* object is a table... */
im = luaT_getim(avalue(t)->htag, IM_SETTABLE); im = luaT_getim(avalue(t)->htag, IM_SETTABLE);
if (ttype(im) == LUA_T_NIL) { /* and does not have a "settable" method */ if (ttype(im) == LUA_T_NIL) { /* and does not have a "settable" method */
*(luaH_set(avalue(t), t+1)) = *(S->top-1); luaH_set(avalue(t), t+1, S->top-1);
/* if deep, pop only value; otherwise, pop table, index and value */ /* if deep, pop only value; otherwise, pop table, index and value */
S->top -= (deep) ? 1 : 3; S->top -= (deep) ? 1 : 3;
return; return;
@@ -180,7 +179,7 @@ void luaV_rawsettable (TObject *t) {
lua_error("indexed expression not a table"); lua_error("indexed expression not a table");
else { else {
struct Stack *S = &L->stack; struct Stack *S = &L->stack;
*(luaH_set(avalue(t), t+1)) = *(S->top-1); luaH_set(avalue(t), t+1, S->top-1);
S->top -= 3; S->top -= 3;
} }
} }
@@ -482,12 +481,8 @@ StkId luaV_execute (Closure *cl, TProtoFunc *tf, StkId base)
setlist: { setlist: {
int n = *(pc++); int n = *(pc++);
TObject *arr = S->top-n-1; TObject *arr = S->top-n-1;
for (; n; n--) { for (; n; n--)
ttype(S->top) = LUA_T_NUMBER; luaH_setint(avalue(arr), n+aux, --S->top);
nvalue(S->top) = n+aux;
*(luaH_set(avalue(arr), S->top)) = *(S->top-1);
S->top--;
}
break; break;
} }
@@ -499,7 +494,7 @@ StkId luaV_execute (Closure *cl, TProtoFunc *tf, StkId base)
setmap: { setmap: {
TObject *arr = S->top-(2*aux)-3; TObject *arr = S->top-(2*aux)-3;
do { do {
*(luaH_set(avalue(arr), S->top-2)) = *(S->top-1); luaH_set(avalue(arr), S->top-2, S->top-1);
S->top-=2; S->top-=2;
} while (aux--); } while (aux--);
break; break;