Make partial_inst a global root. (#23507)

Types in this list might not be rooted anywhere else.

src/gc.c

@@ -1977,7 +1977,7 @@ module_binding: {
  }
 
 finlist: {
- // Scan a finalizer list. see `gc_mark_finlist_t`
+ // Scan a finalizer (or format compatible) list. see `gc_mark_finlist_t`
  gc_mark_finlist_t *finlist = gc_pop_markdata(&sp, gc_mark_finlist_t);
  jl_value_t **begin = finlist->begin;
  jl_value_t **end = finlist->end;
@@ -2276,6 +2276,8 @@ static void mark_roots(jl_gc_mark_cache_t *gc_cache, gc_mark_sp_t *sp)
  // constants
  gc_mark_queue_obj(gc_cache, sp, jl_typetype_type);
  gc_mark_queue_obj(gc_cache, sp, jl_emptytuple_type);
+
+ gc_mark_queue_finlist(gc_cache, sp, &partial_inst, 0);
 }
 
 // find unmarked objects that need to be finalized from the finalizer list "list".

src/gc.h

@@ -188,7 +188,7 @@ typedef struct {
  uint8_t bits; // GC bits of the module (the bits to mark the binding buffer with)
 } gc_mark_binding_t;
 
-// Finalizer list
+// Finalizer (or object) list
 typedef struct {
  jl_value_t **begin;
  jl_value_t **end;

src/jltypes.c

@@ -1080,7 +1080,7 @@ static void check_datatype_parameters(jl_typename_t *tn, jl_value_t **params, si
  JL_GC_POP();
 }
 
-static arraylist_t partial_inst;
+arraylist_t partial_inst;
 int inside_typedef = 0;
 
 static jl_value_t *extract_wrapper(jl_value_t *t)

src/julia_internal.h

@@ -1001,6 +1001,8 @@ extern jl_sym_t *isdefined_sym; extern jl_sym_t *nospecialize_sym;
 void jl_register_fptrs(uint64_t sysimage_base, const char *base, const int32_t *offsets,
  jl_method_instance_t **linfos, size_t n);
 
+extern arraylist_t partial_inst;
+
 #ifdef __cplusplus
 }
 #endif