mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

details

This commit is contained in:
Roberto Ierusalimschy 1999-09-27 15:00:25 -03:00
parent cf9a22396c
commit d53e2d2386
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lgc.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lgc.c,v 1.24 1999/08/11 17:00:59 roberto Exp roberto $
** $Id: lgc.c,v 1.25 1999/08/16 20:52:00 roberto Exp roberto $
** Garbage Collector
** See Copyright Notice in lua.h
*/
@ -143,10 +143,10 @@ static GCnode *listcollect (GCnode *l) {
}
static void strmark (TaggedString *s) {
if (!s->head.marked)
s->head.marked = 1;
}
/*
** mark a string; marks bigger than 1 cannot be changed.
*/
#define strmark(s) {if ((s)->head.marked == 0) (s)->head.marked = 1;}
static void protomark (TProtoFunc *f) {
@ -154,7 +154,7 @@ static void protomark (TProtoFunc *f) {
int i;
f->head.marked = 1;
strmark(f->source);
for (i=0; i<f->nconsts; i++)
for (i=f->nconsts-1; i>=0; i--)
markobject(&f->consts[i]);
}
}
@ -174,7 +174,7 @@ static void hashmark (Hash *h) {
if (!h->head.marked) {
int i;
h->head.marked = 1;
for (i=0; i<nhash(h); i++) {
for (i=nhash(h)-1; i>=0; i--) {
Node *n = node(h,i);
if (ttype(ref(n)) != LUA_T_NIL) {
markobject(&n->ref);