1 files changed, 3 insertions, 3 deletions
diff --git a/lgc.c b/lgc.c
index 112d02ac..b0efaed3 100644
--- a/lgc.c
+++ b/lgc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lgc.c,v 1.107 2001/06/21 16:41:34 roberto Exp roberto $
+** $Id: lgc.c,v 1.108 2001/06/26 13:20:45 roberto Exp roberto $
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 */
@@ -40,8 +40,8 @@ static void protomark (Proto *f) {
      if (ttype(f->k+i) == LUA_TSTRING)
        strmark(tsvalue(f->k+i));
    }
-    for (i=0; i<f->sizekproto; i++)
+    for (i=0; i<f->sizep; i++)
-      protomark(f->kproto[i]);
+      protomark(f->p[i]);
    for (i=0; i<f->sizelocvars; i++)  /* mark local-variable names */
      strmark(f->locvars[i].varname);
  }

diff --git a/lgc.c b/lgc.c index 112d02ac..b0efaed3 100644 --- a/lgc.c +++ b/lgc.c
@@ -1,5 +1,5 @@
1	/*	1	/*
2	** $Id: lgc.c,v 1.107 2001/06/21 16:41:34 roberto Exp roberto $	2	** $Id: lgc.c,v 1.108 2001/06/26 13:20:45 roberto Exp roberto $
3	** Garbage Collector	3	** Garbage Collector
4	** See Copyright Notice in lua.h	4	** See Copyright Notice in lua.h
5	*/	5	*/
@@ -40,8 +40,8 @@ static void protomark (Proto *f) {
40	if (ttype(f->k+i) == LUA_TSTRING)	40	if (ttype(f->k+i) == LUA_TSTRING)
41	strmark(tsvalue(f->k+i));	41	strmark(tsvalue(f->k+i));
42	}	42	}
43	for (i=0; i<f->sizekproto; i++)	43	for (i=0; i<f->sizep; i++)
44	protomark(f->kproto[i]);	44	protomark(f->p[i]);
45	for (i=0; i<f->sizelocvars; i++) /* mark local-variable names */	45	for (i=0; i<f->sizelocvars; i++) /* mark local-variable names */
46	strmark(f->locvars[i].varname);	46	strmark(f->locvars[i].varname);
47	}	47	}