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

RESET is generated at codereturn.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1994-11-03 20:32:42 -02:00
parent 5cb6856ebc
commit 2651afc455
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lua.stx
View File

@@ -1,6 +1,6 @@
%{ %{
char *rcs_luastx = "$Id: lua.stx,v 2.12 1994/11/01 18:25:20 roberto Exp roberto $"; char *rcs_luastx = "$Id: lua.stx,v 3.1 1994/11/02 20:30:53 roberto Exp $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@@ -274,7 +274,6 @@ function : FUNCTION NAME
block block
END END
{ {
if (lua_debug) code_byte(RESET);
codereturn(); codereturn();
s_tag($<vWord>3) = LUA_T_FUNCTION; s_tag($<vWord>3) = LUA_T_FUNCTION;
s_bvalue($<vWord>3) = calloc (pc, sizeof(Byte)); s_bvalue($<vWord>3) = calloc (pc, sizeof(Byte));
@@ -314,7 +313,6 @@ method : FUNCTION NAME { $<vWord>$ = lua_findsymbol($2); } ':' NAME
END END
{ {
Byte *b; Byte *b;
if (lua_debug) code_byte(RESET);
codereturn(); codereturn();
b = calloc (pc, sizeof(Byte)); b = calloc (pc, sizeof(Byte));
if (b == NULL) if (b == NULL)
@@ -449,7 +447,6 @@ ret : /* empty */
RETURN exprlist sc RETURN exprlist sc
{ {
if ($3 < 0) code_byte(MULT_RET); if ($3 < 0) code_byte(MULT_RET);
if (lua_debug) code_byte(RESET);
codereturn(); codereturn();
} }
; ;
@@ -716,6 +713,7 @@ static void lua_codeadjust (int n)
static void codereturn (void) static void codereturn (void)
{ {
if (lua_debug) code_byte(RESET);
if (nlocalvar == 0) if (nlocalvar == 0)
code_byte(RETCODE0); code_byte(RETCODE0);
else else