From 9d7bae0b6ab66e7e0cff8871e65ecddb55513d6b Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Wed, 24 Feb 1999 14:55:51 -0300
Subject: better instrumentation for internal debugging

---
 lparser.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lparser.c')

diff --git a/lparser.c b/lparser.c
index 2bd65ee3..03e05102 100644
--- a/lparser.c
+++ b/lparser.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lparser.c,v 1.20 1999/02/09 18:01:55 roberto Exp roberto $
+** $Id: lparser.c,v 1.21 1999/02/24 15:37:19 roberto Exp roberto $
 ** LL(1) Parser and code generator for Lua
 ** See Copyright Notice in lua.h
 */
@@ -403,6 +403,10 @@ static void close_exp (LexState *ls, int pc, int nresults) {
       deltastack(ls, nresults);  /* push results */
     deltastack(ls, -(code[pc]+1));  /* pop params (at code[pc]) and function */
   }
+#ifdef DEBUG
+  if (nresults != MULT_RET)
+    code_oparg(ls, CHECKSTACK, ls->fs->stacksize, 0);
+#endif
 }
 
 
-- 
cgit v1.2.3-55-g6feb