GC may crash when checking C closures

2 files changed, 6 insertions, 2 deletions

diff --git a/bugs b/bugs
index b668cc00..c82a31d5 100644
--- a/bugs
+++ b/bugs
@@ -213,3 +213,7 @@ Mon Sep 25 11:47:48 EST 2000
 >> lua_gettable does not get key from stack top
 (by Philip Yi; since 4.0b)
 
+** lgc.c
+Mon Sep 25 11:50:48 EST 2000
+>> GC may crash when checking C closures
+(by Philip Yi; since 4.0b)
diff --git a/lgc.c b/lgc.c
index 02dfaebc..9e84919f 100644
--- a/lgc.c
+++ b/lgc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lgc.c,v 1.65 2000/09/11 17:38:42 roberto Exp roberto $
+** $Id: lgc.c,v 1.66 2000/09/19 08:42:35 roberto Exp roberto $
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 */
@@ -152,7 +152,7 @@ static int hasmark (const TObject *o) {
     case TAG_TABLE:
       return ismarked(hvalue(o));
     case TAG_LCLOSURE:  case TAG_CCLOSURE:
-      return ismarked(clvalue(o)->mark);
+      return ismarked(clvalue(o));
     default:  /* number */
       return 1;
   }