lua

A copy of the Lua development repository
Log | Files | Refs | README

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:
Mlua.stx | 6++----
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