rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

luaH_set does the set!

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
Show Stats 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
** See Copyright Notice in lua.h
*/
@ -90,12 +90,11 @@ void luaV_setn (Hash *t, int val) {
TObject index, value;
ttype(&index) = LUA_T_STRING; tsvalue(&index) = luaS_new("n");
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) {
struct Stack *S = &L->stack;
Closure *c = luaF_newclosure(nelems);
@ -155,7 +154,7 @@ void luaV_settable (TObject *t, int deep) {
else { /* object is a table... */
im = luaT_getim(avalue(t)->htag, IM_SETTABLE);
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 */
S->top -= (deep) ? 1 : 3;
return;
@ -180,7 +179,7 @@ void luaV_rawsettable (TObject *t) {
lua_error("indexed expression not a table");
else {
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;
}
}
@ -482,12 +481,8 @@ StkId luaV_execute (Closure *cl, TProtoFunc *tf, StkId base)
setlist: {
int n = *(pc++);
TObject *arr = S->top-n-1;
for (; n; n--) {
ttype(S->top) = LUA_T_NUMBER;
nvalue(S->top) = n+aux;
*(luaH_set(avalue(arr), S->top)) = *(S->top-1);
S->top--;
}
for (; n; n--)
luaH_setint(avalue(arr), n+aux, --S->top);
break;
}
@ -499,7 +494,7 @@ StkId luaV_execute (Closure *cl, TProtoFunc *tf, StkId base)
setmap: {
TObject *arr = S->top-(2*aux)-3;
do {
*(luaH_set(avalue(arr), S->top-2)) = *(S->top-1);
luaH_set(avalue(arr), S->top-2, S->top-1);
S->top-=2;
} while (aux--);
break;