diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/alloc.c b/src/alloc.c index 431238b13e6..faa8e703937 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -517,14 +517,6 @@ Lisp_Object const *staticvec[NSTATICS] int staticidx; -/* Lisp of freed native compilation unit handles. - - Because during GC Vcomp_loaded_handles can't be used (hash table) temporary - annotate here and update Vcomp_loaded_handles when finished. -*/ - -static Lisp_Object freed_cu_handles[NATIVE_COMP_FLAG]; - static void *pure_alloc (size_t, int); /* Return PTR rounded up to the next multiple of ALIGNMENT. */ @@ -3038,10 +3030,6 @@ cleanup_vector (struct Lisp_Vector *vector) PSEUDOVEC_STRUCT (vector, Lisp_Native_Comp_Unit); eassert (cu->handle); dynlib_close (cu->handle); - /* We'll update Vcomp_loaded_handles when finished. */ - freed_cu_handles[0] = - Fcons (make_mint_ptr (cu->handle), freed_cu_handles[0]); - set_cons_marked (XCONS (freed_cu_handles[0])); } } @@ -5949,9 +5937,6 @@ garbage_collect (void) if (garbage_collection_messages) message1_nolog ("Garbage collecting..."); - if (NATIVE_COMP_FLAG) - freed_cu_handles[0] = Qnil; - block_input (); shrink_regexp_cache (); @@ -6016,10 +6001,6 @@ garbage_collect (void) gc_in_progress = 0; - if (NATIVE_COMP_FLAG) - FOR_EACH_TAIL (freed_cu_handles[0]) - Fputhash (XCAR (freed_cu_handles[0]), Qnil, Vcomp_loaded_handles); - unblock_input (); consing_until_gc = gc_threshold |