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

execution of 'mains' separated from calls

This commit is contained in:
Roberto Ierusalimschy 1994-11-09 16:13:29 -02:00
parent df0cfc1e19
commit d531ccd082
1 changed files with 41 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
opcode.c
View File

@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_opcode="$Id: opcode.c,v 3.5 1994/11/07 18:27:39 roberto Exp $"; char *rcs_opcode="$Id: opcode.c,v 3.6 1994/11/08 19:56:39 roberto Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@ -286,7 +286,10 @@ static void do_call (Object *func, int base, int nResults, int whereRes)
else if (tag(func) == LUA_T_FUNCTION) else if (tag(func) == LUA_T_FUNCTION)
firstResult = lua_execute(bvalue(func), base); firstResult = lua_execute(bvalue(func), base);
else else
{
lua_reportbug ("call expression not a function"); lua_reportbug ("call expression not a function");
return; /* to avoid warnings */
}
/* adjust the number of results */ /* adjust the number of results */
if (nResults != MULT_RET && top - (stack+firstResult) != nResults) if (nResults != MULT_RET && top - (stack+firstResult) != nResults)
adjust_top(stack+firstResult+nResults); adjust_top(stack+firstResult+nResults);
@ -356,7 +359,6 @@ void lua_travstack (void (*fn)(Object *))
*/ */
static int do_protectedrun (Object *function, int nResults) static int do_protectedrun (Object *function, int nResults)
{ {
Object f;
jmp_buf myErrorJmp; jmp_buf myErrorJmp;
int status; int status;
int oldCBase = CBase; int oldCBase = CBase;
@ -364,14 +366,6 @@ static int do_protectedrun (Object *function, int nResults)
errorJmp = &myErrorJmp; errorJmp = &myErrorJmp;
if (setjmp(myErrorJmp) == 0) if (setjmp(myErrorJmp) == 0)
{ {
if (function == NULL)
{
tag(&f) = LUA_T_FUNCTION;
bvalue(&f) = lua_parse();
function = &f;
}
else
tag(&f) = LUA_T_NIL;
do_call(function, CBase, nResults, CBase); do_call(function, CBase, nResults, CBase);
CnResults = (top-stack) - CBase; /* number of results */ CnResults = (top-stack) - CBase; /* number of results */
CBase += CnResults; /* incorporate results on the stack */ CBase += CnResults; /* incorporate results on the stack */
@ -383,12 +377,38 @@ static int do_protectedrun (Object *function, int nResults)
top = stack+CBase; top = stack+CBase;
status = 1; status = 1;
} }
if (tag(&f) == LUA_T_FUNCTION)
free(bvalue(&f));
errorJmp = oldErr; errorJmp = oldErr;
return status; return status;
} }
static int do_protectedmain (void)
{
Byte *code = NULL;
int status;
int oldCBase = CBase;
jmp_buf myErrorJmp;
jmp_buf *oldErr = errorJmp;
errorJmp = &myErrorJmp;
if (setjmp(myErrorJmp) == 0)
{
Object f;
lua_parse(&code);
tag(&f) = LUA_T_FUNCTION; bvalue(&f) = code;
do_call(&f, CBase, 0, CBase);
status = 0;
}
else
status = 1;
if (code)
free(code);
errorJmp = oldErr;
CBase = oldCBase;
top = stack+CBase;
return status;
}
/* /*
** Execute the given lua function. Return 0 on success or 1 on error. ** Execute the given lua function. Return 0 on success or 1 on error.
*/ */
@ -401,6 +421,13 @@ int lua_callfunction (lua_Object function)
} }
int lua_call (char *funcname)
{
int n = lua_findsymbol(funcname);
return do_protectedrun(&s_object(n), MULT_RET);
}
/* /*
** Open file, generate opcode and execute global statement. Return 0 on ** Open file, generate opcode and execute global statement. Return 0 on
** success or 1 on error. ** success or 1 on error.
@ -414,7 +441,7 @@ int lua_dofile (char *filename)
lua_message(message); lua_message(message);
return 1; return 1;
} }
status = do_protectedrun(NULL, 0); status = do_protectedmain();
lua_closefile(); lua_closefile();
return status; return status;
} }
@ -432,7 +459,7 @@ int lua_dostring (char *string)
lua_message(message); lua_message(message);
return 1; return 1;
} }
status = do_protectedrun(NULL, 0); status = do_protectedmain();
lua_closestring(); lua_closestring();
return status; return status;
} }
@ -694,7 +721,6 @@ static void comparison (lua_Type tag_less, lua_Type tag_equal,
*/ */
static int lua_execute (Byte *pc, int base) static int lua_execute (Byte *pc, int base)
{ {
lua_debugline = 0; /* reset debug flag */
lua_checkstack(STACKGAP+MAX_TEMPS+base); lua_checkstack(STACKGAP+MAX_TEMPS+base);
while (1) while (1)
{ {