mirror of https://github.com/rusefi/lua.git
details
This commit is contained in:
Roberto Ierusalimschy
parent
9e84bf18db
commit
d1ffd1a1c5
4
lua.c
4
lua.c
|
|
@ -1,5 +1,5 @@
|
|||
/*
|
||||
** $Id: lua.c,v 1.43 2000/08/04 19:38:35 roberto Exp roberto $
|
||||
** $Id: lua.c,v 1.44 2000/08/09 19:16:57 roberto Exp roberto $
|
||||
** Lua stand-alone interpreter
|
||||
** See Copyright Notice in lua.h
|
||||
*/
|
||||
|
|
@ -53,7 +53,7 @@ static lua_Hook old_callhook = NULL;
|
|||
extern void USERINIT (void);
|
||||
#else
|
||||
#define USERINIT userinit
|
||||
void userinit (void) {
|
||||
static void userinit (void) {
|
||||
lua_iolibopen();
|
||||
lua_strlibopen();
|
||||
lua_mathlibopen();
|
||||
|
|
|
|||
175
lvm.c
175
lvm.c
|
|
@ -1,5 +1,5 @@
|
|||
/*
|
||||
** $Id: lvm.c,v 1.125 2000/08/10 19:50:47 roberto Exp roberto $
|
||||
** $Id: lvm.c,v 1.126 2000/08/11 16:17:28 roberto Exp roberto $
|
||||
** Lua virtual machine
|
||||
** See Copyright Notice in lua.h
|
||||
*/
|
||||
|
|
@ -371,25 +371,24 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
if (linehook)
|
||||
traceexec(L, base, top, linehook);
|
||||
switch (GET_OPCODE(i)) {
|
||||
|
||||
case OP_END:
|
||||
case OP_END: {
|
||||
return L->top; /* no results */
|
||||
|
||||
case OP_RETURN:
|
||||
}
|
||||
case OP_RETURN: {
|
||||
L->top = top;
|
||||
return base+GETARG_U(i);
|
||||
|
||||
case OP_CALL:
|
||||
}
|
||||
case OP_CALL: {
|
||||
L->top = top;
|
||||
luaD_call(L, base+GETARG_A(i), GETARG_B(i));
|
||||
top = L->top;
|
||||
break;
|
||||
|
||||
case OP_TAILCALL:
|
||||
}
|
||||
case OP_TAILCALL: {
|
||||
L->top = top;
|
||||
luaD_call(L, base+GETARG_A(i), MULT_RET);
|
||||
return base+GETARG_B(i);
|
||||
|
||||
}
|
||||
case OP_PUSHNIL: {
|
||||
int n = GETARG_U(i);
|
||||
LUA_ASSERT(n>0, "invalid argument");
|
||||
|
|
@ -398,66 +397,65 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
} while (--n > 0);
|
||||
break;
|
||||
}
|
||||
|
||||
case OP_POP:
|
||||
case OP_POP: {
|
||||
top -= GETARG_U(i);
|
||||
break;
|
||||
|
||||
case OP_PUSHINT:
|
||||
}
|
||||
case OP_PUSHINT: {
|
||||
ttype(top) = TAG_NUMBER;
|
||||
nvalue(top) = (Number)GETARG_S(i);
|
||||
top++;
|
||||
break;
|
||||
|
||||
case OP_PUSHSTRING:
|
||||
}
|
||||
case OP_PUSHSTRING: {
|
||||
ttype(top) = TAG_STRING;
|
||||
tsvalue(top) = kstr[GETARG_U(i)];
|
||||
top++;
|
||||
break;
|
||||
|
||||
case OP_PUSHNUM:
|
||||
}
|
||||
case OP_PUSHNUM: {
|
||||
ttype(top) = TAG_NUMBER;
|
||||
nvalue(top) = tf->knum[GETARG_U(i)];
|
||||
top++;
|
||||
break;
|
||||
|
||||
case OP_PUSHNEGNUM:
|
||||
}
|
||||
case OP_PUSHNEGNUM: {
|
||||
ttype(top) = TAG_NUMBER;
|
||||
nvalue(top) = -tf->knum[GETARG_U(i)];
|
||||
top++;
|
||||
break;
|
||||
|
||||
case OP_PUSHUPVALUE:
|
||||
}
|
||||
case OP_PUSHUPVALUE: {
|
||||
*top++ = cl->upvalue[GETARG_U(i)];
|
||||
break;
|
||||
|
||||
case OP_GETLOCAL:
|
||||
}
|
||||
case OP_GETLOCAL: {
|
||||
*top++ = *(base+GETARG_U(i));
|
||||
break;
|
||||
|
||||
case OP_GETGLOBAL:
|
||||
}
|
||||
case OP_GETGLOBAL: {
|
||||
luaV_getglobal(L, kstr[GETARG_U(i)], top);
|
||||
top++;
|
||||
break;
|
||||
|
||||
case OP_GETTABLE:
|
||||
}
|
||||
case OP_GETTABLE: {
|
||||
luaV_gettable(L, top);
|
||||
top--;
|
||||
break;
|
||||
|
||||
case OP_GETDOTTED:
|
||||
}
|
||||
case OP_GETDOTTED: {
|
||||
ttype(top) = TAG_STRING;
|
||||
tsvalue(top++) = kstr[GETARG_U(i)];
|
||||
luaV_gettable(L, top);
|
||||
top--;
|
||||
break;
|
||||
|
||||
case OP_GETINDEXED:
|
||||
}
|
||||
case OP_GETINDEXED: {
|
||||
*top++ = *(base+GETARG_U(i));
|
||||
luaV_gettable(L, top);
|
||||
top--;
|
||||
break;
|
||||
|
||||
}
|
||||
case OP_PUSHSELF: {
|
||||
TObject receiver;
|
||||
receiver = *(top-1);
|
||||
|
|
@ -467,29 +465,28 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
*(top-1) = receiver;
|
||||
break;
|
||||
}
|
||||
|
||||
case OP_CREATETABLE:
|
||||
case OP_CREATETABLE: {
|
||||
L->top = top;
|
||||
luaC_checkGC(L);
|
||||
hvalue(top) = luaH_new(L, GETARG_U(i));
|
||||
ttype(top) = TAG_TABLE;
|
||||
top++;
|
||||
break;
|
||||
|
||||
case OP_SETLOCAL:
|
||||
}
|
||||
case OP_SETLOCAL: {
|
||||
*(base+GETARG_U(i)) = *(--top);
|
||||
break;
|
||||
|
||||
case OP_SETGLOBAL:
|
||||
}
|
||||
case OP_SETGLOBAL: {
|
||||
luaV_setglobal(L, kstr[GETARG_U(i)], top);
|
||||
top--;
|
||||
break;
|
||||
|
||||
case OP_SETTABLE:
|
||||
}
|
||||
case OP_SETTABLE: {
|
||||
luaV_settable(L, top-GETARG_A(i), top);
|
||||
top -= GETARG_B(i); /* pop values */
|
||||
break;
|
||||
|
||||
}
|
||||
case OP_SETLIST: {
|
||||
int aux = GETARG_A(i) * LFIELDS_PER_FLUSH;
|
||||
int n = GETARG_B(i);
|
||||
|
|
@ -499,7 +496,6 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
*luaH_setint(L, arr, n+aux) = *(--top);
|
||||
break;
|
||||
}
|
||||
|
||||
case OP_SETMAP: {
|
||||
int n = GETARG_U(i);
|
||||
StkId finaltop = top-2*n;
|
||||
|
|
@ -511,16 +507,15 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
}
|
||||
break;
|
||||
}
|
||||
|
||||
case OP_ADD:
|
||||
case OP_ADD: {
|
||||
if (tonumber(top-2) || tonumber(top-1))
|
||||
call_arith(L, top, IM_ADD);
|
||||
else
|
||||
nvalue(top-2) += nvalue(top-1);
|
||||
top--;
|
||||
break;
|
||||
|
||||
case OP_ADDI:
|
||||
}
|
||||
case OP_ADDI: {
|
||||
if (tonumber(top-1)) {
|
||||
ttype(top) = TAG_NUMBER;
|
||||
nvalue(top) = (Number)GETARG_S(i);
|
||||
|
|
@ -529,37 +524,37 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
else
|
||||
nvalue(top-1) += (Number)GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_SUB:
|
||||
}
|
||||
case OP_SUB: {
|
||||
if (tonumber(top-2) || tonumber(top-1))
|
||||
call_arith(L, top, IM_SUB);
|
||||
else
|
||||
nvalue(top-2) -= nvalue(top-1);
|
||||
top--;
|
||||
break;
|
||||
|
||||
case OP_MULT:
|
||||
}
|
||||
case OP_MULT: {
|
||||
if (tonumber(top-2) || tonumber(top-1))
|
||||
call_arith(L, top, IM_MUL);
|
||||
else
|
||||
nvalue(top-2) *= nvalue(top-1);
|
||||
top--;
|
||||
break;
|
||||
|
||||
case OP_DIV:
|
||||
}
|
||||
case OP_DIV: {
|
||||
if (tonumber(top-2) || tonumber(top-1))
|
||||
call_arith(L, top, IM_DIV);
|
||||
else
|
||||
nvalue(top-2) /= nvalue(top-1);
|
||||
top--;
|
||||
break;
|
||||
|
||||
case OP_POW:
|
||||
}
|
||||
case OP_POW: {
|
||||
if (!call_binTM(L, top, IM_POW))
|
||||
lua_error(L, "undefined operation");
|
||||
top--;
|
||||
break;
|
||||
|
||||
}
|
||||
case OP_CONCAT: {
|
||||
int n = GETARG_U(i);
|
||||
strconc(L, n, top);
|
||||
|
|
@ -568,8 +563,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
luaC_checkGC(L);
|
||||
break;
|
||||
}
|
||||
|
||||
case OP_MINUS:
|
||||
case OP_MINUS: {
|
||||
if (tonumber(top-1)) {
|
||||
ttype(top) = TAG_NIL;
|
||||
call_arith(L, top+1, IM_UNM);
|
||||
|
|
@ -577,71 +571,71 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
else
|
||||
nvalue(top-1) = -nvalue(top-1);
|
||||
break;
|
||||
|
||||
case OP_NOT:
|
||||
}
|
||||
case OP_NOT: {
|
||||
ttype(top-1) =
|
||||
(ttype(top-1) == TAG_NIL) ? TAG_NUMBER : TAG_NIL;
|
||||
nvalue(top-1) = 1;
|
||||
break;
|
||||
|
||||
case OP_JMPNE:
|
||||
}
|
||||
case OP_JMPNE: {
|
||||
top -= 2;
|
||||
if (!luaO_equalObj(top, top+1)) pc += GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_JMPEQ:
|
||||
}
|
||||
case OP_JMPEQ: {
|
||||
top -= 2;
|
||||
if (luaO_equalObj(top, top+1)) pc += GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_JMPLT:
|
||||
}
|
||||
case OP_JMPLT: {
|
||||
top -= 2;
|
||||
if (luaV_lessthan(L, top, top+1, top+2)) pc += GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_JMPLE: /* a <= b === !(b<a) */
|
||||
}
|
||||
case OP_JMPLE: { /* a <= b === !(b<a) */
|
||||
top -= 2;
|
||||
if (!luaV_lessthan(L, top+1, top, top+2)) pc += GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_JMPGT: /* a > b === (b<a) */
|
||||
}
|
||||
case OP_JMPGT: { /* a > b === (b<a) */
|
||||
top -= 2;
|
||||
if (luaV_lessthan(L, top+1, top, top+2)) pc += GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_JMPGE: /* a >= b === !(a<b) */
|
||||
}
|
||||
case OP_JMPGE: { /* a >= b === !(a<b) */
|
||||
top -= 2;
|
||||
if (!luaV_lessthan(L, top, top+1, top+2)) pc += GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_JMPT:
|
||||
}
|
||||
case OP_JMPT: {
|
||||
if (ttype(--top) != TAG_NIL) pc += GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_JMPF:
|
||||
}
|
||||
case OP_JMPF: {
|
||||
if (ttype(--top) == TAG_NIL) pc += GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_JMPONT:
|
||||
}
|
||||
case OP_JMPONT: {
|
||||
if (ttype(top-1) != TAG_NIL) pc += GETARG_S(i);
|
||||
else top--;
|
||||
break;
|
||||
|
||||
case OP_JMPONF:
|
||||
}
|
||||
case OP_JMPONF: {
|
||||
if (ttype(top-1) == TAG_NIL) pc += GETARG_S(i);
|
||||
else top--;
|
||||
break;
|
||||
|
||||
case OP_JMP:
|
||||
}
|
||||
case OP_JMP: {
|
||||
pc += GETARG_S(i);
|
||||
break;
|
||||
|
||||
case OP_PUSHNILJMP:
|
||||
}
|
||||
case OP_PUSHNILJMP: {
|
||||
ttype(top++) = TAG_NIL;
|
||||
pc++;
|
||||
break;
|
||||
|
||||
case OP_FORPREP:
|
||||
}
|
||||
case OP_FORPREP: {
|
||||
if (tonumber(top-1))
|
||||
lua_error(L, "`for' step must be a number");
|
||||
if (tonumber(top-2))
|
||||
|
|
@ -655,7 +649,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
pc += GETARG_S(i)+1; /* jump to loop end */
|
||||
}
|
||||
break;
|
||||
|
||||
}
|
||||
case OP_FORLOOP: {
|
||||
LUA_ASSERT(ttype(top-1) == TAG_NUMBER, "invalid step");
|
||||
LUA_ASSERT(ttype(top-2) == TAG_NUMBER, "invalid limit");
|
||||
|
|
@ -670,7 +664,6 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
pc += GETARG_S(i); /* repeat loop */
|
||||
break;
|
||||
}
|
||||
|
||||
case OP_LFORPREP: {
|
||||
if (ttype(top-1) != TAG_TABLE)
|
||||
lua_error(L, "`for' table must be a table");
|
||||
|
|
@ -688,7 +681,6 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
}
|
||||
break;
|
||||
}
|
||||
|
||||
case OP_LFORLOOP: {
|
||||
int n;
|
||||
top -= 2; /* remove old index,value */
|
||||
|
|
@ -705,14 +697,13 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
|||
}
|
||||
break;
|
||||
}
|
||||
|
||||
case OP_CLOSURE:
|
||||
case OP_CLOSURE: {
|
||||
L->top = top;
|
||||
luaV_Lclosure(L, tf->kproto[GETARG_A(i)], GETARG_B(i));
|
||||
top = L->top;
|
||||
luaC_checkGC(L);
|
||||
break;
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue