lua

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:
M
lua.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