Files
sx/examples/ffi-objc-call-03-selector-sharing.sx
agra 26a04e49d0 tests: IR-snapshot harness — diff sx ir output when .ir present
run_examples.sh now supports an optional `tests/expected/<name>.ir`
sibling to `.txt`/`.exit`. When present, the runner also captures
`sx ir <file>` output, normalizes target-/host-specific noise
(module ID, target triple/datalayout, attribute groups, LLVM's
auto-suffixed %temp numbering), and diffs against the snapshot.
`--update` regenerates it alongside the runtime output.

Catches lowering changes that don't affect what the program prints
— exactly the shape Phase 1.5's selector interning will produce
(same runtime output, very different IR).

First snapshot: `ffi-objc-call-03-selector-sharing.ir`. Today the
test emits four `call ptr @sel_registerName(ptr @str.N)` lines for
its four call sites; after 1.5 we expect two static
`@OBJC_SELECTOR_REFERENCES_<sel>` globals + loads at each call
site. The diff between the two snapshots will be the visible
artifact of the optimization.
2026-05-19 13:01:28 +03:00

43 lines
1.6 KiB
Plaintext

// Phase 1 step 1.4 (PLAN-FFI.md): multiple `#objc_call` sites
// with the same selector. Today (after 1.3) each site emits its
// own `call @sel_registerName(<"init">)`; the actual SEL handle
// is recomputed per call.
//
// 1.5 lands selector interning: one static `SEL` global per
// unique selector string (named `OBJC_SELECTOR_REFERENCES_init`,
// matching clang's convention) populated once via the runtime
// at module init. Per call site becomes a single load.
//
// Runtime behavior is unchanged before vs. after 1.5; the
// improvement is visible in `sx ir` only. The IR snapshot at
// `tests/expected/ffi-objc-call-03-selector-sharing.ir` locks
// in today's shape (4 `call ptr @sel_registerName` instructions,
// one per call site). After 1.5 lands selector interning, the
// snapshot updates to ≤2 (one per unique selector string) plus
// a static `@OBJC_SELECTOR_REFERENCES_<sel>` global and loads at
// the call sites.
#import "modules/std.sx";
#import "modules/compiler.sx";
main :: () -> s32 {
inline if OS == .macos {
// Three calls, same selector, same nil receiver. Today these
// emit three `sel_registerName("init")` calls. After 1.5 the
// emit collapses to one (cached SEL global).
#objc_call(void)(null, "init");
#objc_call(void)(null, "init");
#objc_call(void)(null, "init");
// A different selector — should remain distinct after 1.5
// (one cached SEL per unique string, not per call site).
#objc_call(void)(null, "release");
print("ok\n");
}
inline if OS != .macos {
print("skipped (not macos)\n");
}
0;
}