mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-26 06:39:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

execution of 'mains' separated from calls

Browse Source
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
*/
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 <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)
firstResult = lua_execute(bvalue(func), base);
else
{
lua_reportbug ("call expression not a function");
return; /* to avoid warnings */
}
/* adjust the number of results */
if (nResults != MULT_RET && 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)
{
Object f;
jmp_buf myErrorJmp;
int status;
int oldCBase = CBase;
@ -364,14 +366,6 @@ static int do_protectedrun (Object *function, int nResults)
errorJmp = &myErrorJmp;
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);
CnResults = (top-stack) - CBase; /* number of results */
CBase += CnResults; /* incorporate results on the stack */
@ -383,12 +377,38 @@ static int do_protectedrun (Object *function, int nResults)
top = stack+CBase;
status = 1;
}
if (tag(&f) == LUA_T_FUNCTION)
free(bvalue(&f));
errorJmp = oldErr;
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.
*/
@ -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
** success or 1 on error.
@ -414,7 +441,7 @@ int lua_dofile (char *filename)
lua_message(message);
return 1;
}
status = do_protectedrun(NULL, 0);
status = do_protectedmain();
lua_closefile();
return status;
}
@ -432,7 +459,7 @@ int lua_dostring (char *string)
lua_message(message);
return 1;
}
status = do_protectedrun(NULL, 0);
status = do_protectedmain();
lua_closestring();
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)
{
lua_debugline = 0; /* reset debug flag */
lua_checkstack(STACKGAP+MAX_TEMPS+base);
while (1)
{