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}