Skip to main content

synth_backend/
arm_backend.rs

1//! ARM Backend — wraps the instruction selector + optimizer + encoder as a Backend
2//!
3//! This is Synth's custom ARM compiler targeting Cortex-M (Thumb-2).
4//! It's the only backend that supports per-rule formal verification (ASIL D path).
5
6use crate::ArmEncoder;
7use synth_core::backend::{
8    Backend, BackendCapabilities, BackendError, CodeRelocation, CompilationResult, CompileConfig,
9    CompiledFunction, LineMap, SafetyBounds,
10};
11use synth_core::target::{IsaVariant, TargetSpec};
12use synth_core::wasm_decoder::DecodedModule;
13use synth_core::wasm_op::WasmOp;
14use synth_synthesis::{
15    ArmInstruction, ArmOp, BoundsCheckConfig, InstructionSelector, OptimizationConfig,
16    OptimizerBridge, RuleDatabase, validate_instructions,
17};
18
19/// ARM Cortex-M backend using Synth's custom compiler pipeline
20pub struct ArmBackend;
21
22impl ArmBackend {
23    pub fn new() -> Self {
24        Self
25    }
26}
27
28impl Default for ArmBackend {
29    fn default() -> Self {
30        Self::new()
31    }
32}
33
34impl Backend for ArmBackend {
35    fn name(&self) -> &str {
36        "arm"
37    }
38
39    fn capabilities(&self) -> BackendCapabilities {
40        BackendCapabilities {
41            produces_elf: false,
42            supports_rule_verification: true,
43            supports_binary_verification: true,
44            is_external: false,
45        }
46    }
47
48    fn supported_targets(&self) -> Vec<TargetSpec> {
49        vec![
50            TargetSpec::cortex_m3(),
51            TargetSpec::cortex_m4(),
52            TargetSpec::cortex_m4f(),
53            TargetSpec::cortex_m7(),
54            TargetSpec::cortex_m7dp(),
55        ]
56    }
57
58    fn compile_module(
59        &self,
60        module: &DecodedModule,
61        config: &CompileConfig,
62    ) -> Result<CompilationResult, BackendError> {
63        let exports: Vec<_> = module
64            .functions
65            .iter()
66            .filter(|f| f.export_name.is_some())
67            .collect();
68
69        if exports.is_empty() {
70            return Err(BackendError::CompilationFailed(
71                "no exported functions found".into(),
72            ));
73        }
74
75        let mut functions = Vec::new();
76        for func in &exports {
77            let name = func.export_name.clone().unwrap();
78            // #359: copy THIS function's declared param widths into the config so
79            // `compile_function` (which carries no function index) can refuse a
80            // 64-bit param on the AAPCS stack-argument path. Cheap clone only when
81            // a signature table is present and this function has a width entry —
82            // otherwise reuse the shared config (every existing module unchanged).
83            // #509: same per-function pattern for the blocktype-arity side-table
84            // (value-carrying-branch lowering).
85            let params = config
86                .func_params_i64
87                .get(func.index as usize)
88                .filter(|p| !p.is_empty());
89            // #457: THIS function's DECLARED param count (imports-first full
90            // index), so the backend can cap the access-pattern inference that
91            // mistook a read-before-write local for a param. `None` when the
92            // driver supplied no arg-count table (hand-built modules).
93            let declared_params = config.func_arg_counts.get(func.index as usize).copied();
94            // GI-FPU-002 (#619/#369): THIS function's declared f32-param mask.
95            let params_f32 = config
96                .func_params_f32
97                .get(func.index as usize)
98                .filter(|p| !p.is_empty());
99            // GI-FPU-002 phase 2 (#369): THIS function's declared f64-param
100            // mask (hard-float targets decline f64 params loudly).
101            let params_f64 = config
102                .func_params_f64
103                .get(func.index as usize)
104                .filter(|p| !p.is_empty());
105            // GI-FPU-002 phase 2 (#719/#369): THIS function's declared f32/f64
106            // return flag, so the epilogue soundness guard fires on every driver
107            // path (not only the CLI loops).
108            let ret_f32 = config
109                .func_ret_f32
110                .get(func.index as usize)
111                .copied()
112                .unwrap_or(false);
113            let ret_f64 = config
114                .func_ret_f64
115                .get(func.index as usize)
116                .copied()
117                .unwrap_or(false);
118            let func_config = if params.is_some()
119                || params_f32.is_some()
120                || params_f64.is_some()
121                || !func.block_arity.is_empty()
122                || declared_params.is_some()
123                || ret_f32
124                || ret_f64
125            {
126                Some(CompileConfig {
127                    current_func_params_i64: params.cloned().unwrap_or_default(),
128                    current_func_params_f32: params_f32.cloned().unwrap_or_default(),
129                    current_func_params_f64: params_f64.cloned().unwrap_or_default(),
130                    current_func_ret_f32: ret_f32,
131                    current_func_ret_f64: ret_f64,
132                    current_func_block_arity: func.block_arity.clone(),
133                    current_func_param_count: declared_params,
134                    ..config.clone()
135                })
136            } else {
137                None
138            };
139            let cfg = func_config.as_ref().unwrap_or(config);
140            let compiled = self.compile_function(&name, &func.ops, cfg)?;
141            functions.push(compiled);
142        }
143
144        Ok(CompilationResult {
145            functions,
146            elf: None,
147            backend_name: self.name().to_string(),
148        })
149    }
150
151    fn compile_function(
152        &self,
153        name: &str,
154        ops: &[WasmOp],
155        config: &CompileConfig,
156    ) -> Result<CompiledFunction, BackendError> {
157        let (code, relocations, line_map, branch_map, final_instrs) =
158            compile_wasm_to_arm(ops, config).map_err(BackendError::CompilationFailed)?;
159
160        // #778: derive the SOUND static WCET intermediate from the final Thumb-2
161        // stream. Only present for the Thumb-2 path; the core class (from the
162        // triple) decides whether the bound is sound (M3/M4) or declined (M7).
163        // Phase 2: any --wcet-hints entry for THIS function is verified (never
164        // trusted) by the loop analyzer. Phase 3: the intermediate carries the
165        // own-body cycles + direct call sites; the module driver composes it across
166        // the call graph. `wcet` here is the SINGLE-FUNCTION view (unresolved direct
167        // calls decline `call`) — a valid standalone answer, overwritten by the
168        // composed result when the driver runs the second pass.
169        let wcet_intermediate = final_instrs.as_ref().map(|instrs| {
170            let hints = config
171                .wcet_hints
172                .as_ref()
173                .and_then(|h| h.functions.get(name));
174            let self_label = config.current_func_index.map(|i| format!("func_{i}"));
175            crate::wcet::function_wcet_intermediate(
176                name,
177                instrs,
178                &config.target.triple,
179                hints,
180                self_label.as_deref(),
181            )
182        });
183        // The SINGLE-FUNCTION standalone view (unresolved direct calls decline
184        // `call`). Kept as a per-function fallback for any consumer that reads a
185        // lone `CompiledFunction` without running the module composer; the CLI
186        // `--emit-wcet` path IGNORES this and composes `wcet_intermediate` across
187        // the whole call graph instead (its result overwrites the report).
188        let wcet = final_instrs.map(|instrs| {
189            let hints = config
190                .wcet_hints
191                .as_ref()
192                .and_then(|h| h.functions.get(name));
193            crate::wcet::function_wcet_with_hints(name, &instrs, &config.target.triple, hints)
194        });
195
196        Ok(CompiledFunction {
197            name: name.to_string(),
198            code,
199            wasm_ops: ops.to_vec(),
200            relocations,
201            line_map,
202            branch_map,
203            wcet,
204            wcet_intermediate,
205        })
206    }
207
208    fn is_available(&self) -> bool {
209        true // Always available — it's a library backend
210    }
211}
212
213/// Count the number of function parameters by analyzing LocalGet patterns
214fn count_params(wasm_ops: &[WasmOp]) -> u32 {
215    let mut first_access: std::collections::HashMap<u32, bool> = std::collections::HashMap::new();
216    for op in wasm_ops {
217        match op {
218            WasmOp::LocalGet(idx) => {
219                first_access.entry(*idx).or_insert(true);
220            }
221            WasmOp::LocalSet(idx) | WasmOp::LocalTee(idx) => {
222                first_access.entry(*idx).or_insert(false);
223            }
224            _ => {}
225        }
226    }
227
228    first_access
229        .iter()
230        .filter_map(
231            |(&idx, &is_read_first)| {
232                if is_read_first { Some(idx + 1) } else { None }
233            },
234        )
235        .max()
236        .unwrap_or(0)
237}
238
239/// #539: fold the `i32.const 0; memory.grow m` idiom to `memory.size m`.
240/// Moved to `synth_core::rewrite_memory_grow_zero` (#242, VCR-SEL-005) so the
241/// ARM and RISC-V backends share ONE implementation and cannot drift; re-export
242/// here keeps the existing `rewrite_memory_grow_zero(...)` call sites working.
243use synth_core::rewrite_memory_grow_zero;
244
245/// #509: does the op stream contain a `br`/`br_if`/`br_table` that CARRIES a
246/// value — i.e. one targeting a result-typed block/if (forward edge with
247/// results > 0) or a parameterized loop header (backward edge with loop
248/// params > 0)?
249///
250/// The optimized path's wasm→IR lowering drops the carried value on such
251/// edges (the taken arm returns the fall-through result — same class as the
252/// #507 `br_table` drop, observed on `pick_br`/`pick_br_fall`), so — like
253/// #507 — the shape is detected on the raw op stream and routed to the direct
254/// selector, whose #509 designated-result-register lowering lands the value
255/// correctly. `block_arity` is the decoder's ordinal blocktype-arity
256/// side-table; when it is empty (hand-built op streams) every block reads as
257/// void and this never fires, keeping the optimized path byte-identical for
258/// every existing caller. Frozen-safe for the same reason as #507: the frozen
259/// fixtures compile `--relocatable` (already direct), and no optimized-path
260/// fixture branches to a result-typed block.
261fn has_value_carrying_branch(wasm_ops: &[WasmOp], block_arity: &[(u8, u8)]) -> bool {
262    // Open control constructs: (is_loop, params, results), innermost last.
263    let mut open: Vec<(bool, u8, u8)> = Vec::new();
264    let mut ctrl_ord = 0usize;
265    // A branch edge carries a value when its target is a result-typed forward
266    // join (block/if) or a parameterized loop header.
267    let carries = |open: &[(bool, u8, u8)], depth: u32| -> bool {
268        let Some(&(is_loop, params, results)) = open
269            .len()
270            .checked_sub(1 + depth as usize)
271            .and_then(|i| open.get(i))
272        else {
273            return false; // function-level target — handled by Return lowering
274        };
275        if is_loop { params > 0 } else { results > 0 }
276    };
277    for op in wasm_ops {
278        match op {
279            WasmOp::Block | WasmOp::If => {
280                let (p, r) = block_arity.get(ctrl_ord).copied().unwrap_or((0, 0));
281                ctrl_ord += 1;
282                open.push((false, p, r));
283            }
284            WasmOp::Loop => {
285                let (p, r) = block_arity.get(ctrl_ord).copied().unwrap_or((0, 0));
286                ctrl_ord += 1;
287                open.push((true, p, r));
288            }
289            WasmOp::End => {
290                open.pop(); // None only at the function-level end — harmless
291            }
292            WasmOp::Br(d) | WasmOp::BrIf(d) if carries(&open, *d) => return true,
293            WasmOp::BrTable { targets, default }
294                if targets
295                    .iter()
296                    .chain(std::iter::once(default))
297                    .any(|d| carries(&open, *d)) =>
298            {
299                return true;
300            }
301            _ => {}
302        }
303    }
304    false
305}
306
307/// Core compilation: WASM ops → ARM machine code bytes + relocations
308///
309/// Returns (code_bytes, relocations) where relocations record BL instructions
310/// that target external symbols (e.g., `__meld_dispatch_import` for import calls).
311type CompileArmOutput = (
312    Vec<u8>,
313    Vec<CodeRelocation>,
314    LineMap,
315    synth_core::backend::BranchMap,
316    // #778: the SOUND static WCET result over the final Thumb-2 stream, computed
317    // by `compile_function` (which knows the function name); `None` for the A32
318    // path. Purely additive metadata — does not touch `code`.
319    Option<Vec<synth_synthesis::ArmInstruction>>,
320);
321
322fn compile_wasm_to_arm(
323    wasm_ops: &[WasmOp],
324    config: &CompileConfig,
325) -> Result<CompileArmOutput, String> {
326    // #539: `memory.grow(0)` must return the CURRENT page count, not the
327    // fixed-memory `-1` sentinel — growing by zero pages can never fail (WASM
328    // Core §4.4.7), so a guest doing `if (memory.grow(0) < 0) trap;` wrongly
329    // faulted. Every lowering path emitted a delta-agnostic `-1`. `memory.grow(0)`
330    // is semantically identical to `memory.size`, which the backend already
331    // computes from the runtime memory-size register (R10 >> 16 = pages), so fold
332    // the `i32.const 0; memory.grow` idiom to `memory.size` up front — backend-
333    // and path-agnostic. A non-zero delta keeps `-1` (fixed memory genuinely
334    // cannot grow); a runtime delta that happens to be 0 is the documented
335    // follow-up.
336    let rewritten = rewrite_memory_grow_zero(wasm_ops);
337    // #494 phase 2b: the fact-spec guard-elision marks are keyed by op index
338    // into the stream the DRIVER handed us. The memory.grow(0) fold above can
339    // only shift indices AT OR AFTER a `memory.grow` — an op the fact-spec
340    // walk never crosses (it stops at the first untracked op, so no mark can
341    // follow one). Defense in depth: if the fold fired at all, drop the marks
342    // loudly rather than risk keying a guard elision to the wrong op.
343    let (fact_div_zero_elide, fact_div_ovf_elide, fact_mem_bounds_elide): (
344        &[usize],
345        &[usize],
346        &[usize],
347    ) = if rewritten.len() == wasm_ops.len() {
348        (
349            &config.fact_div_zero_elide,
350            &config.fact_div_ovf_elide,
351            &config.fact_mem_bounds_elide,
352        )
353    } else {
354        if !config.fact_div_zero_elide.is_empty()
355            || !config.fact_div_ovf_elide.is_empty()
356            || !config.fact_mem_bounds_elide.is_empty()
357        {
358            eprintln!(
359                "fact-spec: DECLINE guard elision marks dropped — the                      memory.grow(0) fold shifted op indices (#494 defensive gate);                      general lowering emitted"
360            );
361        }
362        (&[], &[], &[])
363    };
364    let wasm_ops: &[WasmOp] = &rewritten;
365
366    // #457: `count_params` INFERS the param count from access patterns (a local
367    // whose first access is a read is assumed to be a param), so a
368    // read-before-write NON-PARAM local — which WASM zero-initializes — was
369    // indistinguishable from a param: it got homed in a parameter register and
370    // read caller garbage instead of 0. When the driver supplied the DECLARED
371    // count (`current_func_param_count`, from the module's type section), cap
372    // the inference with it. `min` (not a plain override) keeps every function
373    // whose inference is <= declared byte-identical: the inferred count can only
374    // EXCEED the declared one via a read-first local index >= the declared count
375    // — i.e. exactly the read-before-write locals this issue is about.
376    let inferred_params = count_params(wasm_ops);
377    let num_params = match config.current_func_param_count {
378        Some(declared) => inferred_params.min(declared),
379        None => inferred_params,
380    };
381    // A read-before-write non-param local exists iff the capped count dropped.
382    // Such locals need the wasm-mandated zero-init, which only the direct
383    // selector emits — the optimized path's `ir_to_arm` maps a non-param
384    // local's vreg onto an r4+ temp with no initialization (caller garbage).
385    let has_rbw_local = num_params < inferred_params;
386
387    let bounds_config = match config.effective_safety_bounds() {
388        SafetyBounds::None => BoundsCheckConfig::None,
389        SafetyBounds::Mpu => BoundsCheckConfig::Mpu,
390        SafetyBounds::Software => BoundsCheckConfig::Software,
391        SafetyBounds::Mask => {
392            // #651 (mirroring the RISC-V backend's compile-time decline):
393            // index masking wraps `ea & (size-1)` — a modulo only when the
394            // linear-memory size is a power of two. With a non-power-of-two
395            // size the AND would silently REMAP in-bounds addresses (e.g.
396            // 0x18000 & 0x2FFFF = 0x8000 for a 192 KiB memory). Decline
397            // loudly rather than miscompile. `linear_memory_bytes == 0`
398            // means "unknown" (plain per-function path, no module context)
399            // — the startup default of one 64 KiB page is a power of two.
400            let bytes = config.linear_memory_bytes;
401            if bytes != 0 && !bytes.is_power_of_two() {
402                return Err(format!(
403                    "--safety-bounds mask requires a power-of-two linear-memory \
404                     size, got {bytes} bytes — switch to --safety-bounds software \
405                     for the deterministic check (#651)"
406                ));
407            }
408            BoundsCheckConfig::Masking
409        }
410    };
411
412    // The non-optimized (direct) instruction-selection path. Handles f32 via
413    // VFP/FPU. Used directly when `--no-optimize` is set, and as the fallback
414    // when the optimized path declines a module (see issue #120 below).
415    //
416    // VCR-RA-001 step 3b-lite (#242): a FRESH selector per attempt, with
417    // `spill_on_exhaustion` set only on the retry — the first pass is the
418    // unmodified default, so every function that compiles today is selected by
419    // exactly the code that compiled it yesterday (bit-identity is structural,
420    // not behavioural).
421    let select_direct_attempt = |spill_on_exhaustion: bool,
422                                 param_backing_on_exhaustion: bool,
423                                 local_promote: bool,
424                                 i64_spill_slots: Option<usize>,
425                                 vfp_spill_on_exhaustion: bool|
426     -> Result<Vec<ArmInstruction>, synth_core::Error> {
427        let db = RuleDatabase::with_standard_rules();
428        let mut selector =
429            InstructionSelector::with_bounds_check(db.rules().to_vec(), bounds_config);
430        selector.set_target(config.target.fpu, &config.target.triple);
431        if config.num_imports > 0 {
432            selector.set_num_imports(config.num_imports);
433        }
434        // #195: plumb the callee argument-count tables so the direct selector can
435        // marshal call arguments into R0–R3 per AAPCS.
436        selector.set_func_arg_counts(
437            config.func_arg_counts.clone(),
438            config.type_arg_counts.clone(),
439        );
440        // #197: in relocatable host-link mode, emit direct `func_N` BLs for
441        // imports (rewritten to the wasm field name by build_relocatable_elf)
442        // instead of `__meld_dispatch_import`.
443        selector.set_relocatable(config.relocatable);
444        // #642: call_indirect guard inputs (compile-time table size for the
445        // bounds guard + closed-world type verdicts). Without them, every
446        // call_indirect lowering declines loudly.
447        selector.set_call_indirect_guards(config.call_indirect_guards.clone());
448        // #275: on the self-contained image path (NOT --relocatable) the R11
449        // funcref-table dispatch is a silent miscompile — the region is only
450        // populated by an external runtime, which a self-contained ELF does
451        // not have, so the dispatch would read function pointers from
452        // linear-memory data. Two outcomes:
453        //  - the Thumb-2 `--cortex-m` image path (CLI-flagged: the builder
454        //    that emits and patches the flash-resident funcref table will
455        //    run) lowers call_indirect through that table, PC-relative,
456        //    never via R11;
457        //  - every OTHER self-contained configuration (A32/Cortex-R5, the
458        //    simple-ELF builder, imports present) keeps the loud decline.
459        // The host-linked (--relocatable) path keeps the guarded R11
460        // dispatch: there a runtime places the table region at R11.
461        let self_contained_table = config.self_contained_funcref_table
462            && matches!(config.target.isa, IsaVariant::Thumb2 | IsaVariant::Thumb);
463        selector
464            .set_reject_self_contained_call_indirect(!config.relocatable && !self_contained_table);
465        selector.set_self_contained_funcref_table(self_contained_table);
466        // #237: native-pointer ABI — wasm statics become __synth_wasm_data-relative.
467        selector.set_native_pointer_abi(config.native_pointer_abi, config.linear_memory_bytes);
468        // VCR-MEM-002 phase 1 (#406): per-memory initial page counts — enables
469        // the multi-memory arms (memory-0 lowering never reads it; empty ⇒
470        // every multi-memory op declines loudly).
471        selector.set_memory_pages(config.memory_pages.clone());
472        // #311: i64 call results are register PAIRS — tag them.
473        selector.set_result_types(config.func_ret_i64.clone(), config.type_ret_i64.clone());
474        // #359: declared param widths of THIS function, so the AAPCS stack-arg
475        // path can refuse 64-bit params (Ok-or-Err). Empty ⇒ assume i32.
476        selector.set_params_i64(config.current_func_params_i64.clone());
477        // GI-FPU-002 (#619/#369): declared f32-param mask — home hard-float f32
478        // args in S0..S15 (AAPCS-VFP) instead of the R0..R3 integer path.
479        selector.set_params_f32(config.current_func_params_f32.clone());
480        // GI-FPU-002 phase 2 (#369): declared f64-param mask — hard-float
481        // targets decline f64-param functions loudly (no D-register homing yet).
482        selector.set_params_f64(config.current_func_params_f64.clone());
483        // GI-FPU-002 phase 2 (#719/#369): THIS function's f32/f64 return flag, so
484        // the epilogue loudly declines a float result reaching it in a core
485        // register (never a silent integer R0 return where a caller reads S0/D0).
486        selector.set_ret_float(config.current_func_ret_f32, config.current_func_ret_f64);
487        // GI-FPU-002 phase 3 (#369): per-callee float-signature tables. `Call`
488        // marshals the AAPCS-VFP boundary from these (float args into S0../D0..,
489        // float results out of S0/D0); `CallIndirect` still declines a
490        // float-returning static type loudly.
491        selector.set_float_call_signatures(
492            config.func_ret_f32.clone(),
493            config.func_ret_f64.clone(),
494            config.type_ret_f32.clone(),
495            config.type_ret_f64.clone(),
496            config.func_params_f32.clone(),
497            config.func_params_f64.clone(),
498        );
499        // #509: blocktype-arity side-table of THIS function, so value-carrying
500        // br/br_if/br_table land the carried value in the target block's
501        // designated result register instead of dropping it. Empty ⇒ legacy
502        // void-block lowering.
503        selector.set_block_arity(config.current_func_block_arity.clone());
504        // Stack-pointer promotion is meaningful only under the native-pointer ABI;
505        // gating here keeps every non-native compile (all frozen fixtures) on the
506        // legacy R9 globals-table path, bit-identical.
507        if config.native_pointer_abi
508            && let Some((sp_idx, sp_init)) = config.stack_pointer_global
509        {
510            selector.set_native_pointer_stack(sp_idx, sp_init);
511        }
512        // #643: per-global slot widths — i64/f64 globals occupy 8-byte slots
513        // (register-pair store/load) and shift every later global's offset.
514        // Empty for i32-only modules ⇒ the legacy `idx * 4` layout, unchanged.
515        selector.set_global_widths(config.global_widths.clone());
516        selector.set_spill_on_exhaustion(spill_on_exhaustion);
517        selector.set_param_backing_on_exhaustion(param_backing_on_exhaustion);
518        // #881 (VCR-RA-004): VFP register-file spilling, set ONLY on the retry
519        // after an attempt failed with a GI-FPU-002 exhaustion Err — functions
520        // that compile without it keep byte-identical output by construction.
521        selector.set_vfp_spill_on_exhaustion(vfp_spill_on_exhaustion);
522        // #587 pool-grow rung: a larger i64 spill-slot pool, set ONLY on the
523        // retry after an attempt failed with the slot-pool-exhausted Err —
524        // functions that compile with the default pool keep their frame
525        // byte-identical by construction.
526        if let Some(slots) = i64_spill_slots {
527            selector.set_i64_spill_slots(slots);
528        }
529        // VCR-RA local promotion (#390, #242): keep eligible non-param i32 locals
530        // in callee-saved registers instead of frame slots — the structural lever
531        // toward native parity. DEFAULT-ON as of v0.14.0: gale's G474RE DWT gate
532        // cleared it as a net win (gust_mix dissolved 58→50 cyc/call −14%, all 5
533        // stack spill/reloads eliminated, correctness bit-identical over [0,2047],
534        // 2.00×→1.72× vs LLVM). Escape hatch: `SYNTH_NO_LOCAL_PROMOTE=1` restores
535        // the frame-slot path. Leaf-only / i32-only / ARM-only (see
536        // compute_local_promotion); the leaf-only lift + i64 locals are follow-ons.
537        // #474: `local_promote` is now a per-attempt parameter so the retry ladder
538        // can drop promotion as an exhaustion-recovery rung (promotion pins r4-r8,
539        // which on a dense function leaves the spill allocator with nothing to
540        // free → the frame-slot path is the escape that restores compilability).
541        selector.set_local_promote(local_promote);
542        // #494 phase 2b: certificate-discharged div/rem trap-guard elision
543        // marks (empty in every compile without SYNTH_FACT_SPEC + facts).
544        selector
545            .set_fact_div_guard_elisions(fact_div_zero_elide.to_vec(), fact_div_ovf_elide.to_vec());
546        // #494 bounds-elision: certificate-discharged memory bounds-guard
547        // marks (empty in every compile without SYNTH_FACT_SPEC + facts).
548        selector.set_fact_mem_bounds_elisions(fact_mem_bounds_elide.to_vec());
549        selector.select_with_stack(wasm_ops, num_params)
550    };
551    let select_direct = || -> Result<Vec<ArmInstruction>, String> {
552        const SINGLE_EXHAUSTION: &str = "all allocatable registers are live on the stack";
553        const PAIR_EXHAUSTION: &str = "no consecutive pair of free registers for i64";
554        const SLOT_EXHAUSTION: &str = "i64 spill-slot pool exhausted";
555        // The full exhaustion-recovery ladder, parameterized on whether local
556        // promotion is enabled. Each rung is reached only when the previous one
557        // returned a recoverable register-exhaustion Err, so a function that
558        // compiles on the first attempt is untouched by the later rungs. Returns
559        // the result AND which rung produced it (for the #242 measurement below).
560        let recovery_ladder = |promote: bool,
561                               i64_spill_slots: Option<usize>,
562                               vfp_spill: bool|
563         -> (
564            Result<Vec<ArmInstruction>, synth_core::Error>,
565            &'static str,
566        ) {
567            let mut attempt =
568                select_direct_attempt(false, false, promote, i64_spill_slots, vfp_spill);
569            let mut rung = "base";
570            // VCR-RA-001 step 3b-lite (#242): the i32 register-exhaustion
571            // hard-fail is recoverable — retry with spill-on-exhaustion, which
572            // reserves the spill area and spills the deepest stack value when
573            // the pool is full.
574            if let Err(e) = &attempt
575                && e.to_string().contains(SINGLE_EXHAUSTION)
576            {
577                attempt = select_direct_attempt(true, false, promote, i64_spill_slots, vfp_spill);
578                rung = "spill";
579            }
580            // VCR-RA-001 acceptance increment (#242): the i64 consecutive-PAIR
581            // exhaustion is recoverable too — not by stack spilling (the pair
582            // allocator already spills stack values, #171) but by frame-backing
583            // the params (#204) so they stop pinning R0-R3, with spill kept on.
584            if let Err(e) = &attempt
585                && e.to_string().contains(PAIR_EXHAUSTION)
586            {
587                attempt = select_direct_attempt(true, true, promote, i64_spill_slots, vfp_spill);
588                rung = "param-backing";
589            }
590            (attempt, rung)
591        };
592        // #474: local promotion (default-on since v0.14.0) is an OPTIMIZATION — it
593        // must never be the reason a function fails to compile. Run the full ladder
594        // with promotion first (so every function that compiles today is
595        // bit-identical), and if it still ends in register exhaustion, fall back to
596        // the promotion-off ladder (the v0.12.0 frame-slot lowering — exactly what
597        // the `SYNTH_NO_LOCAL_PROMOTE=1` workaround does, now automatic). Promotion
598        // pins r4-r8 for the locals; on a dense function that leaves the allocator
599        // with nothing to free, so dropping it restores compilability. The fallback
600        // is reached ONLY by functions that exhaust WITH promotion, so promotion-on
601        // output is untouched by construction (frozen byte gate stays green).
602        let promote = std::env::var("SYNTH_NO_LOCAL_PROMOTE").is_err();
603        // The full pre-#587 recovery sequence (promotion-on ladder, then the
604        // #474 promotion-off fallback), parameterized on the pool size so the
605        // pool-grow retry below reruns it verbatim.
606        let full_sequence = |slots: Option<usize>,
607                             vfp_spill: bool|
608         -> (
609            Result<Vec<ArmInstruction>, synth_core::Error>,
610            &'static str,
611            bool,
612        ) {
613            let (mut attempt, mut rung) = recovery_ladder(promote, slots, vfp_spill);
614            let mut promotion_dropped = false;
615            if promote
616                && attempt
617                    .as_ref()
618                    .err()
619                    .is_some_and(|e| e.to_string().contains("register exhaustion"))
620            {
621                let (rescued, off_rung) = recovery_ladder(false, slots, vfp_spill);
622                if rescued.is_ok() {
623                    attempt = rescued;
624                    rung = off_rung;
625                    promotion_dropped = true;
626                }
627            }
628            (attempt, rung, promotion_dropped)
629        };
630        let (mut attempt, mut rung, mut promotion_dropped) = full_sequence(None, false);
631        // #587 pool-grow retry (the falcon func_60/func_73 remainder): the fixed
632        // 8-slot i64 spill pool can exhaust while spilling is otherwise working —
633        // an i64-dense function simply has more values simultaneously live than
634        // the pool holds. Rerun the ENTIRE sequence (every rung, both promotion
635        // modes) with the pool sized from a conservative operand-stack-depth
636        // bound: the number of simultaneously spilled values can never exceed
637        // the operand-stack depth, plus a few transient slots (the arg-move
638        // cycle resolver and call-result parking each borrow one). The selector
639        // clamps the request to its 12-bit-friendly cap; a function that still
640        // exhausts stays an honest loud skip. Deliberately LAST — after the #474
641        // promotion-off fallback — so any function that compiled yesterday
642        // (through any rung or fallback) is produced by exactly yesterday's
643        // path, byte-identical; the grown pool only ever fires for functions
644        // whose every existing escape ended in the slot-pool Err.
645        if attempt
646            .as_ref()
647            .err()
648            .is_some_and(|e| e.to_string().contains(SLOT_EXHAUSTION))
649        {
650            let depth = synth_core::wasm_stack_check::max_depth_bound(wasm_ops) as usize;
651            let (grown, _, grown_dropped) = full_sequence(Some(depth.saturating_add(4)), false);
652            if grown.is_ok() {
653                attempt = grown;
654                rung = "pool-grow";
655                promotion_dropped = grown_dropped;
656            }
657        }
658        // #881 (VCR-RA-004): the GI-FPU-002 VFP register-file exhaustion is
659        // recoverable too — retry the ENTIRE sequence with VFP spilling
660        // enabled (the pre-op pressure guard spills the deepest segment-local
661        // f32/f64 stack value into the shared spill area and reloads spilled
662        // operands before their consumers). Deliberately LAST, after every
663        // integer rung, so any function that compiled yesterday is produced
664        // by exactly yesterday's path; the VFP rung only ever fires for
665        // functions whose every existing escape ended in a GI-FPU-002
666        // exhaustion Err (previously an unconditional loud skip). A VFP-
667        // spilling function can in turn exhaust the shared slot pool — the
668        // #587 pool-grow retry composes inside the rung.
669        const VFP_S_EXHAUSTION: &str = "VFP register file exhausted";
670        const VFP_D_EXHAUSTION: &str = "VFP D-register file exhausted";
671        if attempt.as_ref().err().is_some_and(|e| {
672            let msg = e.to_string();
673            msg.contains(VFP_S_EXHAUSTION) || msg.contains(VFP_D_EXHAUSTION)
674        }) {
675            let (vfp, vfp_rung, vfp_dropped) = full_sequence(None, true);
676            let (vfp, vfp_rung, vfp_dropped) = if vfp.as_ref().err().is_some_and(|e| {
677                let msg = e.to_string();
678                msg.contains(SLOT_EXHAUSTION) || msg.contains("spilling the VFP register file")
679            }) {
680                let depth = synth_core::wasm_stack_check::max_depth_bound(wasm_ops) as usize;
681                let (grown, grown_rung, grown_dropped) =
682                    full_sequence(Some(depth.saturating_add(4)), true);
683                if grown.is_ok() {
684                    (grown, grown_rung, grown_dropped)
685                } else {
686                    (vfp, vfp_rung, vfp_dropped)
687                }
688            } else {
689                (vfp, vfp_rung, vfp_dropped)
690            };
691            if vfp.is_ok() {
692                attempt = vfp;
693                rung = match vfp_rung {
694                    "base" => "vfp-spill",
695                    _ => "vfp-spill+int",
696                };
697                promotion_dropped = vfp_dropped;
698            }
699        }
700        // VCR-RA measurement (#242): log which recovery rung produced the result,
701        // so the per-rung distribution across a corpus can be measured — the size
702        // of the failure surface a verified allocator must subsume (see
703        // scripts/repro/register_exhaustion_recovery_ladder.md). Logging only:
704        // emitted bytes are unchanged, so the frozen byte gate is unaffected.
705        if std::env::var("SYNTH_RECOVERY_STATS").is_ok() {
706            eprintln!(
707                "[recovery-stats] rung={rung}{} result={}",
708                if promotion_dropped {
709                    " promotion-off"
710                } else {
711                    ""
712                },
713                if attempt.is_ok() { "ok" } else { "exhausted" },
714            );
715        }
716        attempt.map_err(|e| format!("instruction selection failed: {}", e))
717    };
718
719    // Instruction selection: optimized or direct.
720    //
721    // #197: `--relocatable` (host-link ET_REL) forces the direct selector. The
722    // optimized path materializes an absolute linmem base (0x20000100) and does
723    // not preserve caller-saved registers across calls — both wrong for a
724    // host-linked object, where the linmem base arrives via `fp` at runtime and
725    // callees follow AAPCS. `select_with_stack` (now i64-spill capable after
726    // #171) handles fp-relative memory + caller-saved preservation correctly.
727    //
728    // #507: `br_table` is DROPPED during the optimized path's wasm→IR lowering
729    // (`optimize_full`), so `ir_to_arm` never sees the dispatch — it emits the
730    // arm bodies in fall-through sequence with no `cmp`/branch on the selector, a
731    // SILENT miscompile (every input hits the last arm). The selector value isn't
732    // even loaded. Because the drop happens before `ir_to_arm`, there's no `Err`
733    // to fall back on; detect it on the raw wasm op stream here and force the
734    // direct selector (`select_with_stack` lowers `br_table` correctly as a
735    // cmp-chain — confirmed on the `--relocatable` path). Same honest-degradation
736    // contract as the issue-#120 f32 decline: the function still compiles
737    // correctly, just without IR-level optimization. Frozen-safe: the frozen
738    // fixtures compile `--relocatable` (already direct), and no optimized-path
739    // fixture (control_step, flight_algo) contains `br_table`.
740    let has_br_table = wasm_ops
741        .iter()
742        .any(|op| matches!(op, WasmOp::BrTable { .. }));
743    // #509: the optimized path also drops the value carried by a `br`/`br_if`
744    // to a result-typed block (the taken edge returns the wrong arm's value —
745    // same silent-miscompile class as the #507 br_table drop). Route the shape
746    // to the direct selector, whose designated-result-register lowering (#509)
747    // lands the carried value at the join. Never fires for void-block control
748    // flow (all frozen/optimized fixtures), so those stay byte-identical.
749    let has_value_carry = has_value_carrying_branch(wasm_ops, &config.current_func_block_arity);
750    // #503-i64/#518: route any signature with a 64-bit (i64/f64) param to the
751    // direct selector. The optimized path's param homing is width-naive — its
752    // #518 decline covers only functions that READ an i64 param (an `I64Load`
753    // from a param index), so a function that reads an i32 param whose AAPCS
754    // home a preceding wide param SHIFTED (e.g. p1 of `(i64 i32)` lives in R2,
755    // not R1; p3 of `(i64 i32 i32 i32)` lives on the stack, not in R3) was
756    // silently miscompiled rather than falling back. The direct selector's
757    // `aapcs_param_layout` homing handles every such shape (i64-param READS
758    // already fell back to it via the ir_to_arm Err, so those functions emit
759    // the same bytes as before). `num_params` counts read-first locals, so a
760    // function that never touches any param keeps the optimized path.
761    let has_wide_param = config
762        .current_func_params_i64
763        .iter()
764        .take(num_params as usize)
765        .any(|&w| w);
766    // #782(b): a HARD-float (FPU) target passes f32 args in VFP S-registers
767    // and returns floats in S0/D0 (AAPCS-VFP) — but the optimized path's
768    // param/return homing is float-naive (integer R0..R3 args, R0 return). A
769    // function whose ops ALL lower on the optimized path but whose SIGNATURE
770    // carries a float — e.g. the pure value-pick
771    // `(param f32 f32 i32) (result f32) select`, no float OP to trip the
772    // issue-#120 ir_to_arm fallback — was silently compiled with the integer
773    // ABI: callers marshal S0/S1, the body reads R0/R1. Route every
774    // float-signature function to the direct selector (AAPCS-VFP homing, or
775    // an honest decline). Soft-float targets (no FPU) keep the optimized
776    // path: the integer treatment IS the ABI there — byte-identical. (f64
777    // params already route direct via `has_wide_param`; this adds f32 params
778    // and f32/f64 returns.)
779    let has_float_sig = config.target.fpu.is_some()
780        && (config.current_func_ret_f32
781            || config.current_func_ret_f64
782            || config
783                .current_func_params_f32
784                .iter()
785                .take(num_params as usize)
786                .any(|&f| f)
787            || config
788                .current_func_params_f64
789                .iter()
790                .take(num_params as usize)
791                .any(|&f| f));
792    // #494 phase 2b: div/rem guard-elision marks are consumed by the DIRECT
793    // selector only — the optimized path's IR passes (const-fold/CSE/DCE)
794    // renumber instructions, so an op-index-keyed mark cannot soundly survive
795    // them. Route marked functions direct (the #507/#509 honest-degradation
796    // pattern). Never fires without SYNTH_FACT_SPEC + facts + a discharged
797    // obligation, so every existing compile keeps its path byte-identical.
798    let has_fact_div_elide = !fact_div_zero_elide.is_empty()
799        || !fact_div_ovf_elide.is_empty()
800        // #494 bounds-elision: memory bounds-guard marks are direct-selector
801        // keyed for the same reason (IR passes renumber instructions).
802        || !fact_mem_bounds_elide.is_empty();
803    // #643: the optimized path's global lowering is width-naive — `GlobalGet`/
804    // `GlobalSet` are single-word `[R9, idx*4]` accesses, which (a) silently
805    // dropped the high word of every i64 global and (b) mis-address every
806    // global whose offset an earlier wide (i64/f64) slot shifted. When the
807    // module has any wide global, route every global-touching function to the
808    // direct selector, whose type-aware summed layout pairs the access (or
809    // declines loudly). Modules with only 4-byte globals — every existing
810    // fixture — keep the optimized path byte-identical.
811    let has_wide_global_module = config.global_widths.iter().any(|&w| w > 4);
812    let has_global_access = has_wide_global_module
813        && wasm_ops
814            .iter()
815            .any(|op| matches!(op, WasmOp::GlobalGet(_) | WasmOp::GlobalSet(_)));
816    // VCR-VER-001 (#242): `post_exhaust` scopes the post-exhaustion cleanup
817    // extensions to functions whose bytes the #580 spill-on-exhaustion
818    // machinery actually shaped (bridge-reported). Everything else — the
819    // direct path, non-exhausted optimized functions — stays byte-identical
820    // flag-on (the `vcr_ver_001_gate_242` lock's contract).
821    let (arm_instrs, post_exhaust) = if config.no_optimize
822        || config.relocatable
823        || has_br_table
824        || has_value_carry
825        || has_wide_param
826        || has_float_sig
827        || has_global_access
828        || has_fact_div_elide
829        // #457: route read-before-write non-param locals to the direct
830        // selector, whose prologue zero-init lands the wasm-mandated 0.
831        || has_rbw_local
832    {
833        if std::env::var("SYNTH_PATH_DEBUG").is_ok() {
834            eprintln!("[path-debug] direct (pre-gate)");
835        }
836        (select_direct()?, false)
837    } else {
838        let opt_config = if config.loom_compat {
839            OptimizationConfig::loom_compat()
840        } else {
841            OptimizationConfig::all()
842        };
843
844        let mut bridge = OptimizerBridge::with_config(opt_config);
845        // #188: tell the bridge how many imports there are so it declines only
846        // LOCAL calls (and leaves import calls on the optimized path, keeping
847        // the #173 field-name relocation rewrite intact).
848        bridge.set_num_imports(config.num_imports);
849        // #543 Phase 2: thread the integrator-marked volatile DMA-window ranges
850        // (`--volatile-segment <base>:<len>`) to the bridge's address-caching
851        // levers — base-CSE (#468) excludes any access inside a marked range
852        // from its fold set, and the bridge-level const-CSE declines wholesale
853        // while any range is marked. Empty (the default) ⇒ byte-identical.
854        bridge.set_volatile_segments(config.volatile_segments.clone());
855        // #377: thread `--safety-bounds` to the bridge. Pre-fix the optimized
856        // path ignored it — `software`/`mask` were SILENT NO-OPS on the path
857        // that lowers the bulk of a flight loop's i32 loads/stores (byte-
858        // identical to `none`, while the safety manifest claimed otherwise).
859        // `Software` now emits the inline guard per access; `Masking` declines
860        // memory-accessing functions to the direct selector; `None`/`Mpu` are
861        // byte-identical to before.
862        bridge.set_bounds_check(bounds_config);
863        // #687: thread the absolute linear-memory base the optimized path
864        // materializes. Defaults to 0x2000_0100 (byte-identical);
865        // `--stack-layout=low` shifts it up by the reserved stack size so
866        // const-address accesses follow the moved linear memory.
867        bridge.set_linmem_base(config.linmem_base);
868        // `ir_to_arm` now returns `Result` — an `Err` means the optimized path
869        // hit an unmapped vreg (issue-#93-class). Treat it identically to an
870        // `optimize_full` failure: fall back to the direct selector rather
871        // than propagating, so the function still compiles correctly.
872        match bridge
873            .optimize_full(wasm_ops)
874            .and_then(|(opt_ir, _cfg, _stats)| bridge.ir_to_arm(&opt_ir, num_params as usize))
875        {
876            Ok(arm_ops) => {
877                if std::env::var("SYNTH_PATH_DEBUG").is_ok() {
878                    eprintln!("[path-debug] optimized (ir_to_arm ok)");
879                }
880                (
881                    arm_ops
882                        .into_iter()
883                        .map(|op| ArmInstruction {
884                            op,
885                            source_line: None,
886                        })
887                        .collect(),
888                    bridge.spill_on_exhaust_fired(),
889                )
890            }
891            // Issue #120: the optimized path declines modules it cannot lower
892            // (notably scalar f32/f64 ops — the IR has no float opcodes). Fall
893            // back to the direct instruction selector, which handles f32 via
894            // VFP/FPU. This is honest degradation: the function still compiles
895            // correctly, just without IR-level optimization.
896            Err(e) => {
897                if std::env::var("SYNTH_PATH_DEBUG").is_ok() {
898                    eprintln!("[path-debug] direct (fallback: {e})");
899                }
900                (select_direct()?, false)
901            }
902        }
903    };
904
905    // #257/#277: `mul`+`add`→`mla` fusion is intentionally NOT wired here.
906    // The transform is correct and ready (`synth_synthesis::liveness::fuse_mul_add`,
907    // fully tested), but it is **register-allocation-coupled**: over the current
908    // greedy single-pass selector, folding `mul rM,..; add rD,rM,rX` → `mla`
909    // extends the live ranges of the mul inputs to the mla point, and the added
910    // pressure (extra moves/spills) costs more than the single-cycle MLA saves —
911    // gale measured a +2 cyc on-target REGRESSION (flat_flight 255→257, G474RE)
912    // even though it removes 2 instructions and the seam stays 0x07FDF307. So the
913    // fusion stays unwired until the spill-aware allocator (VCR-RA-001) chooses
914    // registers, at which point it becomes net-positive (per #272's plan and the
915    // wiring design note). Lesson (#277): a register-pressure-affecting transform
916    // needs an on-target/allocator-aware gate, not a byte-count gate, before it
917    // can default on.
918
919    // VCR-RA-001 const-CSE / rematerialization-avoidance (#209): moved to run
920    // LAST, after the immediate-folds — see the apply_const_cse call below
921    // (#242). Earlier it ran here (before range-realloc and the folds), which is
922    // what let it grow gale's --relocatable `gust_mix` 90→92 B (#242 burndown,
923    // 2026-06-26): retargeting a read defeated a *downstream* immediate-fold that
924    // would otherwise have absorbed the constant. Running CSE-last makes those
925    // foldable consts already-folded-and-gone, so CSE only ever touches genuinely
926    // redundant materializations.
927
928    // VCR-RA-001 RANGE RE-ALLOCATION (#209/#242, wiring step 3a) — the first
929    // CONSEQUENTIAL allocator pass: re-colour each maximal straight-line
930    // segment over the R0-R8 pool with value ranges as the allocation unit
931    // (segment inputs + per-register live-outs pinned to their original
932    // registers, reserved R9-R12/SP identity-assigned — each segment is
933    // independently sound, no cross-segment liveness assumed). Renames
934    // registers only: never adds, removes, or reorders instructions, so
935    // labels/branch offsets are unaffected.
936    //
937    // DEFAULT-ON since v0.11.36: gale cleared the gate on-target (G474RE,
938    // #209 2026-06-10) — flag-on output byte-identical to flag-off on
939    // flat_flight/controller/control_step, fires on the filter family with
940    // zero cycle delta and a small size win, all selfchecks green on silicon.
941    // Opt out with `SYNTH_RANGE_REALLOC=0`; per-function stats with
942    // `SYNTH_REALLOC_STATS=1`.
943    //
944    // The companion dead callee-saved-save elimination (gale's "next
945    // consequential lever", same issue comment) then shrinks the prologue
946    // `push {r4-r8,lr}` / epilogue `pop {r4-r8,pc}` to the callee-saved
947    // registers the re-allocated body still touches (leaf-only,
948    // SP-untouched, even-count-padded — see shrink_callee_saved_saves):
949    // ~12 cycles of pure save/restore overhead removed on small leaves.
950    let realloc_on = std::env::var("SYNTH_RANGE_REALLOC").map_or(true, |v| v != "0");
951    let arm_instrs = if realloc_on {
952        use synth_synthesis::rules::Reg;
953        const POOL: [Reg; 9] = [
954            Reg::R0,
955            Reg::R1,
956            Reg::R2,
957            Reg::R3,
958            Reg::R4,
959            Reg::R5,
960            Reg::R6,
961            Reg::R7,
962            Reg::R8,
963        ];
964        // VCR-DEC-001 (epic #242, the North Star's first foothold): the
965        // SYNTH_GRAPH_ALLOC graph-colouring allocator SPIKE. When enabled it
966        // replaces STEP 1 of the re-allocation (the segment-based
967        // `reallocate_function`) with a whole-function Chaitin/Briggs colouring
968        // (`graph_alloc::reallocate`) built against the SAME acceptance oracle
969        // (`validate_segment_rewrite` trace-equality); the later dead-frame /
970        // callee-saved-prologue / shrink passes still run on its output, so a
971        // value it homes in R4-R8 still gets its callee-saved push (the
972        // invariant the unconditional VCR-RA-003 validator guards). It is
973        // BOUNDED to whole straight-line functions and DECLINES (returns None)
974        // to the shipping `reallocate_function` on any control flow, spill, or
975        // unmodeled op — never a hard-fail. Flag-OFF (`SYNTH_GRAPH_ALLOC` unset)
976        // never enters this branch, so the shipping bytes are byte-identical
977        // (the GOLDEN trick — frozen fixtures unchanged). NO default flip: the
978        // spike ships flag-off; the flip is a later, evidence-gated step.
979        //
980        // VCR-VER-001 (#242): on a function the spill-on-exhaustion machinery
981        // shaped, the terminal segment gets relaxed live-out pinning (only
982        // R0/R1 are observable past `bx lr` at this pre-prologue position) so
983        // the colourer can lower R4-R8-homed tails into caller-saved R0-R3 —
984        // shrinking the `push {r4-r8,lr}` the #580 exhaustion shapes pay for.
985        // `post_exhaust == false` selects the shipping pass bit for bit.
986        let (out, stats) = if synth_synthesis::graph_alloc::enabled() {
987            match synth_synthesis::graph_alloc::reallocate(&arm_instrs, &POOL) {
988                Some(new) => {
989                    if std::env::var("SYNTH_GRAPH_ALLOC_STATS").is_ok() {
990                        eprintln!("[graph-alloc] whole-function colouring APPLIED (validated)");
991                    }
992                    (new, synth_synthesis::liveness::ReallocStats::default())
993                }
994                None => {
995                    if std::env::var("SYNTH_GRAPH_ALLOC_STATS").is_ok() {
996                        eprintln!("[graph-alloc] DECLINED → shipping reallocate_function");
997                    }
998                    synth_synthesis::liveness::reallocate_function_post_exhaust(
999                        &arm_instrs,
1000                        &POOL,
1001                        post_exhaust,
1002                    )
1003                }
1004            }
1005        } else {
1006            synth_synthesis::liveness::reallocate_function_post_exhaust(
1007                &arm_instrs,
1008                &POOL,
1009                post_exhaust,
1010            )
1011        };
1012        if std::env::var("SYNTH_REALLOC_STATS").is_ok() {
1013            eprintln!(
1014                "[range-realloc] {} segments: {} reallocated, {} declined ({} validator-rejected), {} need spill (step 4)",
1015                stats.segments,
1016                stats.reallocated,
1017                stats.declined,
1018                stats.validator_rejects,
1019                stats.needs_spill
1020            );
1021        }
1022        // VCR-RA-002 (#390, epic #242): eliminate a provably-dead stack frame
1023        // (`sub sp,#N`/`add sp,#N` reserved by `compute_local_layout` for locals
1024        // that promotion homed in registers, never accessed). Removing it saves
1025        // the two instructions AND restores the SP-untouched precondition that
1026        // `shrink_callee_saved_saves` requires — so it must run FIRST.
1027        // DEFAULT-ON (#242 flag audit flip-wave, #592 audit item): evidence
1028        // basis was the 2-path × repro-corpus sweep — 0 functions grow, 58
1029        // shrink (flight_seam controller_step 250→242 −8 / filter_step 180→168
1030        // −12, native_pointer frame_roundtrip 46→34 −12), locked by the
1031        // `dead_frame_elim_no_grow_corpus_242` cargo gate; execution
1032        // differentials re-run green on the new default bytes BEFORE the
1033        // frozen ARM anchors were re-pinned (leaf_dead_frame, flight_seam,
1034        // frame_slot_dce — see the flip PR). Escape hatch:
1035        // `SYNTH_DEAD_FRAME_ELIM=0` opts out and restores the pre-flip bytes
1036        // (CI-gated in `frozen_codegen_bytes.rs`).
1037        let out = if !std::env::var("SYNTH_DEAD_FRAME_ELIM").is_ok_and(|v| v == "0") {
1038            synth_synthesis::liveness::elide_dead_frame(&out).unwrap_or(out)
1039        } else {
1040            out
1041        };
1042        // #490 (epic #242): the optimized selector uses r4-r8 as scratch /
1043        // promoted locals but emits no prologue, silently clobbering a caller's
1044        // callee-saved registers. Add the missing `push {r4-r8,lr}` /
1045        // `pop {r4-r8,pc}` HERE — on the post-realloc body, where realloc has
1046        // lowered low-pressure r4-r8 scratch back to r0-r3, so a save is added
1047        // only for registers genuinely clobbered. `shrink_callee_saved_saves`
1048        // (next) then trims it to the used set. No-op on the direct path (it
1049        // already has its own prologue) and on callee-saved-free leaves.
1050        let out = synth_synthesis::liveness::ensure_callee_saved_prologue(&out);
1051        synth_synthesis::liveness::shrink_callee_saved_saves(&out).unwrap_or(out)
1052    } else {
1053        // Range-realloc off (`SYNTH_RANGE_REALLOC=0`): the optimized path still
1054        // must preserve the callee-saved registers it clobbers (#490). No shrink
1055        // (it is coupled to the realloc lever), so the conservative full save
1056        // stays — correct, just not minimised in this debug configuration.
1057        synth_synthesis::liveness::ensure_callee_saved_prologue(&arm_instrs)
1058    };
1059
1060    // VCR-RA-001 SHADOW ALLOCATION (#209/#242): run the register allocator on
1061    // the selected stream and LOG what it finds — without changing a single
1062    // emitted byte. This is the measure-only bridge between the built analysis
1063    // layer and the eventual virtual-register wiring: it shows, per real
1064    // function, whether the allocator can colour it within the R0–R8 pool and
1065    // how much const-CSE / rematerialization headroom exists (#209). Enable with
1066    // `SYNTH_SHADOW_ALLOC=1`; off by default and side-effect-free either way.
1067    if std::env::var("SYNTH_SHADOW_ALLOC").is_ok() {
1068        use synth_synthesis::liveness::{
1069            AllocationOutcome, allocate_function, function_peak_pressure,
1070        };
1071        // R9 globals / R10 mem-size / R11 mem-base / R12 IP-scratch are reserved;
1072        // pin them above the 0..9 allocatable pool so the colourer keeps R0–R8.
1073        let precolored = std::collections::BTreeMap::from([
1074            (synth_synthesis::rules::Reg::R9, 9usize),
1075            (synth_synthesis::rules::Reg::R10, 10),
1076            (synth_synthesis::rules::Reg::R11, 11),
1077            (synth_synthesis::rules::Reg::R12, 12),
1078        ]);
1079        // True VALUE pressure (one node per value, not per reused physical reg):
1080        // a NeedsSpill with peak ≤ 9 is a SPURIOUS physical-register spill — the
1081        // function fits once virtually allocated.
1082        let peak = function_peak_pressure(&arm_instrs);
1083        match allocate_function(&arm_instrs, 9, &precolored) {
1084            AllocationOutcome::Allocated {
1085                remat_opportunities,
1086                coloring,
1087            } => eprintln!(
1088                "[shadow-alloc] OK: {} pregs coloured within R0-R8 pool, peak value-pressure {}, {} const-CSE/remat opportunities",
1089                coloring.len(),
1090                peak,
1091                remat_opportunities
1092            ),
1093            AllocationOutcome::NeedsSpill(s) => eprintln!(
1094                "[shadow-alloc] physical-graph would spill {:?}, but peak value-pressure is {} (≤9 ⇒ spurious; fits once virtually allocated)",
1095                s, peak
1096            ),
1097            AllocationOutcome::Declined => {
1098                eprintln!(
1099                    "[shadow-alloc] declined (unmodeled construct — calls/i64/fp/offset-branch)"
1100                )
1101            }
1102        }
1103    }
1104
1105    // VCR-SEL-004 cmp→select → IT-block predication fusion (#242). The selector
1106    // lowers a `select` whose condition is a comparison to a *materialize then
1107    // re-test* sequence (`cmp a,b; SetCond D,c; cmp D,#0; movne dst,v1; moveq
1108    // dst,v2`); this collapses it onto the comparison's own flags — deleting the
1109    // `SetCond` and the `cmp D,#0` and retargeting the predicated moves to `c` /
1110    // `invert(c)` — yielding the textbook predicated clamp (`cmp a,b; movc dst,v1;
1111    // mov{!c} dst,v2`). −2 instructions per fused select. gale #428 measured this
1112    // as the #1 hot-path size/cycle lever on the gust_mix clamp chain.
1113    //
1114    // Run LATE: after range re-allocation (so the dead-D proof sees final register
1115    // identities) and before encode. Removal-only + rename-only ⇒ no spill
1116    // regression and labels/branch offsets are unaffected. Each fusion is proven
1117    // sound (flags reused only when nothing clobbers them in the window; the
1118    // boolean deleted only when provably dead) — see `fuse_cmp_select`.
1119    //
1120    // DEFAULT-ON as of v0.13.0 (#428): cmp→select fusion ships by default. The
1121    // byte-changing flip is validated by (a) the unicorn execution oracle that runs
1122    // the two-move `mov{invert(c)}` arm (cmp_select_two_move_differential.py), (b)
1123    // gale's gale_decider_diff 10,596-case sweep across all 8 verified primitives
1124    // (native ≡ flag-off ≡ flag-on = 0x88e73178d232bcf5), and (c) the named-anchor
1125    // differentials re-run with fusion ON — control_step still 0x00210A55, flat+
1126    // inlined flight_algo still 0x07FDF307 (results preserved; bytes deliberately
1127    // changed, re-frozen on this commit). Escape hatch: `SYNTH_NO_CMP_SELECT_FUSE=1`
1128    // reverts to the pre-fusion lowering. The on-silicon G474RE DWT no-regression
1129    // check is a tracked post-ship follow-up (gale owns it).
1130    let arm_instrs = if std::env::var("SYNTH_NO_CMP_SELECT_FUSE").is_err() {
1131        // The rewritten stream is identical to `fuse_cmp_select`'s 2-tuple form;
1132        // the extra `two_move` count is diagnostic only (the fusion census /
1133        // blast-radius datum — #7 made that arm reachable).
1134        let (out, fused, two_move) =
1135            synth_synthesis::liveness::fuse_cmp_select_with_stats(&arm_instrs);
1136        if std::env::var("SYNTH_FUSE_STATS").is_ok() {
1137            let in_place = fused - two_move;
1138            eprintln!(
1139                "[cmp-select-fuse] {fused} select(s) fused to predicated moves \
1140                 ({two_move} two-move, {in_place} in-place)"
1141            );
1142        }
1143        out
1144    } else {
1145        arm_instrs
1146    };
1147
1148    // Perf lever 1 toward native parity (#390): redundant stack-reload elimination.
1149    // synth lowers every wasm local to a frame slot, so `local.set; local.get` emits
1150    // `str rX,[sp,#N]; … ; ldr rY,[sp,#N]`; when rX still holds the value the reload
1151    // (a ~2-cycle M4 load) becomes `mov rY,rX`. Removal-of-a-load + rename only ⇒ no
1152    // new instruction form and no label/offset change. DEFAULT-ON (#242 feature
1153    // loop): validated bit-identical RESULTS on every frozen anchor (control_step
1154    // 0x00210A55 13/13, flat+inlined flight_algo 0x07FDF307) with .text reduced on
1155    // the shipped --relocatable path, plus 8 unit tests + the frame_slot_dce
1156    // execution differential — the same gated path cmp→select took to default-on in
1157    // v0.13.0 (G474RE silicon confirms perf post-ship). Escape hatch:
1158    // `SYNTH_NO_STACK_FWD=1` restores the frame-resident bytes (frozen-old goldens).
1159    let stack_fwd = std::env::var("SYNTH_NO_STACK_FWD").is_err();
1160    let arm_instrs = if stack_fwd {
1161        let (out, fwd) = synth_synthesis::liveness::forward_stack_reloads(&arm_instrs);
1162        if std::env::var("SYNTH_FUSE_STATS").is_ok() {
1163            eprintln!("[stack-fwd] {fwd} stack reload(s) forwarded to register moves");
1164        }
1165        out
1166    } else {
1167        arm_instrs
1168    };
1169
1170    // VCR-RA frame-slot DCE (#242): once `forward_stack_reloads` has turned the
1171    // reloads of a spill slot into register moves, the `str rX,[sp,#N]` that fed
1172    // them is a dead store — its slot is never loaded again. Remove it. Pairs
1173    // with (and only pays after) stack-reload forwarding, so it shares the flag.
1174    let arm_instrs = if stack_fwd {
1175        let (out, n) = synth_synthesis::liveness::eliminate_dead_frame_stores(&arm_instrs);
1176        if std::env::var("SYNTH_FUSE_STATS").is_ok() {
1177            eprintln!("[frame-slot-dce] {n} dead frame store(s) removed");
1178        }
1179        out
1180    } else {
1181        arm_instrs
1182    };
1183
1184    // VCR-RA-001 spill re-choice (#242), two stages behind one flag.
1185    // Stage 1 (the #569 spike): slot-value forwarding BETWEEN reloads.
1186    // `forward_stack_reloads` (above) forwards only from a spill store's
1187    // SOURCE register, so when register pressure clobbers that source its
1188    // reloads survive; this stage tracks which registers provably still hold
1189    // a frame slot's value (through earlier reloads and reg-reg moves) and
1190    // turns reload #2..#n into a 1-cycle `mov` (or deletes it when the target
1191    // already holds the value). Stage 2 (the Belady re-choice): where NO
1192    // register still holds the value — the genuine-spill case, flat_flight's
1193    // peak-11 hot segment — the value was usually evicted while a dead
1194    // register existed; the clobbering def(s) are renamed onto a provably-dead
1195    // register (`spill_rechoice_segment`) so the value stays resident and the
1196    // reload dissolves outright. A dissolved reload can leave the feeding
1197    // store dead, so the frame-slot DCE sweep runs once more behind the same
1198    // flag. Per-segment commit gates: executable same-value-flow trace
1199    // equality, strict shrink, pool-pressure fit, sub-word/unknown-slot
1200    // conservatism (see `apply_spill_realloc` / `spill_rechoice_segment`).
1201    // Stage 3 (whole-function slot liveness): the segment-local DCE keeps a
1202    // store whose slot reaches function end ("reach-end ≠ dead" — it cannot
1203    // see other segments); `eliminate_unread_frame_stores` walks the whole
1204    // function (labels/branches/loops, SP-displacement tracked) and drops a
1205    // store whose slot NO reachable instruction can read — flat_flight's two
1206    // surviving stores (#576), completing Belady's 0-load side with a 0-store
1207    // side. Same flag: the three stages are one lever, flipped together.
1208    // DEFAULT-ON (#242 feature loop, the v0.14.0 local-promotion pattern):
1209    // Belady spilling ships by default. Evidence basis for the flip: three
1210    // landed flag-off increments (#569 forwarding, #576 Belady re-choice,
1211    // #579 whole-fn slot liveness), 40+ functions shrink / 0 grow across the
1212    // 68-fixture × 2-path sweep, per-segment executable value-trace equality
1213    // guards, and the unicorn-vs-wasmtime execution differentials re-run
1214    // green on the new default bytes (flat+inlined flight_algo 0x07FDF307,
1215    // const_cse, frame_slot_dce, spill_rung_581, r12_spill_496 — which covers
1216    // control_step_decide vs wasmtime; control_step's .text is byte-identical
1217    // under the flip) BEFORE the frozen goldens were re-pinned. Escape hatch:
1218    // `SYNTH_SPILL_REALLOC=0` is the OPT-OUT — it disables all three stages
1219    // and restores the pre-flip bytes (CI-gated by
1220    // `frozen_fixtures_spill_realloc_escape_hatch_restores_old_bytes`). Any
1221    // other value (or unset) runs the pass.
1222    // VCR-VER-001 post-exhaustion extensions (#242, the PR #659 verdict): with
1223    // `SYNTH_SPILL_ON_EXHAUST` active the #580 allocation-time Belady spill
1224    // keeps exhausted functions on the optimized path, and its slots present
1225    // shapes the shipping pass structurally cannot fire on (fresh-monotonic
1226    // slots defeat the overwrite-only DCE; the eviction store's source is
1227    // redefined immediately, defeating store→reload forwarding; R2/R3 are
1228    // never touched again, so the rename-target deadness proof declines them).
1229    // `post_exhaust` (bridge-scoped, see above) enables const
1230    // rematerialization of spilled constants, R2/R3 exit-dead rename targets,
1231    // and per-pair pressure commit — see `apply_spill_realloc_post_exhaust`.
1232    // Flag off (the default): `false` selects the shipping behavior bit for
1233    // bit.
1234    let arm_instrs = if !std::env::var("SYNTH_SPILL_REALLOC").is_ok_and(|v| v == "0") {
1235        let (out, n) =
1236            synth_synthesis::liveness::apply_spill_realloc_post_exhaust(&arm_instrs, post_exhaust);
1237        let (out, d) = synth_synthesis::liveness::eliminate_dead_frame_stores(&out);
1238        let (mut out, u) = synth_synthesis::liveness::eliminate_unread_frame_stores(&out);
1239        let (mut tn, mut td, mut tu) = (n, d, u);
1240        // Post-exhaustion only: iterate the triple to a bounded fixpoint. Each
1241        // dissolved spill pair frees registers and removes stores, exposing
1242        // rename windows and holder chains the previous iteration could not
1243        // prove — the allocation-time Belady slots (#580) routinely need two
1244        // or three rounds where the shipping single round suffices for the
1245        // default path's slots. Every iteration is individually gate-proven
1246        // (value-trace equality, pool pressure, strict shrink), so iterating
1247        // composes soundly; the bound keeps compile time deterministic.
1248        if post_exhaust {
1249            let mut progress = n + d + u > 0;
1250            for _ in 0..3 {
1251                if !progress {
1252                    break;
1253                }
1254                let (o, n) =
1255                    synth_synthesis::liveness::apply_spill_realloc_post_exhaust(&out, true);
1256                let (o, d) = synth_synthesis::liveness::eliminate_dead_frame_stores(&o);
1257                let (o, u) = synth_synthesis::liveness::eliminate_unread_frame_stores(&o);
1258                progress = n + d + u > 0;
1259                (tn, td, tu) = (tn + n, td + d, tu + u);
1260                out = o;
1261            }
1262            // The cleanup can leave the spill frame with zero surviving
1263            // accesses (every reload rematerialized/dissolved, every store
1264            // swept) — the balanced `sub sp,#K`/`add sp,#K` is then pure
1265            // overhead. `elide_dead_frame` proves that and removes the pair;
1266            // its early run (post-realloc) could not, because the spill
1267            // traffic was still in the stream at that point.
1268            out = synth_synthesis::liveness::elide_dead_frame(&out).unwrap_or(out);
1269        }
1270        if std::env::var("SYNTH_FUSE_STATS").is_ok() {
1271            eprintln!(
1272                "[spill-realloc] {tn} reload(s) forwarded/eliminated, {td} newly-dead frame store(s) removed, {tu} unread-slot store(s) removed"
1273            );
1274        }
1275        out
1276    } else {
1277        arm_instrs
1278    };
1279
1280    // VCR-RA immediate-shift folding (#390, #242): a constant shift amount the
1281    // stack selector materialized into a scratch register (`movw rM,#C; lsl rD,rN,rM`)
1282    // folds to the immediate form (`lsl rD,rN,#C`), removing the dead `movw` — −1
1283    // instruction, −1 live register. Removal-only (offset-neutral before branch
1284    // resolution, like the dead-store pass). DEFAULT-ON as of v0.15.0: validated
1285    // bit-identical results + a net cycle win on the dissolved hot path (−2
1286    // cyc/call, .text 100→90 B on gust_mix). Escape hatch: `SYNTH_NO_IMM_SHIFT_FOLD=1`.
1287    let arm_instrs = if std::env::var("SYNTH_NO_IMM_SHIFT_FOLD").is_err() {
1288        let (out, folds) = synth_synthesis::liveness::fold_immediate_shifts(&arm_instrs);
1289        if std::env::var("SYNTH_FUSE_STATS").is_ok() {
1290            eprintln!(
1291                "[imm-shift-fold] {folds} register shift(s) folded to immediate, movw dropped"
1292            );
1293        }
1294        out
1295    } else {
1296        arm_instrs
1297    };
1298
1299    // #686: elide the #682 mod-32 shift-amount mask (`and r12,rK,#31` before
1300    // every register-controlled i32 shl/shr) when the amount is STATICALLY
1301    // provable < 32 — a const amount folds to the immediate-shift form
1302    // (reduced mod 32, so >= 32 shrinks too), and an already-masked amount
1303    // (`rK = rX & c`, c < 32) drops the redundant re-mask. gale measured the
1304    // unconditional mask at ~12% cyc/call (+14 B) on gust_mix, whose Q8
1305    // fixed-point shifts are all constants (#686). The mask stays wherever
1306    // the bound is unproven — elision is an optimization, the mask is the
1307    // sound default (`liveness::elide_shift_masks` has the proof
1308    // obligations). Runs after `fold_immediate_shifts` (whose movw→shift
1309    // window the #682 mask intercepts, so it declines every masked const
1310    // shift) and before branch resolution (removal/rewrite-only ⇒
1311    // offset-neutral).
1312    //
1313    // DEFAULT-ON since v0.50.1 (opt-out via `SYNTH_SHIFT_MASK_ELIDE=0`; #846).
1314    // gale's gpio-thin driver regressed +44 B / +9% on synth 0.49 — its pin
1315    // bit-arithmetic (`pin & 31` then a register shift) emits the source
1316    // `and rN,#0x1f` IMMEDIATELY followed by the #682 mod-32 re-mask
1317    // `and r12,rN,#0x1f`; the second is provably redundant (Pattern B: an
1318    // operand produced by `and X,#c`, c<32, is already in [0,31]), so the
1319    // pass drops it. Flipping default-on is a deliberate byte-changing
1320    // refreeze: the elision also moves the frozen anchors (const-amount
1321    // shifts fold back to the immediate form) — control_step −20 B,
1322    // flight_seam −166 B, flight_seam_flat −168 B — all size DECREASES with
1323    // the mask soundly kept for every unproven amount. All differentials were
1324    // re-run on the new bytes and the goldens re-pinned (see #846 PR /
1325    // `frozen_codegen_bytes.rs`). `SYNTH_SHIFT_MASK_ELIDE=0` restores the
1326    // pre-flip bytes (opt-out gate in `shift_mask_elide_686.rs`).
1327    let arm_instrs = if std::env::var("SYNTH_SHIFT_MASK_ELIDE").is_ok_and(|v| v == "0") {
1328        arm_instrs
1329    } else {
1330        let (out, elisions) = synth_synthesis::liveness::elide_shift_masks(&arm_instrs);
1331        if std::env::var("SYNTH_FUSE_STATS").is_ok() {
1332            eprintln!(
1333                "[shift-mask-elide] {elisions} provably-<32 shift-amount mask(s) elided (#686)"
1334            );
1335        }
1336        out
1337    };
1338
1339    // VCR-RA uxth/uxtb fold (#428, #242): `movw rM,#0xffff; and rD,rN,rM` →
1340    // `uxth rD,rN` (and the 0xff/uxtb form), removing the dead `movw` — −1
1341    // instruction, −1 live register per 16/8-bit mask. 0xffff/0xff are not Thumb-2
1342    // modified immediates so the selector materializes them into a register; the
1343    // dedicated zero-extend expresses the same masking inline. Removal-only +
1344    // rewrite-in-place (offset-neutral). DEFAULT-ON (#242 flag audit flip-wave,
1345    // #592 audit item): evidence basis was the 2-path × repro-corpus sweep —
1346    // 0 functions grow, 13 shrink (control_step 300→294 −6, gust_mix 38→32 −6,
1347    // uxth_fold pack 36→24 −12), locked by the `uxth_fold_no_grow_corpus_242`
1348    // cargo gate; execution differentials re-run green on the new default
1349    // bytes BEFORE the frozen ARM anchors were re-pinned (uxth_fold,
1350    // control_step — see the flip PR). Escape hatch: `SYNTH_UXTH_FOLD=0` opts
1351    // out and restores the pre-flip bytes (CI-gated in
1352    // `frozen_codegen_bytes.rs`).
1353    let arm_instrs = if !std::env::var("SYNTH_UXTH_FOLD").is_ok_and(|v| v == "0") {
1354        let (out, folds) = synth_synthesis::liveness::fold_uxth(&arm_instrs);
1355        if std::env::var("SYNTH_FUSE_STATS").is_ok() {
1356            eprintln!("[uxth-fold] {folds} mask-and folded to uxth/uxtb, movw dropped");
1357        }
1358        out
1359    } else {
1360        arm_instrs
1361    };
1362
1363    // VCR-RA-001 const-CSE / rematerialization-avoidance (#209, #242). Drops a
1364    // `movw`/`mov #imm` that re-materializes a constant already resident in
1365    // another register and retargets the reads — every rewrite proven by the
1366    // liveness analysis. Runs LAST, after every immediate-fold (shift, uxth) and
1367    // range-realloc, but BEFORE branch resolution/encoding (it removes
1368    // instructions, shifting byte offsets). CSE-last is the #242 no-regression
1369    // fix: the folds have already absorbed every foldable constant, so CSE can no
1370    // longer defeat one (the gust_mix 90→92 mechanism). The pass additionally
1371    // size-guards each segment via the byte-estimator — it commits a segment's
1372    // rewrites only if they do not grow its estimated size — so a retarget that
1373    // would flip a 16-bit encoding to 32-bit (higher base register) is declined.
1374    // DEFAULT-ON (#242 flip-wave, the SYNTH_SPILL_REALLOC/SYNTH_BASE_CSE
1375    // template): const-CSE ships by default. The flip prerequisites recorded in
1376    // `const_cse_reduction_242.rs` were retired first — the bridge-level INLINE
1377    // aliasing (the alias-eviction spill-bijection hazard) was DELETED from
1378    // `optimizer_bridge::ir_to_arm`, so this post-hoc, liveness-proven pass is
1379    // the flag's ONLY effect. Evidence basis: 152 fixture×path corpus sweep — 0
1380    // functions grow (size-guarded per segment), 40 shrink (const_cse::spill12
1381    // 236→148 B), total −536 B — and the execution differentials re-run green
1382    // on the new default bytes BEFORE the frozen goldens were re-pinned
1383    // (const_cse, frame_slot_dce, flight_seam 0x07FDF307, spill_rung_581,
1384    // volatile_segment_543, control_step 0x00210A55). Escape hatch:
1385    // `SYNTH_CONST_CSE=0` is the OPT-OUT — it restores the pre-flip bytes
1386    // (CI-gated by `const_cse_escape_hatch_restores_old_bytes_242` and the
1387    // frozen-anchor escape-hatch gate). Any other value (or unset) runs the pass.
1388    //
1389    // #543 Phase 2: const-CSE declines WHOLESALE while any volatile DMA range
1390    // (`--volatile-segment`) is marked. At the ArmOp level a cached constant
1391    // cannot be classified as address-vs-data (a retargeted read may be a
1392    // memory-access base carrying a per-use immediate offset), so the
1393    // conservative stance for statically-unknown addressing is to decline every
1394    // aliasing rewrite — each constant is re-materialized at each occurrence,
1395    // the documented volatile contract (`CompileConfig::volatile_segments`).
1396    let arm_instrs = if !std::env::var("SYNTH_CONST_CSE").is_ok_and(|v| v == "0")
1397        && config.volatile_segments.is_empty()
1398    {
1399        let (out, removed) = synth_synthesis::liveness::apply_const_cse(&arm_instrs);
1400        if std::env::var("SYNTH_FUSE_STATS").is_ok() {
1401            eprintln!("[const-cse] {removed} redundant constant materialization(s) removed");
1402        }
1403        out
1404    } else {
1405        arm_instrs
1406    };
1407
1408    // VCR-RA-001 spill-choice REPORT (#242): measure-only, like SYNTH_SHADOW_ALLOC.
1409    // Per straight-line segment, the frame-slot traffic actually emitted vs the
1410    // reload/store count a farthest-next-use (Belady) allocation over the R0-R8
1411    // pool would need — the measured headroom for the full spill-choice rewrite.
1412    // Printed on the FINAL stream (post all rewrite passes), so a flag-off run
1413    // reports the greedy baseline and a flag-on run reports what remains.
1414    if std::env::var("SYNTH_SPILL_REPORT").is_ok() {
1415        for seg in synth_synthesis::liveness::spill_choice_report(&arm_instrs, 9) {
1416            if seg.actual_reloads + seg.actual_spill_stores > 0 || seg.peak_pressure > 9 {
1417                eprintln!(
1418                    "[spill-report] seg@{} len={} peak={} actual={}ld+{}st belady(k=9)={}ld+{}st",
1419                    seg.start,
1420                    seg.len,
1421                    seg.peak_pressure,
1422                    seg.actual_reloads,
1423                    seg.actual_spill_stores,
1424                    seg.belady_reloads,
1425                    seg.belady_spill_stores
1426                );
1427            }
1428        }
1429    }
1430
1431    // ISA feature gate: validate that all generated instructions are supported
1432    // by the target. This catches FPU instructions on no-FPU targets, double-precision
1433    // instructions on single-precision targets, etc.
1434    validate_instructions(&arm_instrs, config.target.fpu, &config.target.triple)
1435        .map_err(|e| format!("ISA validation failed: {}", e))?;
1436
1437    // VCR-RA-003 (epic #242): UNCONDITIONAL per-compilation register-allocation
1438    // validation. The register allocator is the last major unverified codegen
1439    // component; this whole-function checker proves — by construction, on the
1440    // EXACT emitted stream about to be encoded — that the allocation preserves
1441    // FOUR invariants whose reference lives in the stream (or the ABI): (1)
1442    // callee-saved preservation (#490), (2) spill-slot non-aliasing (#331), and
1443    // — PHASE 2 (#49), extending past straight-line — (3) caller-saved
1444    // preservation across calls (a value in R2/R3/R12 live across a `bl` the
1445    // AAPCS boundary destroys), and (4) value availability across control-flow
1446    // joins (a live-in to a join must be defined on every incoming edge). It runs
1447    // on every ARM compile in the DEFAULT shipping build (NOT behind
1448    // `--features verify`; a verify-gated check would be dormant in exactly the
1449    // build that ships — the #757 / VCR-VER-003 lesson) and hard-errors the
1450    // compile on a VIOLATION. A `NotAttempted` verdict (the join check declines
1451    // on an unmodeled-CF function: numeric branch, `BrTable`, etc.) is NON-FATAL
1452    // — the compile proceeds; the other three invariants were still checked and
1453    // held. This is the decline>guess doctrine applied to the checker itself: it
1454    // never claims join coherence it cannot prove, but it also never blocks a
1455    // correct compile for a construct it simply doesn't model yet. Frozen-safe:
1456    // it emits nothing, so `.text` is byte-identical (proven by the frozen suite).
1457    match synth_synthesis::liveness::validate_final_allocation(&arm_instrs) {
1458        synth_synthesis::liveness::RaFinalVerdict::Violation(v) => {
1459            return Err(format!(
1460                "VCR-RA-003: register-allocation validation FAILED — {v:?}. \
1461                 The emitted stream violates a register-allocation invariant \
1462                 (callee-saved preservation #490 / spill-slot non-aliasing #331 \
1463                 / caller-saved-across-call / join-value-availability / the #881 \
1464                 VFP twins); this is a \
1465                 compiler bug, not a program error. Refusing to emit a \
1466                 miscompiled object."
1467            ));
1468        }
1469        // Loud honest decline (join reasoning skipped for an unmodeled-CF
1470        // function). Non-fatal — the straight-line / callee-saved / across-call
1471        // invariants still ran and held; only the across-JOIN availability
1472        // reasoning is skipped. Since the #819 redo the optimized path's
1473        // pre-resolved NUMERIC branches are modeled too (build_join_cfg_numeric
1474        // + the PRESERVED entry-availability discriminator), so this fires only
1475        // on genuinely unmodeled shapes: BrTable, computed Bx, mixed
1476        // label+numeric streams, off-boundary numeric targets.
1477        // Surfaced only under `SYNTH_RA003_VERBOSE` so a production compile stays
1478        // quiet: emitting it unconditionally would print on every branchy
1479        // optimized-path compile (new stderr noise phase 1 never produced), yet
1480        // it must remain observable on demand for the honest-scope audit.
1481        synth_synthesis::liveness::RaFinalVerdict::NotAttempted { reason } => {
1482            if std::env::var_os("SYNTH_RA003_VERBOSE").is_some() {
1483                eprintln!(
1484                    "VCR-RA-003: across-join validation NOT ATTEMPTED ({reason}) — \
1485                     straight-line / callee-saved / across-call invariants held; \
1486                     join-availability reasoning declined on this control-flow shape."
1487                );
1488            }
1489        }
1490        synth_synthesis::liveness::RaFinalVerdict::Consistent => {
1491            if std::env::var_os("SYNTH_RA003_VERBOSE").is_some() {
1492                eprintln!("VCR-RA-003: Consistent");
1493            }
1494        }
1495    }
1496
1497    // Encode to binary — use Thumb-2 for Cortex-M targets
1498    let use_thumb2 = matches!(config.target.isa, IsaVariant::Thumb2 | IsaVariant::Thumb);
1499
1500    let encoder = if use_thumb2 {
1501        ArmEncoder::new_thumb2_with_fpu(config.target.fpu)
1502    } else {
1503        ArmEncoder::new_arm32()
1504    };
1505
1506    // #202: resolve local label branches (Bcc/B/Bhs/Blo) to byte-accurate
1507    // offsets before encoding. `select_with_stack` emits them as label
1508    // placeholders and never resolves them — without this they encode as
1509    // `bne.n #0` and land mid-instruction whenever a 32-bit Thumb-2 instruction
1510    // sits between the branch and its target (UsageFault on real hardware).
1511    // Only meaningful for Thumb-2 (the offset units are halfword/PC+4).
1512    let arm_instrs = if use_thumb2 {
1513        resolve_label_branches(arm_instrs, &encoder)?
1514    } else {
1515        arm_instrs
1516    };
1517
1518    // #778: capture the FINAL Thumb-2 instruction stream (post label-resolution,
1519    // the exact list the encode loop below consumes) so `compile_function` can
1520    // derive the sound WCET bound. Cheap clone; frozen-safe (the WCET walk is a
1521    // pure observation and never touches `code`). Only the Thumb-2 path — the A32
1522    // (Cortex-R5) cycle model is a follow-up.
1523    let final_instrs_for_wcet: Option<Vec<synth_synthesis::ArmInstruction>> = if use_thumb2 {
1524        Some(arm_instrs.clone())
1525    } else {
1526        None
1527    };
1528
1529    let mut code = Vec::new();
1530    let mut relocations = Vec::new();
1531
1532    // #345: literal-pool address loads. Each `LdrSym` was encoded as a placeholder
1533    // `LDR.W rd,[pc,#0]`; record where its instruction sits and what it loads so
1534    // we can append a pooled word (carrying the symbol address via R_ARM_ABS32)
1535    // and patch the PC-relative offset once the pool position is known.
1536    struct PendingLiteral {
1537        ldr_offset: u32,
1538        symbol: String,
1539        addend: i32,
1540    }
1541    let mut pending_literals: Vec<PendingLiteral> = Vec::new();
1542
1543    // VCR-DBG-001: per-instruction source map for DWARF `.debug_line`. Captured
1544    // here because `code.len()` immediately before `encode()` is the final
1545    // machine offset of the instruction within this function's `.text` — nothing
1546    // after the loop shifts earlier instructions (the literal pool is appended at
1547    // the end; the LDR patch below is in-place/length-preserving). Purely
1548    // additive: it does not touch `code`, so `.text` is byte-identical.
1549    let mut line_map: LineMap = Vec::new();
1550    // VCR-DEC-003 (#396): object-branch class per emitted instruction, parallel
1551    // to `line_map`. Cheap, additive, does not touch `code`.
1552    let mut branch_map: synth_core::backend::BranchMap = Vec::new();
1553
1554    for instr in &arm_instrs {
1555        // Record a relocation for every BL: the encoder emits `bl #0` and
1556        // relies on a relocation to patch the target. This covers BOTH import
1557        // dispatch stubs (`__meld_*`, undefined externals) AND internal calls
1558        // (`func_N`, defined in this object). Previously only `__meld_*` was
1559        // recorded, so internal `BL func_N` calls were left as unpatched
1560        // `bl #0` placeholders branching to a garbage address (#167).
1561        if let ArmOp::Bl { label } = &instr.op {
1562            relocations.push(CodeRelocation {
1563                offset: code.len() as u32,
1564                symbol: label.clone(),
1565                kind: synth_core::backend::RelocKind::ThmCall,
1566            });
1567        }
1568        // #237: symbol-relative MOVW/MOVT (the `--native-pointer-abi` static-data
1569        // addressing). The encoder writes the addend in place; record the matching
1570        // R_ARM_MOVW_ABS_NC / R_ARM_MOVT_ABS so the linker adds the symbol address.
1571        if let ArmOp::MovwSym { symbol, .. } = &instr.op {
1572            relocations.push(CodeRelocation {
1573                offset: code.len() as u32,
1574                symbol: symbol.clone(),
1575                kind: synth_core::backend::RelocKind::MovwAbs,
1576            });
1577        }
1578        if let ArmOp::MovtSym { symbol, .. } = &instr.op {
1579            relocations.push(CodeRelocation {
1580                offset: code.len() as u32,
1581                symbol: symbol.clone(),
1582                kind: synth_core::backend::RelocKind::MovtAbs,
1583            });
1584        }
1585        // #345: defer the literal-pool word + reloc + offset patch to the
1586        // post-loop pass (the pool address is not yet known).
1587        if let ArmOp::LdrSym { symbol, addend, .. } = &instr.op {
1588            pending_literals.push(PendingLiteral {
1589                ldr_offset: code.len() as u32,
1590                symbol: symbol.clone(),
1591                addend: *addend,
1592            });
1593        }
1594
1595        // The machine offset of this instruction is the current code length,
1596        // captured before the bytes are appended.
1597        line_map.push((code.len() as u32, instr.source_line));
1598        branch_map.push((code.len() as u32, classify_arm_branch(&instr.op)));
1599
1600        let encoded = encoder
1601            .encode(&instr.op)
1602            .map_err(|e| format!("ARM encoding failed: {}", e))?;
1603        code.extend_from_slice(&encoded);
1604    }
1605
1606    // #345: place the literal pool at the end of this function's `.text`. Gated on
1607    // there being at least one `LdrSym` — functions without one are byte-identical
1608    // to before (no trailing padding, so downstream `func_offsets` are unchanged
1609    // and the frozen differential fixtures stay bit-for-bit equal).
1610    if !pending_literals.is_empty() {
1611        if !use_thumb2 {
1612            return Err("LdrSym literal-pool addressing requires Thumb-2".to_string());
1613        }
1614        // 4-byte align the pool start (Thumb-2 word loads require it, and
1615        // `Align(PC,4)` in the LDR-literal semantics assumes a word-aligned pool).
1616        while code.len() % 4 != 0 {
1617            code.push(0x00);
1618        }
1619        // One distinct pooled word per LdrSym (no dedup: different sites carry
1620        // different addends, and the REL addend lives in the word).
1621        for lit in &pending_literals {
1622            let word_offset = code.len() as u32;
1623
1624            // REL semantics: the linker computes `S + A`, where A is the in-place
1625            // value of the relocated word. Initialize the word to the addend so
1626            // the final loaded address is `symbol + addend`.
1627            code.extend_from_slice(&(lit.addend as u32).to_le_bytes());
1628            relocations.push(CodeRelocation {
1629                offset: word_offset,
1630                symbol: lit.symbol.clone(),
1631                kind: synth_core::backend::RelocKind::Abs32,
1632            });
1633
1634            // Patch the placeholder `LDR.W rd,[pc,#imm12]`. Thumb-2 LDR (literal):
1635            // address = Align(PC,4) + imm12, with PC = ldr_offset + 4. The pool is
1636            // always after the LDR, so U=1 (already set in hw1 = 0xF8DF).
1637            let pc = lit.ldr_offset + 4;
1638            let aligned_pc = pc & !3u32;
1639            let imm12 = word_offset - aligned_pc;
1640            if imm12 > 0xFFF {
1641                // Wide LDR-literal range is ±4 KB; these function bodies are far
1642                // smaller, but fail cleanly rather than miscompile if exceeded.
1643                return Err(format!(
1644                    "LdrSym literal pool out of range (#345): imm12={} > 4095 \
1645                     for symbol {}",
1646                    imm12, lit.symbol
1647                ));
1648            }
1649            let hw2_off = (lit.ldr_offset + 2) as usize;
1650            let mut hw2 = u16::from_le_bytes([code[hw2_off], code[hw2_off + 1]]);
1651            hw2 = (hw2 & 0xF000) | (imm12 as u16); // keep Rt, set imm12
1652            let hw2_bytes = hw2.to_le_bytes();
1653            code[hw2_off] = hw2_bytes[0];
1654            code[hw2_off + 1] = hw2_bytes[1];
1655        }
1656    }
1657
1658    Ok((
1659        code,
1660        relocations,
1661        line_map,
1662        branch_map,
1663        final_instrs_for_wcet,
1664    ))
1665}
1666
1667/// VCR-DEC-003 (#396): classify one emitted `ArmOp` into its object-level
1668/// control-flow role for the `synth-provenance-v1` map. Conditional branches are
1669/// the object decision points MC/DC must reconcile; `SelectMove` is the folded
1670/// (IT-block) predicated form the cmp→select fuse produces — a decision with no
1671/// branch.
1672fn classify_arm_branch(op: &ArmOp) -> synth_core::backend::BranchClass {
1673    use synth_core::backend::BranchClass;
1674    match op {
1675        ArmOp::Bcc { .. } | ArmOp::Bhs { .. } | ArmOp::Blo { .. } | ArmOp::BCondOffset { .. } => {
1676            BranchClass::CondBranch
1677        }
1678        ArmOp::B { .. } | ArmOp::BOffset { .. } => BranchClass::UncondBranch,
1679        ArmOp::SelectMove { .. } => BranchClass::Predicated,
1680        _ => BranchClass::Other,
1681    }
1682}
1683
1684/// Resolve local label branches to byte-accurate offsets (#202).
1685///
1686/// `select_with_stack` emits conditional/unconditional branches as label
1687/// placeholders (`Bcc`/`B`/`Bhs`/`Blo` + `Label`) and never resolves them; the
1688/// encoder then emits a `0xD000`/`0xE000` placeholder with offset 0. Before #197
1689/// this path only ran for `--no-optimize`/declined functions, so the latent bug
1690/// stayed hidden — routing relocatable code through it surfaced branches that
1691/// land mid-instruction (a Cortex-M UsageFault) whenever a 32-bit Thumb-2
1692/// instruction sits between the branch and its target.
1693///
1694/// This pass encodes each instruction to learn its real byte length (so 16- vs
1695/// 32-bit forms and multi-instruction expansions are exact), maps each `Label`
1696/// to its byte position, and rewrites every label branch to the displacement
1697/// the encoder consumes: `(target - branch - 4) / 2` halfwords. A bounded
1698/// fixed-point handles an offset growing a branch from 16- to 32-bit (which
1699/// shifts later positions). `BCondOffset`/`BOffset` already produced inline by
1700/// the optimized path carry no label and are left untouched.
1701fn resolve_label_branches(
1702    arm_instrs: Vec<ArmInstruction>,
1703    encoder: &ArmEncoder,
1704) -> Result<Vec<ArmInstruction>, String> {
1705    use std::collections::HashMap;
1706    use synth_synthesis::Condition;
1707
1708    enum BKind {
1709        Cond(Condition),
1710        Uncond,
1711    }
1712    // Record each label branch ONCE — indices are stable across iterations.
1713    let mut branches: Vec<(usize, BKind, String)> = Vec::new();
1714    for (i, instr) in arm_instrs.iter().enumerate() {
1715        match &instr.op {
1716            ArmOp::Bcc { cond, label } => branches.push((i, BKind::Cond(*cond), label.clone())),
1717            ArmOp::Bhs { label } => branches.push((i, BKind::Cond(Condition::HS), label.clone())),
1718            ArmOp::Blo { label } => branches.push((i, BKind::Cond(Condition::LO), label.clone())),
1719            ArmOp::B { label } => branches.push((i, BKind::Uncond, label.clone())),
1720            _ => {}
1721        }
1722    }
1723    if branches.is_empty() {
1724        return Ok(arm_instrs);
1725    }
1726
1727    let mut resolved = arm_instrs;
1728    // Sizes only grow (16→32-bit), so this converges quickly; cap for safety.
1729    for _ in 0..16 {
1730        // 1. Byte position of each instruction (Label encodes to 0 bytes).
1731        let mut positions = Vec::with_capacity(resolved.len());
1732        let mut pos: i64 = 0;
1733        for instr in &resolved {
1734            positions.push(pos);
1735            pos += encoder
1736                .encode(&instr.op)
1737                .map_err(|e| format!("branch-resolve size probe failed: {}", e))?
1738                .len() as i64;
1739        }
1740        // 2. Label name -> byte position (owned keys so the borrow ends here).
1741        let mut labels: HashMap<String, i64> = HashMap::new();
1742        for (i, instr) in resolved.iter().enumerate() {
1743            if let ArmOp::Label { name } = &instr.op {
1744                labels.insert(name.clone(), positions[i]);
1745            }
1746        }
1747        // 3. Rewrite each branch to its byte-accurate offset.
1748        let mut changed = false;
1749        for (idx, kind, label) in &branches {
1750            // A label not defined locally is an EXTERNAL target (e.g.
1751            // `Trap_Handler` resolved by a relocation / the vector table). Leave
1752            // such branches as their placeholder for the existing relocation
1753            // path — only local control-flow labels are byte-resolved here.
1754            let Some(&target) = labels.get(label) else {
1755                continue;
1756            };
1757            // Encoder consumes the field as (target - branch - 4) / 2 halfwords.
1758            // Positions are always even, so this division is exact.
1759            let halfword_offset = ((target - positions[*idx] - 4) / 2) as i32;
1760            let new_op = match kind {
1761                BKind::Cond(c) => ArmOp::BCondOffset {
1762                    cond: *c,
1763                    offset: halfword_offset,
1764                },
1765                BKind::Uncond => ArmOp::BOffset {
1766                    offset: halfword_offset,
1767                },
1768            };
1769            if resolved[*idx].op != new_op {
1770                resolved[*idx].op = new_op;
1771                changed = true;
1772            }
1773        }
1774        if !changed {
1775            break;
1776        }
1777    }
1778    Ok(resolved)
1779}
1780
1781#[cfg(test)]
1782mod tests {
1783    use super::*;
1784
1785    /// #539: `i32.const 0; memory.grow m` folds to `memory.size m`; other deltas
1786    /// (const non-zero, runtime) are left as `memory.grow` (→ the sound fixed-
1787    /// memory -1). Non-grow ops are untouched, so functions without the idiom are
1788    /// byte-identical.
1789    #[test]
1790    fn test_rewrite_memory_grow_zero_539() {
1791        // the idiom -> memory.size
1792        assert_eq!(
1793            rewrite_memory_grow_zero(&[WasmOp::I32Const(0), WasmOp::MemoryGrow(0)]),
1794            vec![WasmOp::MemorySize(0)]
1795        );
1796        // const non-zero delta: NOT folded
1797        assert_eq!(
1798            rewrite_memory_grow_zero(&[WasmOp::I32Const(2), WasmOp::MemoryGrow(0)]),
1799            vec![WasmOp::I32Const(2), WasmOp::MemoryGrow(0)]
1800        );
1801        // runtime delta (no preceding const): NOT folded
1802        assert_eq!(
1803            rewrite_memory_grow_zero(&[WasmOp::LocalGet(0), WasmOp::MemoryGrow(0)]),
1804            vec![WasmOp::LocalGet(0), WasmOp::MemoryGrow(0)]
1805        );
1806        // a bare const-0 not feeding a grow is untouched
1807        assert_eq!(
1808            rewrite_memory_grow_zero(&[WasmOp::I32Const(0), WasmOp::I32Add]),
1809            vec![WasmOp::I32Const(0), WasmOp::I32Add]
1810        );
1811        // fold is local: surrounding ops preserved, indices past the fold intact
1812        assert_eq!(
1813            rewrite_memory_grow_zero(&[
1814                WasmOp::LocalGet(0),
1815                WasmOp::I32Const(0),
1816                WasmOp::MemoryGrow(0),
1817                WasmOp::I32Add,
1818            ]),
1819            vec![WasmOp::LocalGet(0), WasmOp::MemorySize(0), WasmOp::I32Add]
1820        );
1821    }
1822
1823    #[test]
1824    fn test_arm_backend_name() {
1825        let backend = ArmBackend::new();
1826        assert_eq!(backend.name(), "arm");
1827        assert!(backend.is_available());
1828    }
1829
1830    #[test]
1831    fn test_arm_backend_capabilities() {
1832        let backend = ArmBackend::new();
1833        let caps = backend.capabilities();
1834        assert!(!caps.produces_elf);
1835        assert!(caps.supports_rule_verification);
1836        assert!(!caps.is_external);
1837    }
1838
1839    #[test]
1840    fn test_compile_add_function() {
1841        let backend = ArmBackend::new();
1842        let ops = vec![WasmOp::LocalGet(0), WasmOp::LocalGet(1), WasmOp::I32Add];
1843        let config = CompileConfig::default();
1844
1845        let result = backend.compile_function("add", &ops, &config);
1846        assert!(result.is_ok());
1847
1848        let func = result.unwrap();
1849        assert_eq!(func.name, "add");
1850        assert!(!func.code.is_empty());
1851        assert_eq!(func.wasm_ops, ops);
1852    }
1853
1854    /// VCR-DBG-001: the per-instruction source map must cover the function with
1855    /// monotonic, in-bounds machine offsets, and must not perturb the emitted
1856    /// code (it is captured at encode time, never serialized here).
1857    #[test]
1858    fn test_line_map_is_wellformed_dbg001() {
1859        let backend = ArmBackend::new();
1860        let ops = vec![
1861            WasmOp::LocalGet(0),
1862            WasmOp::LocalGet(1),
1863            WasmOp::I32Add,
1864            WasmOp::End,
1865        ];
1866        let config = CompileConfig::default();
1867        let func = backend.compile_function("add", &ops, &config).unwrap();
1868
1869        // Non-empty, and the first instruction starts at machine offset 0.
1870        assert!(
1871            !func.line_map.is_empty(),
1872            "a non-trivial function captures a source map"
1873        );
1874        assert_eq!(func.line_map[0].0, 0, "first instruction at offset 0");
1875
1876        // Offsets strictly increase by at least one ARM/Thumb instruction (>= 2
1877        // bytes) and every mapped offset lies inside the emitted `.text`.
1878        for w in func.line_map.windows(2) {
1879            assert!(w[1].0 > w[0].0, "instruction offsets strictly increase");
1880            assert!(
1881                w[1].0 - w[0].0 >= 2,
1882                "each ARM/Thumb instruction is >= 2 bytes"
1883            );
1884        }
1885        let last = func.line_map.last().unwrap().0 as usize;
1886        assert!(
1887            last < func.code.len(),
1888            "every mapped offset lies inside .text"
1889        );
1890
1891        // The side-table is additive: recompiling is deterministic and the map is
1892        // consistent with that exact code (capturing it does not alter output).
1893        let again = backend.compile_function("add", &ops, &config).unwrap();
1894        assert_eq!(
1895            again.code, func.code,
1896            "compilation deterministic; map is additive"
1897        );
1898        assert_eq!(again.line_map, func.line_map);
1899    }
1900
1901    #[test]
1902    fn test_count_params() {
1903        let ops = vec![WasmOp::LocalGet(0), WasmOp::LocalGet(1), WasmOp::I32Add];
1904        assert_eq!(count_params(&ops), 2);
1905
1906        let no_params = vec![WasmOp::I32Const(5), WasmOp::I32Const(3), WasmOp::I32Add];
1907        assert_eq!(count_params(&no_params), 0);
1908    }
1909
1910    /// #457: the declared param count caps the access-pattern inference. The
1911    /// repro shape `(param i32)(local i32) → p0 + local1` reads local 1 before
1912    /// any write, so `count_params` infers 2 — with the declared count (1) the
1913    /// local is reclassified onto the zero-inited frame path instead of being
1914    /// read from R1 (caller garbage).
1915    #[test]
1916    fn declared_param_count_caps_inference_457() {
1917        let ops = vec![
1918            WasmOp::LocalGet(0),
1919            WasmOp::LocalGet(1),
1920            WasmOp::I32Add,
1921            WasmOp::End,
1922        ];
1923        // The inference alone still says 2 (the misclassification this caps).
1924        assert_eq!(count_params(&ops), 2);
1925
1926        let backend = ArmBackend::new();
1927        let inferred = backend
1928            .compile_function("rbw", &ops, &CompileConfig::default())
1929            .unwrap();
1930        let declared = backend
1931            .compile_function(
1932                "rbw",
1933                &ops,
1934                &CompileConfig {
1935                    current_func_param_count: Some(1),
1936                    ..CompileConfig::default()
1937                },
1938            )
1939            .unwrap();
1940        // The cap is consumed: the declared-count compile reclassifies local 1
1941        // and must emit different code than the param-misclassified one.
1942        assert_ne!(
1943            inferred.code, declared.code,
1944            "declared param count must reach the selector"
1945        );
1946        // The zero-init is present: a 16-bit Thumb `movs rN, #0`
1947        // (0x2000 | rd<<8 → LE bytes [0x00, 0x20+rd]) somewhere in the body.
1948        let has_movs_zero = declared
1949            .code
1950            .chunks_exact(2)
1951            .any(|h| h[0] == 0x00 && (0x20..=0x27).contains(&h[1]));
1952        assert!(
1953            has_movs_zero,
1954            "declared-count compile must zero-init the read-before-write local; code: {:02x?}",
1955            declared.code
1956        );
1957        // A declared count that matches (or exceeds) the inference changes
1958        // nothing — byte-identity for every function without rbw locals.
1959        let matching = backend
1960            .compile_function(
1961                "rbw",
1962                &ops,
1963                &CompileConfig {
1964                    current_func_param_count: Some(2),
1965                    ..CompileConfig::default()
1966                },
1967            )
1968            .unwrap();
1969        assert_eq!(
1970            matching.code, inferred.code,
1971            "declared >= inferred must stay byte-identical"
1972        );
1973    }
1974
1975    #[test]
1976    fn test_arm_backend_register() {
1977        let mut registry = synth_core::BackendRegistry::new();
1978        registry.register(Box::new(ArmBackend::new()));
1979        assert!(registry.get("arm").is_some());
1980        assert_eq!(registry.available().len(), 1);
1981    }
1982
1983    #[test]
1984    fn test_compile_import_call_produces_relocations() {
1985        let backend = ArmBackend::new();
1986        // Simulate a WASM module where func index 0 is an import.
1987        // Call(0) should generate MOV R0, #0; BL __meld_dispatch_import
1988        let ops = vec![WasmOp::Call(0)];
1989        let config = CompileConfig {
1990            num_imports: 1,
1991            no_optimize: true, // Direct instruction selection to preserve Call semantics
1992            ..CompileConfig::default()
1993        };
1994
1995        let result = backend.compile_function("caller", &ops, &config);
1996        assert!(result.is_ok());
1997
1998        let func = result.unwrap();
1999        assert!(!func.code.is_empty());
2000        assert_eq!(func.relocations.len(), 1);
2001        assert_eq!(func.relocations[0].symbol, "__meld_dispatch_import");
2002        // The BL is the second instruction (after MOV R0, #0), so offset should be > 0
2003        assert!(func.relocations[0].offset > 0);
2004    }
2005
2006    /// Regression test for #197: in `relocatable` mode, an import call must
2007    /// relocate against the direct `func_N` symbol (rewritten to the wasm field
2008    /// name by `build_relocatable_elf`), NOT `__meld_dispatch_import`. This is
2009    /// the ABI half of the #197 fix — without it, a host linker cannot resolve
2010    /// the call to the real kernel symbol (e.g. `k_spin_lock`).
2011    #[test]
2012    fn test_compile_relocatable_import_uses_direct_func_symbol_197() {
2013        let backend = ArmBackend::new();
2014        let ops = vec![WasmOp::Call(0)]; // func 0 is an import
2015        let config = CompileConfig {
2016            num_imports: 1,
2017            relocatable: true,
2018            ..CompileConfig::default()
2019        };
2020
2021        let func = backend
2022            .compile_function("caller", &ops, &config)
2023            .expect("relocatable import call compiles");
2024
2025        assert_eq!(func.relocations.len(), 1);
2026        assert_eq!(
2027            func.relocations[0].symbol, "func_0",
2028            "#197: relocatable import must relocate against func_0 (→ field name), not Meld dispatch"
2029        );
2030    }
2031
2032    #[test]
2033    fn test_compile_no_imports_no_relocations() {
2034        let backend = ArmBackend::new();
2035        let ops = vec![WasmOp::LocalGet(0), WasmOp::LocalGet(1), WasmOp::I32Add];
2036        let config = CompileConfig::default();
2037
2038        let func = backend.compile_function("add", &ops, &config).unwrap();
2039        assert!(func.relocations.is_empty());
2040    }
2041
2042    /// Regression test for #167: a call to an INTERNAL function
2043    /// (index `>= num_imports`) must record a relocation against `func_{index}`.
2044    /// Before the fix, only `__meld_*` (import) BLs were relocated, so
2045    /// internal `BL func_N` was emitted as an unpatched `bl #0` branching
2046    /// to a garbage address — making the object non-linkable. This test
2047    /// would have caught that regression.
2048    #[test]
2049    fn test_compile_internal_call_produces_relocation_167() {
2050        let backend = ArmBackend::new();
2051        // num_imports = 1, so Call(2) is an INTERNAL call → `BL func_2`.
2052        let ops = vec![WasmOp::Call(2)];
2053        let config = CompileConfig {
2054            num_imports: 1,
2055            no_optimize: true,
2056            ..CompileConfig::default()
2057        };
2058
2059        let func = backend
2060            .compile_function("caller", &ops, &config)
2061            .expect("internal call compiles");
2062
2063        assert_eq!(
2064            func.relocations.len(),
2065            1,
2066            "an internal call must emit exactly one relocation (#167)"
2067        );
2068        assert_eq!(
2069            func.relocations[0].symbol, "func_2",
2070            "internal call must relocate against the callee's func_{{index}} symbol (#167)"
2071        );
2072    }
2073
2074    // ─── Phase 1 safety-bounds plumbing for ARM ──────────────────────────
2075
2076    #[test]
2077    fn arm_safety_bounds_mpu_emits_same_code_as_none() {
2078        // Mpu mode must not introduce any inline check on ARM — the MPU
2079        // handles faults via hardware. The encoded bytes for an i32.load
2080        // should be identical between None and Mpu.
2081        let backend = ArmBackend::new();
2082        let ops = vec![
2083            WasmOp::LocalGet(0),
2084            WasmOp::I32Load {
2085                offset: 0,
2086                align: 2,
2087            },
2088        ];
2089        let cfg_none = CompileConfig {
2090            no_optimize: true,
2091            ..Default::default()
2092        };
2093        let cfg_mpu = CompileConfig {
2094            no_optimize: true,
2095            safety_bounds: SafetyBounds::Mpu,
2096            ..Default::default()
2097        };
2098        let n = backend.compile_function("ld", &ops, &cfg_none).unwrap();
2099        let m = backend.compile_function("ld", &ops, &cfg_mpu).unwrap();
2100        assert_eq!(
2101            n.code, m.code,
2102            "Mpu and None should produce identical ARM bytes (Mpu relies on hardware)"
2103        );
2104    }
2105
2106    #[test]
2107    fn arm_legacy_bounds_check_still_emits_software_check() {
2108        // Legacy CLI users with `--bounds-check` should keep getting the
2109        // software path even though the new SafetyBounds field defaults to None.
2110        let backend = ArmBackend::new();
2111        let ops = vec![
2112            WasmOp::LocalGet(0),
2113            WasmOp::I32Load {
2114                offset: 0,
2115                align: 2,
2116            },
2117        ];
2118        let cfg_legacy = CompileConfig {
2119            no_optimize: true,
2120            bounds_check: true,
2121            ..Default::default()
2122        };
2123        let cfg_software = CompileConfig {
2124            no_optimize: true,
2125            safety_bounds: SafetyBounds::Software,
2126            ..Default::default()
2127        };
2128        let l = backend.compile_function("ld", &ops, &cfg_legacy).unwrap();
2129        let s = backend.compile_function("ld", &ops, &cfg_software).unwrap();
2130        assert_eq!(
2131            l.code, s.code,
2132            "--bounds-check should produce the same bytes as --safety-bounds=software"
2133        );
2134    }
2135
2136    /// #377: `--safety-bounds software` must be enforced on the OPTIMIZED path
2137    /// too. Pre-fix, `software` was byte-identical to `none` there (a silent
2138    /// no-op while the safety manifest claimed enforcement). The compiled
2139    /// bytes must now (a) differ from `none` and (b) contain the inline
2140    /// `CMP ip, sl` + `UDF` guard.
2141    #[test]
2142    fn arm_safety_bounds_software_enforced_on_optimized_path_377() {
2143        let backend = ArmBackend::new();
2144        // Dynamic-address store+load: the optimized path accepts this shape
2145        // (no calls, no i64 params, ≤4 params).
2146        let ops = vec![
2147            WasmOp::LocalGet(0),
2148            WasmOp::LocalGet(1),
2149            WasmOp::I32Store {
2150                offset: 4,
2151                align: 2,
2152            },
2153            WasmOp::LocalGet(0),
2154            WasmOp::I32Load {
2155                offset: 0,
2156                align: 2,
2157            },
2158        ];
2159        // no_optimize NOT set — this exercises the optimized path.
2160        let cfg_none = CompileConfig::default();
2161        let cfg_sw = CompileConfig {
2162            safety_bounds: SafetyBounds::Software,
2163            ..Default::default()
2164        };
2165        let n = backend.compile_function("st", &ops, &cfg_none).unwrap();
2166        let s = backend.compile_function("st", &ops, &cfg_sw).unwrap();
2167        assert_ne!(
2168            n.code, s.code,
2169            "#377: software bounds must CHANGE optimized-path codegen (was a silent no-op)"
2170        );
2171        // Thumb-2 `UDF #0` is 0xDE00 (LE bytes: 00 DE); the #752
2172        // wraparound-safe guard's borrow check `CMP sl, ip` (16-bit
2173        // high-reg form) is 0x45E2 (LE: E2 45). Both must appear — one
2174        // guard per access, traps inline.
2175        let has_udf = s.code.windows(2).any(|w| w == [0x00, 0xDE]);
2176        let has_cmp_sl_ip = s.code.windows(2).any(|w| w == [0xE2, 0x45]);
2177        assert!(has_udf, "#377: inline UDF trap missing from optimized path");
2178        assert!(
2179            has_cmp_sl_ip,
2180            "#377/#752: CMP sl, ip bounds borrow-check missing from optimized path"
2181        );
2182        // And `none` must contain NO UDF (the function has no other trap).
2183        assert!(
2184            !n.code.windows(2).any(|w| w == [0x00, 0xDE]),
2185            "none must not contain a UDF for this function"
2186        );
2187    }
2188
2189    /// #377: `mpu` on the optimized path is codegen-passthrough — identical
2190    /// bytes to `none` on BOTH paths (hardware enforcement is target-level;
2191    /// synth does not emit MPU region programming — tracked separately in
2192    /// #377's fix-direction discussion). This pins path-parity for `mpu`.
2193    #[test]
2194    fn arm_safety_bounds_mpu_optimized_path_parity_377() {
2195        let backend = ArmBackend::new();
2196        let ops = vec![
2197            WasmOp::LocalGet(0),
2198            WasmOp::I32Load {
2199                offset: 0,
2200                align: 2,
2201            },
2202        ];
2203        let cfg_none = CompileConfig::default();
2204        let cfg_mpu = CompileConfig {
2205            safety_bounds: SafetyBounds::Mpu,
2206            ..Default::default()
2207        };
2208        let n = backend.compile_function("ld", &ops, &cfg_none).unwrap();
2209        let m = backend.compile_function("ld", &ops, &cfg_mpu).unwrap();
2210        assert_eq!(
2211            n.code, m.code,
2212            "Mpu and None must produce identical bytes on the optimized path too"
2213        );
2214    }
2215
2216    /// #377: `mask` on the optimized path declines to the direct selector
2217    /// (honest degradation) — the compiled function must equal the
2218    /// `--no-optimize` masking bytes, i.e. the flag is honored, never dropped.
2219    #[test]
2220    fn arm_safety_bounds_mask_optimized_path_declines_to_direct_377() {
2221        let backend = ArmBackend::new();
2222        let ops = vec![
2223            WasmOp::LocalGet(0),
2224            WasmOp::LocalGet(1),
2225            WasmOp::I32Store {
2226                offset: 0,
2227                align: 2,
2228            },
2229        ];
2230        let cfg_mask_opt = CompileConfig {
2231            safety_bounds: SafetyBounds::Mask,
2232            ..Default::default()
2233        };
2234        let cfg_mask_direct = CompileConfig {
2235            no_optimize: true,
2236            safety_bounds: SafetyBounds::Mask,
2237            ..Default::default()
2238        };
2239        let o = backend.compile_function("st", &ops, &cfg_mask_opt).unwrap();
2240        let d = backend
2241            .compile_function("st", &ops, &cfg_mask_direct)
2242            .unwrap();
2243        assert_eq!(
2244            o.code, d.code,
2245            "#377: mask on the optimized path must fall back to the direct selector's masking"
2246        );
2247    }
2248
2249    // ========================================================================
2250    // ISA feature gate tests — ensure the compiler never emits unsupported
2251    // instructions for a given target
2252    // ========================================================================
2253
2254    #[test]
2255    fn test_f32_rejected_on_cortex_m3_no_fpu() {
2256        let backend = ArmBackend::new();
2257        let ops = vec![WasmOp::F32Const(1.0), WasmOp::F32Const(2.0), WasmOp::F32Add];
2258        let config = CompileConfig {
2259            target: TargetSpec::cortex_m3(),
2260            no_optimize: true,
2261            ..CompileConfig::default()
2262        };
2263
2264        let result = backend.compile_function("fadd", &ops, &config);
2265        assert!(
2266            result.is_err(),
2267            "f32 operations should fail on Cortex-M3 (no FPU)"
2268        );
2269    }
2270
2271    #[test]
2272    fn test_f32_accepted_on_cortex_m4f() {
2273        let backend = ArmBackend::new();
2274        let ops = vec![WasmOp::F32Const(1.0), WasmOp::F32Const(2.0), WasmOp::F32Add];
2275        let config = CompileConfig {
2276            target: TargetSpec::cortex_m4f(),
2277            no_optimize: true,
2278            ..CompileConfig::default()
2279        };
2280
2281        let result = backend.compile_function("fadd", &ops, &config);
2282        assert!(
2283            result.is_ok(),
2284            "f32 operations should succeed on Cortex-M4F, got: {:?}",
2285            result.unwrap_err()
2286        );
2287    }
2288
2289    #[test]
2290    fn test_i32_works_on_all_targets() {
2291        let backend = ArmBackend::new();
2292        let ops = vec![WasmOp::LocalGet(0), WasmOp::LocalGet(1), WasmOp::I32Add];
2293
2294        // Cortex-M3 (no FPU)
2295        let config_m3 = CompileConfig {
2296            target: TargetSpec::cortex_m3(),
2297            no_optimize: true,
2298            ..CompileConfig::default()
2299        };
2300        assert!(
2301            backend.compile_function("add", &ops, &config_m3).is_ok(),
2302            "i32 ops should work on Cortex-M3"
2303        );
2304
2305        // Cortex-M4F (single FPU)
2306        let config_m4f = CompileConfig {
2307            target: TargetSpec::cortex_m4f(),
2308            no_optimize: true,
2309            ..CompileConfig::default()
2310        };
2311        assert!(
2312            backend.compile_function("add", &ops, &config_m4f).is_ok(),
2313            "i32 ops should work on Cortex-M4F"
2314        );
2315
2316        // Cortex-M7DP (double FPU)
2317        let config_m7dp = CompileConfig {
2318            target: TargetSpec::cortex_m7dp(),
2319            no_optimize: true,
2320            ..CompileConfig::default()
2321        };
2322        assert!(
2323            backend.compile_function("add", &ops, &config_m7dp).is_ok(),
2324            "i32 ops should work on Cortex-M7DP"
2325        );
2326    }
2327
2328    #[test]
2329    fn test_f32_rejected_on_cortex_m4_no_fpu() {
2330        // Cortex-M4 (without F suffix) has no FPU
2331        let backend = ArmBackend::new();
2332        let ops = vec![WasmOp::F32Const(1.5), WasmOp::F32Const(2.5), WasmOp::F32Mul];
2333        let config = CompileConfig {
2334            target: TargetSpec::cortex_m4(),
2335            no_optimize: true,
2336            ..CompileConfig::default()
2337        };
2338
2339        let result = backend.compile_function("fmul", &ops, &config);
2340        assert!(
2341            result.is_err(),
2342            "f32 operations should fail on Cortex-M4 (no FPU)"
2343        );
2344    }
2345
2346    // ========================================================================
2347    // Issue #120 — f32 ops in the optimized lowering path
2348    //
2349    // `OptimizerBridge::wasm_to_ir` has no handlers for f32/f64 ops, so a
2350    // value-producing float op fell through to `Opcode::Nop`, leaving a
2351    // downstream consumer with an unmapped vreg and tripping the PR #101
2352    // defensive panic in `ir_to_arm`. Customer reproducer: `compiler_builtins
2353    // float::div` and `gale_compute_ipi_mask` in the `falcon-rate-component`
2354    // module.
2355    //
2356    // Fix: `optimize_full` declines float modules with a typed `Err`;
2357    // `compile_wasm_to_arm` falls back to the non-optimized `select_with_stack`
2358    // path, which handles f32 via VFP/FPU. These tests use the *default*
2359    // (optimized) config — `no_optimize` is NOT set — which is the exact
2360    // configuration that panicked pre-fix.
2361    // ========================================================================
2362
2363    /// Pre-fix: this panicked with "vreg vN has no assigned ARM register and
2364    /// no spill slot" inside `ir_to_arm`. Post-fix: the optimized path declines
2365    /// the module and the backend falls back to direct selection, producing a
2366    /// non-empty f32.div lowering on a Cortex-M4F.
2367    #[test]
2368    fn test_issue120_f32_div_compiles_via_optimized_default() {
2369        let backend = ArmBackend::new();
2370        let ops = vec![WasmOp::LocalGet(0), WasmOp::LocalGet(1), WasmOp::F32Div];
2371        let config = CompileConfig {
2372            target: TargetSpec::cortex_m4f(),
2373            // no_optimize NOT set — this exercises the optimized path that
2374            // panicked in issue #120, then the fallback to direct selection.
2375            // GI-FPU-002: the f32 params must be declared so the direct
2376            // selector homes them in S0/S1 (AAPCS-VFP) rather than declining.
2377            current_func_params_f32: vec![true, true],
2378            ..CompileConfig::default()
2379        };
2380
2381        let result = backend.compile_function("fdiv", &ops, &config);
2382        assert!(
2383            result.is_ok(),
2384            "f32.div must compile on Cortex-M4F via the optimized->direct \
2385             fallback (issue #120), got: {:?}",
2386            result.as_ref().err()
2387        );
2388        assert!(
2389            !result.unwrap().code.is_empty(),
2390            "f32.div must produce non-empty machine code"
2391        );
2392    }
2393
2394    /// A spread of f32 ops, all through the optimized (default) config, must
2395    /// compile via the fallback on an FPU target without panicking.
2396    #[test]
2397    fn test_issue120_assorted_f32_ops_compile_via_optimized_default() {
2398        let backend = ArmBackend::new();
2399        let config = CompileConfig {
2400            target: TargetSpec::cortex_m4f(),
2401            // GI-FPU-002: declare the two f32 params for AAPCS-VFP homing.
2402            current_func_params_f32: vec![true, true],
2403            ..CompileConfig::default()
2404        };
2405
2406        let cases: Vec<(&str, Vec<WasmOp>)> = vec![
2407            (
2408                "fadd",
2409                vec![WasmOp::LocalGet(0), WasmOp::LocalGet(1), WasmOp::F32Add],
2410            ),
2411            (
2412                "fmul",
2413                vec![WasmOp::LocalGet(0), WasmOp::LocalGet(1), WasmOp::F32Mul],
2414            ),
2415            (
2416                "fsub",
2417                vec![WasmOp::LocalGet(0), WasmOp::LocalGet(1), WasmOp::F32Sub],
2418            ),
2419        ];
2420
2421        for (name, ops) in cases {
2422            let result = backend.compile_function(name, &ops, &config);
2423            assert!(
2424                result.is_ok(),
2425                "{name} must compile via the optimized->direct fallback \
2426                 (issue #120), got: {:?}",
2427                result.as_ref().err()
2428            );
2429            assert!(
2430                !result.unwrap().code.is_empty(),
2431                "{name} must produce non-empty machine code"
2432            );
2433        }
2434    }
2435
2436    /// The fallback must still honor the ISA feature gate: f32 on a no-FPU
2437    /// target must fail cleanly (not panic) even on the optimized path.
2438    #[test]
2439    fn test_issue120_f32_div_rejected_on_no_fpu_via_optimized() {
2440        let backend = ArmBackend::new();
2441        let ops = vec![WasmOp::LocalGet(0), WasmOp::LocalGet(1), WasmOp::F32Div];
2442        let config = CompileConfig {
2443            target: TargetSpec::cortex_m3(),
2444            ..CompileConfig::default()
2445        };
2446
2447        let result = backend.compile_function("fdiv", &ops, &config);
2448        assert!(
2449            result.is_err(),
2450            "f32.div must be rejected on Cortex-M3 (no FPU), not panic"
2451        );
2452    }
2453
2454    /// #507: a `br_table` function compiled via the DEFAULT (optimized) config
2455    /// must produce the SAME bytes as the direct (`no_optimize`) selector —
2456    /// i.e. the optimized path declined it to direct, lowering the dispatch as a
2457    /// real cmp-chain instead of silently dropping it (which left all arms in
2458    /// fall-through). Pre-fix the two outputs differed (the optimized one had no
2459    /// selector compare). Execution correctness is gated by
2460    /// `scripts/repro/br_table_507_differential.py`.
2461    #[test]
2462    fn test_507_br_table_declines_to_direct() {
2463        let backend = ArmBackend::new();
2464        // dispatch(sel): br_table over 3 blocks, each storing a marker to mem[0].
2465        let ops = vec![
2466            WasmOp::Block,
2467            WasmOp::Block,
2468            WasmOp::Block,
2469            WasmOp::LocalGet(0),
2470            WasmOp::BrTable {
2471                targets: vec![0, 1, 2],
2472                default: 2,
2473            },
2474            WasmOp::End,
2475            WasmOp::I32Const(0),
2476            WasmOp::I32Const(10),
2477            WasmOp::I32Store {
2478                offset: 0,
2479                align: 2,
2480            },
2481            WasmOp::Return,
2482            WasmOp::End,
2483            WasmOp::I32Const(0),
2484            WasmOp::I32Const(20),
2485            WasmOp::I32Store {
2486                offset: 0,
2487                align: 2,
2488            },
2489            WasmOp::Return,
2490            WasmOp::End,
2491            WasmOp::I32Const(0),
2492            WasmOp::I32Const(30),
2493            WasmOp::I32Store {
2494                offset: 0,
2495                align: 2,
2496            },
2497        ];
2498        let opt = CompileConfig {
2499            target: TargetSpec::cortex_m4(),
2500            ..CompileConfig::default()
2501        };
2502        let direct = CompileConfig {
2503            target: TargetSpec::cortex_m4(),
2504            no_optimize: true,
2505            ..CompileConfig::default()
2506        };
2507        let a = backend
2508            .compile_function("dispatch", &ops, &opt)
2509            .expect("optimized-default must compile br_table (via decline)");
2510        let b = backend
2511            .compile_function("dispatch", &ops, &direct)
2512            .expect("direct must compile br_table");
2513        assert_eq!(
2514            a.code, b.code,
2515            "#507: optimized-default br_table output must be byte-identical to the \
2516             direct selector (i.e. declined to direct), not a dropped dispatch"
2517        );
2518    }
2519
2520    /// Issue #94: end-to-end byte-size check for the canonical u64-packed
2521    /// FFI-return hi32 extract pattern. Compiles two near-identical
2522    /// functions — one with the optimized shift-by-32, one with a generic
2523    /// shift-by-7 — and asserts the optimized form is meaningfully smaller.
2524    #[test]
2525    fn test_issue94_hi32_extract_is_smaller_than_generic_shift() {
2526        let backend = ArmBackend::new();
2527        let config = CompileConfig {
2528            target: TargetSpec::cortex_m4f(),
2529            ..CompileConfig::default()
2530        };
2531
2532        // #518: the i64 value must NOT come from an i64 PARAM — the optimized
2533        // path now declines i64-param functions to the direct selector (it homed
2534        // an i64 param in R4:R5 instead of R0:R1, a silent miscompile this test's
2535        // byte-size-only assertion masked). The canonical #94 case is a u64 from
2536        // an FFI return, not a param, anyway. Source the i64 from a sign-extended
2537        // i32 param (`extend_i32_s`): a runtime, non-constant-foldable i64 that
2538        // stays on the optimized path, so the shift-by-32 hi-extract peephole is
2539        // still exercised on CORRECT code.
2540        // Optimized path: `(i64.extend_i32_s (local.get 0)) >>> 32; wrap_i64`
2541        let ops_hi32 = vec![
2542            WasmOp::LocalGet(0), // i32 param in R0
2543            WasmOp::I64ExtendI32S,
2544            WasmOp::I64Const(32),
2545            WasmOp::I64ShrU,
2546            WasmOp::I32WrapI64,
2547        ];
2548        let func_hi32 = backend
2549            .compile_function("hi32_extract", &ops_hi32, &config)
2550            .unwrap();
2551
2552        // Generic path: `... >>> 7; wrap_i64` — same shape, but the shift amount
2553        // is not a multiple of 32, so it falls through to the runtime shift.
2554        let ops_generic = vec![
2555            WasmOp::LocalGet(0),
2556            WasmOp::I64ExtendI32S,
2557            WasmOp::I64Const(7),
2558            WasmOp::I64ShrU,
2559            WasmOp::I32WrapI64,
2560        ];
2561        let func_generic = backend
2562            .compile_function("generic_shr", &ops_generic, &config)
2563            .unwrap();
2564
2565        let bytes_hi32 = func_hi32.code.len();
2566        let bytes_generic = func_generic.code.len();
2567        println!(
2568            "\n[issue #94] hi32 extract: {} bytes (vs generic shift: {} bytes; saved {})",
2569            bytes_hi32,
2570            bytes_generic,
2571            bytes_generic.saturating_sub(bytes_hi32)
2572        );
2573        let hex: String = func_hi32
2574            .code
2575            .iter()
2576            .map(|b| format!("{:02x}", b))
2577            .collect::<Vec<_>>()
2578            .join(" ");
2579        println!("[issue #94] hi32 bytes: {}", hex);
2580        // We expect the optimized form to be at least 30 bytes smaller than
2581        // the generic 64-bit shift sequence. (Empirically: 14 vs 50 bytes.)
2582        assert!(
2583            bytes_hi32 + 30 <= bytes_generic,
2584            "issue #94: hi32 extract = {} bytes, generic shift = {} bytes; \
2585             expected optimized form to be at least 30 bytes smaller",
2586            bytes_hi32,
2587            bytes_generic,
2588        );
2589    }
2590}