From dbfb810267d8fd7ecf546ea1e1edc8892547e664 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 5 Jun 2000 11:56:18 -0300
Subject: cleansing of lparser.c

---
 lgc.c | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'lgc.c')

diff --git a/lgc.c b/lgc.c
index 9ec9c2b6..b8cbc54f 100644
--- a/lgc.c
+++ b/lgc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lgc.c,v 1.52 2000/05/30 18:54:49 roberto Exp roberto $
+** $Id: lgc.c,v 1.53 2000/05/30 19:00:31 roberto Exp roberto $
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 */
@@ -34,10 +34,15 @@ static void protomark (lua_State *L, Proto *f) {
     int i;
     f->marked = 1;
     strmark(L, f->source);
-    for (i=f->nkstr-1; i>=0; i--)
+    for (i=0; i<f->nkstr; i++)
       strmark(L, f->kstr[i]);
-    for (i=f->nkproto-1; i>=0; i--)
+    for (i=0; i<f->nkproto; i++)
       protomark(L, f->kproto[i]);
+    if (f->locvars) {  /* is there debug information? */
+      LocVar *lv;
+      for (lv=f->locvars; lv->line != -1; lv++)  /* mark local-variable names */
+        if (lv->varname) strmark(L, lv->varname);
+    }
   }
 }
 
-- 
cgit v1.2.3-55-g6feb