commit 2651afc455a78f5ae778b9fd8a0ee9efffed4998
parent 5cb6856ebc8c95d8d6bd38b3e4b366dc46c6a903
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 3 Nov 1994 20:32:23 -0200
RESET is generated at codereturn.
Diffstat:
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/lua.stx b/lua.stx
@@ -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 <stdlib.h>
@@ -274,7 +274,6 @@ function : FUNCTION NAME
block
END
{
- if (lua_debug) code_byte(RESET);
codereturn();
s_tag($<vWord>3) = LUA_T_FUNCTION;
s_bvalue($<vWord>3) = calloc (pc, sizeof(Byte));
@@ -314,7 +313,6 @@ method : FUNCTION NAME { $<vWord>$ = lua_findsymbol($2); } ':' NAME
END
{
Byte *b;
- if (lua_debug) code_byte(RESET);
codereturn();
b = calloc (pc, sizeof(Byte));
if (b == NULL)
@@ -449,7 +447,6 @@ ret : /* empty */
RETURN exprlist sc
{
if ($3 < 0) code_byte(MULT_RET);
- if (lua_debug) code_byte(RESET);
codereturn();
}
;
@@ -716,6 +713,7 @@ static void lua_codeadjust (int n)
static void codereturn (void)
{
+ if (lua_debug) code_byte(RESET);
if (nlocalvar == 0)
code_byte(RETCODE0);
else