Changeset 825

Timestamp:

Jun 5, 2004, 10:59:42 PM (20 years ago)

Author:

Gary Byers

Message:

New post-gc freeing mechanism (suspened thread may own malloc lock.)

Location:

trunk/ccl/lisp-kernel

Files:

• gc.c (modified) (2 diffs)
• gc.h (modified) (1 diff)
• lisp-exceptions.c (modified) (1 diff)

trunk/ccl/lisp-kernel/gc.c

@@ -1892 +1892 @@
 }
       
-      
+
+void *postGCptrs = NULL;
+
+void
+postGCfree(void *p)
+{
+  *(void **)p = postGCptrs;
+  postGCptrs = p;
+}
+
+void
+freeGCptrs()
+{
+  void *p, *next;
+
+  for (p = postGCptrs; p; p = next) {
+    next = *((void **)p);
+    free(p);
+  }
+  postGCptrs = NULL;
+}
+
 void
 reap_gcable_ptrs()
@@ -1920 +1941 @@
 
         case xmacptr_flag_ptr:
-          deallocate((char *)ptr_from_lispobj(ptr));
+          postGCfree((void *)ptr_from_lispobj(ptr));
           break;
 

trunk/ccl/lisp-kernel/gc.h

@@ -48 +48 @@
 void mark_locative_root(LispObj);
 void rmark(LispObj);
+void postGCfree(void *);
 LispObj *skip_over_ivector(LispObj, LispObj);
 void mark_simple_area_range(LispObj *,LispObj *);

trunk/ccl/lisp-kernel/lisp-exceptions.c

@@ -831 +831 @@
 gc_from_xp(ExceptionInformation *xp)
 {
-  return gc_like_from_xp(xp, gc_from_tcr);
+  int status = gc_like_from_xp(xp, gc_from_tcr);
+
+  freeGCptrs();
+  return status;
 }