fix(ci): clear updated main regression gates

Author: TheHypnoo

crates/perry-codegen/src/dialect/mod.rs

@@ -35,6 +35,7 @@ mod tests;
 /// native path pre-declares every define before reading any body — calls to
 /// module-internal functions are forward references at module scope, exactly
 /// like registers are at function scope.
+#[cfg(test)]
 pub(crate) fn predeclare_function_from_text<'ctx>(
     context: &'ctx Context,
     module: &Module<'ctx>,
@@ -104,6 +105,7 @@ impl<'ctx, 'm> FnStream<'ctx, 'm> {
 
 /// Parse `fn_text` (a complete `define ... { ... }`) and build it into
 /// `module`. Returns the number of instructions constructed.
+#[cfg(test)]
 pub(crate) fn add_function_from_text<'ctx>(
     context: &'ctx Context,
     module: &Module<'ctx>,

crates/perry-codegen/src/gc_map.rs

@@ -82,6 +82,7 @@ const ELF_SECTION: &str = ".perry_gcmap,\"awR\",@progbits";
 const COFF_SECTION: &str = ".pgcmap,\"dw\"";
 /// What the runtime looks for in a PE image. Must match `COFF_SECTION`'s name
 /// and stay within eight bytes.
+#[cfg(test)]
 pub(crate) const COFF_SECTION_NAME: &str = ".pgcmap";
 
 /// LLVM stack-map v3 location kinds. Only these two describe a frame slot;

crates/perry-codegen/src/linker.rs

@@ -713,11 +713,14 @@ fn compile_ll_inprocess_in(
     policy: TempFilePolicy,
 ) -> Result<Vec<u8>> {
     let (paths, _pid, _nonce) = llvm_temp_paths(tmp_dir, ll_text);
+    // The in-process backend still needs a companion clang for structural
+    // analysis metadata and, for statepoints, final assembly.
+    let companion_clang = find_clang().unwrap_or_else(|| PathBuf::from("(in-process)"));
     // Same decision inputs as the clang path — opt level (#4880 fallback
     // included), CPU tuning, inlinehint threshold — via the same plan
     // constructor, so the backends cannot drift on a decision independently.
     let plan = build_clang_compile_plan(
-        PathBuf::from("(in-process)"),
+        companion_clang,
         paths.ll_path.clone(),
         paths.obj_path.clone(),
         target_triple,
@@ -767,8 +770,9 @@ fn compile_ll_inprocess_in(
             }
             fs::write(asm_path, &bytes)
                 .with_context(|| format!("Failed to write {}", asm_path.display()))?;
-            // `plan.clang` is the literal `(in-process)` placeholder here, so
-            // resolve a real assembler. Using the system clang for this step is
+            // Resolve the assembler again so a missing companion recorded as
+            // `(in-process)` above still gets a precise error here. Using the
+            // system clang for this step is
             // sound: the version skew that motivated the in-process backend was
             // an *IR* parse failure (`unterminated attribute group`), and by
             // this point the IR is gone — what is being assembled is text this

crates/perry-codegen/src/statepoint_report.rs

@@ -11,7 +11,6 @@
 //! knob with no CI arm, so that spelling was deleted under CLAUDE.md's GC knob
 //! kill policy. `gc-native-roots.yml` exercises the report through the flag.
 
-use std::collections::BTreeMap;
 use std::fmt::Write as _;
 use std::sync::{Mutex, OnceLock};
 
@@ -164,21 +163,6 @@ fn totals(records: &[FunctionRecord]) -> Totals {
     out
 }
 
-fn render_ranked_map(out: &mut String, heading: &str, values: &BTreeMap<String, u64>) {
-    if values.is_empty() {
-        return;
-    }
-    let mut rows: Vec<_> = values.iter().collect();
-    rows.sort_by(|(name_a, count_a), (name_b, count_b)| {
-        count_b.cmp(count_a).then_with(|| name_a.cmp(name_b))
-    });
-    let _ = writeln!(out, "{heading}");
-    for (name, count) in rows.into_iter().take(25) {
-        let _ = writeln!(out, "  {count:>6}  {name}");
-    }
-    out.push('\n');
-}
-
 pub fn render_text(records: &[FunctionRecord]) -> String {
     render_text_with(records, take_gc_map())
 }

crates/perry-runtime/src/eh.rs

@@ -61,12 +61,13 @@ extern "C" {
     fn _Unwind_RaiseException(exception: *mut UnwindException) -> UnwindReasonCode;
     fn _Unwind_GetLanguageSpecificData(ctx: *mut UnwindContext) -> *const u8;
     fn _Unwind_GetIPInfo(ctx: *mut UnwindContext, ip_before_insn: *mut c_int) -> usize;
+    pub(crate) fn _Unwind_GetIP(ctx: *mut UnwindContext) -> usize;
     fn _Unwind_GetRegionStart(ctx: *mut UnwindContext) -> usize;
     fn _Unwind_SetGR(ctx: *mut UnwindContext, reg_index: c_int, value: usize);
     fn _Unwind_SetIP(ctx: *mut UnwindContext, value: usize);
     fn _Unwind_GetCFA(ctx: *mut UnwindContext) -> usize;
-    fn _Unwind_Backtrace(
-        trace: extern "C" fn(*mut UnwindContext, *mut core::ffi::c_void) -> UnwindReasonCode,
+    pub(crate) fn _Unwind_Backtrace(
+        trace: unsafe extern "C" fn(*mut UnwindContext, *mut core::ffi::c_void) -> UnwindReasonCode,
         arg: *mut core::ffi::c_void,
     ) -> UnwindReasonCode;
 }
@@ -113,7 +114,10 @@ fn selfcheck_frame_a() -> usize {
 
 #[inline(never)]
 fn selfcheck_frame_b() -> usize {
-    extern "C" fn count(_ctx: *mut UnwindContext, arg: *mut core::ffi::c_void) -> UnwindReasonCode {
+    unsafe extern "C" fn count(
+        _ctx: *mut UnwindContext,
+        arg: *mut core::ffi::c_void,
+    ) -> UnwindReasonCode {
         unsafe { *(arg as *mut usize) += 1 };
         // _URC_NO_REASON: the ONLY value that lets _Unwind_Backtrace keep
         // walking — any other reason code stops the trace after one frame.

crates/perry-runtime/src/eh_walker.rs

@@ -277,7 +277,11 @@ fn parse_unwind_info(ui: &[u8], image_base: u64) -> (Vec<(u64, u32)>, Vec<(u64,
                 let enc = if idx < common.len() {
                     common[idx]
                 } else {
-                    u32at(page_off + enc_off + 4 * (idx - common.len()))
+                    let local_idx = idx - common.len();
+                    if local_idx >= enc_count {
+                        continue;
+                    }
+                    u32at(page_off + enc_off + 4 * local_idx)
                 };
                 funcs.push((image_base + fn_base + (raw & 0x00FF_FFFF) as u64, enc));
             }
@@ -919,17 +923,12 @@ mod tests {
     /// Collect frame PCs via the SYSTEM unwinder (_Unwind_Backtrace) —
     /// the oracle the owned walk must match.
     fn system_pcs(max: usize) -> Vec<u64> {
-        use core::ffi::{c_int, c_void};
-        unsafe extern "C" {
-            fn _Unwind_Backtrace(
-                trace: extern "C" fn(*mut c_void, *mut c_void) -> c_int,
-                arg: *mut c_void,
-            ) -> c_int;
-            fn _Unwind_GetIP(ctx: *mut c_void) -> u64;
-        }
-        extern "C" fn cb(ctx: *mut c_void, arg: *mut c_void) -> c_int {
+        use crate::eh::{_Unwind_Backtrace, _Unwind_GetIP, UnwindContext, UnwindReasonCode};
+        use core::ffi::c_void;
+
+        unsafe extern "C" fn cb(ctx: *mut UnwindContext, arg: *mut c_void) -> UnwindReasonCode {
             let v = unsafe { &mut *(arg as *mut Vec<u64>) };
-            unsafe { v.push(_Unwind_GetIP(ctx)) };
+            unsafe { v.push(_Unwind_GetIP(ctx) as u64) };
             0
         }
         let mut v: Vec<u64> = Vec::with_capacity(max);

crates/perry-runtime/src/gc/roots.rs

@@ -663,14 +663,7 @@ pub(super) fn try_mark_value_or_raw(word: u64, valid_ptrs: &ValidPointerSet) ->
 #[inline(always)]
 #[cfg(target_os = "macos")]
 pub(super) fn get_stack_bottom() -> usize {
-    extern "C" {
-        fn pthread_self() -> *mut std::ffi::c_void;
-        fn pthread_get_stackaddr_np(thread: *mut std::ffi::c_void) -> *mut std::ffi::c_void;
-    }
-    unsafe {
-        let thread = pthread_self();
-        pthread_get_stackaddr_np(thread) as usize
-    }
+    unsafe { libc::pthread_get_stackaddr_np(libc::pthread_self()) as usize }
 }
 
 #[cfg(target_os = "linux")]

crates/perry-runtime/src/gc/roots/stack_maps.rs

@@ -984,18 +984,9 @@ fn loaded_stack_map_section() -> Option<&'static [u8]> {
 #[cfg(any(target_vendor = "apple", target_os = "linux"))]
 mod unwind {
     use super::*;
-
-    #[repr(C)]
-    struct UnwindContext {
-        _private: [u8; 0],
-    }
+    use crate::eh::{_Unwind_Backtrace, _Unwind_GetIP, UnwindContext, UnwindReasonCode};
 
     unsafe extern "C" {
-        fn _Unwind_Backtrace(
-            trace: unsafe extern "C" fn(*mut UnwindContext, *mut c_void) -> i32,
-            argument: *mut c_void,
-        ) -> i32;
-        fn _Unwind_GetIP(context: *mut UnwindContext) -> usize;
         fn _Unwind_GetGR(context: *mut UnwindContext, register: i32) -> usize;
         /// The frame's canonical frame address — the supported way to reach a
         /// frame's stack pointer. `_Unwind_GetGR` on the SP column is not a
@@ -1033,7 +1024,7 @@ mod unwind {
     unsafe extern "C" fn walk_frame<F: FnMut(MutableRootSlot)>(
         context: *mut UnwindContext,
         argument: *mut c_void,
-    ) -> i32 {
+    ) -> UnwindReasonCode {
         let state = &mut *argument.cast::<WalkState<'_, F>>();
         state.stats.frames_visited = state.stats.frames_visited.saturating_add(1);
         let ip = _Unwind_GetIP(context);
@@ -1360,11 +1351,7 @@ mod fp_chain {
     // the alternative was this module quietly not existing there.
     #[cfg(target_vendor = "apple")]
     fn stack_top() -> usize {
-        unsafe extern "C" {
-            fn pthread_self() -> usize;
-            fn pthread_get_stackaddr_np(thread: usize) -> *mut c_void;
-        }
-        unsafe { pthread_get_stackaddr_np(pthread_self()) as usize }
+        unsafe { libc::pthread_get_stackaddr_np(libc::pthread_self()) as usize }
     }
 
     /// Linux (#7173): stack bounds via pthread attrs — the returned address

crates/perry-runtime/src/module_require.rs

@@ -448,11 +448,8 @@ fn link_parent(cache: f64, record: f64, parent_filename: &str) {
     let children = js_object_get_field_by_name(object_ptr(parent.get_nanbox_f64()), children_key);
     let mut children_ptr = if children.is_pointer() {
         let ptr = children.as_pointer::<u8>();
-        if crate::value::addr_class::is_plausible_heap_addr(ptr as usize)
-            && unsafe {
-                (*(ptr.sub(crate::gc::GC_HEADER_SIZE) as *const crate::gc::GcHeader)).obj_type
-                    == crate::gc::GC_TYPE_ARRAY
-            }
+        if unsafe { crate::value::addr_class::try_read_gc_header(ptr as usize) }
+            .is_some_and(|header| header.obj_type == crate::gc::GC_TYPE_ARRAY)
         {
             ptr as *mut crate::array::ArrayHeader
         } else {

crates/perry-runtime/src/process/node_module/source_map.rs

@@ -59,6 +59,7 @@ pub extern "C" fn js_module_source_map_new(payload: f64, options: f64) -> f64 {
     unsafe {
         let obj = obj.get_raw_mut_ptr::<crate::object::ObjectHeader>();
         (*obj).class_id = SOURCE_MAP_CLASS_ID;
+        // GC_STORE_AUDIT(INIT): the fresh object is still rooted and unpublished.
         (*obj).keys_array = std::ptr::null_mut();
     }
     crate::object::js_object_set_field(