code wiki / _hdl_build / nx_recycler_intguard_gate.nx
nx_recycler_intguard_gate.nx source
↩ module page · 50 lines · 2818 B
1import "nx_gate_gn.nx"
2// nx_recycler_intguard_gate.nx -- proves the integer-overflow-recycled checked-arithmetic primitive catches real
3// i64 overflow and passes safe arithmetic. Large operands are BUILT by shifting (1<<62) to avoid the large-literal
4// miscompile landmine. Grounding: the source artifact recyc_intoverflow.raw exists. expect_exit: 0
5import "nx_syscalls.nx"
6import "nx_recycler_intguard.nx"
7
8func gp(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 }
9func have_file(p: *u8) -> i64 { let fd: i64=sys_openat_rd(p); if fd<0 { return 0 } sys_close(fd); return 1 }
10
11func main() -> i64 {
12 gp("=== nx_recycler_intguard_gate: integer-overflow recycled into checked i64 arithmetic ===\n" as *u8)
13 var pass: i64=0; var fail: i64=0
14 let ok: *i64 = sys_mmap(16) as *i64
15 let big: i64 = 1 << 62 // 4.6e18, positive, < MAX (built, not a huge literal)
16
17 // KAT1 safe add -> ok, correct result
18 let r1: i64 = ig_add_checked(5, 3, ok)
19 if ok[0]==1 { pass=pass+1 } else { fail=fail+1; gp(" FAIL kat1-safe-add-flagged\n" as *u8) }
20 if r1==8 { pass=pass+1 } else { fail=fail+1; gp(" FAIL kat1-wrong-sum\n" as *u8) }
21
22 // KAT2 ADD OVERFLOW: big + big wraps positive -> negative
23 ig_add_checked(big, big, ok)
24 if ok[0]==0 { pass=pass+1 } else { fail=fail+1; gp(" FAIL kat2-add-overflow-missed\n" as *u8) }
25
26 // KAT3 add with opposite signs never overflows
27 ig_add_checked(big, 0-big, ok)
28 if ok[0]==1 { pass=pass+1 } else { fail=fail+1; gp(" FAIL kat3-false-overflow-opposite-signs\n" as *u8) }
29
30 // KAT4 safe mul -> ok, correct result
31 let r4: i64 = ig_mul_checked(6, 7, ok)
32 if ok[0]==1 { pass=pass+1 } else { fail=fail+1; gp(" FAIL kat4-safe-mul-flagged\n" as *u8) }
33 if r4==42 { pass=pass+1 } else { fail=fail+1; gp(" FAIL kat4-wrong-product\n" as *u8) }
34
35 // KAT5 MUL OVERFLOW: big * 4 = 1<<64 wraps
36 ig_mul_checked(big, 4, ok)
37 if ok[0]==0 { pass=pass+1 } else { fail=fail+1; gp(" FAIL kat5-mul-overflow-missed\n" as *u8) }
38
39 // KAT6 mul no-overflow: (1<<30)*(1<<30) = 1<<60, fits
40 let m: i64 = 1 << 30
41 ig_mul_checked(m, m, ok)
42 if ok[0]==1 { pass=pass+1 } else { fail=fail+1; gp(" FAIL kat6-false-mul-overflow\n" as *u8) }
43
44 // KAT7 grounding: the integer-overflow intake artifact exists
45 if have_file("knowledge/fetched/recyc_intoverflow.raw" as *u8)==1 { pass=pass+1 } else { fail=fail+1; gp(" FAIL kat7-ungrounded\n" as *u8) }
46
47 gp("RECYCLER-INTGUARD-GATE pass=" as *u8); gn(pass); gp(" fail=" as *u8); gn(fail)
48 if fail==0 { gp(" verdict=GREEN (i64 add/mul overflow CAUGHT, safe arithmetic passes -- the integer-overflow CVE recycled into a checked primitive)\n" as *u8); sys_exit(0); return 0 }
49 gp(" verdict=RED\n" as *u8); sys_exit(1); return 1
50}