1a8991ab27
16 fn/global examples across categories (0415/0602/0603/1024/1025/1605/1607-1609/ 1611/1616/1619/1622/1628/1635/1636): bare '#foreign'→'extern'. All cls=0 (no class forms). Marker'd ones (1605/1609/1611 + the rest) corpus-validated; the 3 unmarked uikit importers (1607/1608/1616) verified byte-identical via 'sx ir' probes. Empty snapshot diff; suite green (647 corpus / 444 unit, 0 failed). LEFT comment-only/provenance #foreign (0716/0729 + issues/0030-extern-global + extern-test files 1223-1231/1332/1348/1349/1426) and the keep-list (identity ffi-foreign-* + foreign-asserting diagnostics 1172/1174/1219/1228/1620) for Phase 8.
33 lines
833 B
Plaintext
33 lines
833 B
Plaintext
// `cast(T) val` inside a conditional, evaluated by the IR interpreter
|
|
// during a post-link callback. The `cast` syntax lowers the type arg
|
|
// (`i64`) as a `placeholder` IR op; the interpreter treats placeholders
|
|
// as undef so the comparison runs through unchanged.
|
|
|
|
#import "modules/std.sx";
|
|
#import "modules/build.sx";
|
|
|
|
libc :: #library "c";
|
|
popen :: (cmd: [:0]u8, mode: [:0]u8) -> *void extern libc;
|
|
puts :: (s: [:0]u8) -> i32 extern libc;
|
|
|
|
R :: struct { x: i32; }
|
|
|
|
bug :: (cmd: [:0]u8) -> ?R {
|
|
f := popen(cmd, "r");
|
|
if cast(i64) f == 0 { return null; }
|
|
R.{ x = 1 }
|
|
}
|
|
|
|
post_link :: () -> bool {
|
|
if r := bug("echo hi") { puts("ok"); } else { puts("null"); }
|
|
true
|
|
}
|
|
|
|
configure :: () {
|
|
opts := build_options();
|
|
opts.set_post_link_callback(post_link);
|
|
}
|
|
#run configure();
|
|
|
|
main :: () { print("rt\n"); }
|