code wiki / _hdl_build / nx_js_arena_probe.nx
nx_js_arena_probe.nx source
↩ module page · 14 lines · 1282 B
1// isolate the escaped-closure crash: interpreter vs JIT. expect_exit: 0 license_tier: ORIGINAL
2import "nx_js_vm.nx"
3func pw(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(1, s, n); return 0 }
4func pn(v: i64) -> i64 { if v==0 { sys_write(1,"0" as *u8,1); return 0 } var m: i64=v; if m<0 { sys_write(1,"-" as *u8,1); m=0-m } let t: *u8=sys_mmap(24); var k: i64=0; while m>0 { t[k]=(48+(m%10)) as u8; m=m/10; k=k+1 } let o: *u8=sys_mmap(24); var q: i64=k-1; var x: i64=0; while q>=0 { o[x]=t[q]; x=x+1; q=q-1 } sys_write(1,o,x); return 0 }
5func main(argc: i64, argv: *i64) -> i64 {
6 let out: *i64 = sys_mmap(16) as *i64
7 let src: *u8 = "function mk(x){return function(y){return x+y;};}var a=mk(5);a(10)" as *u8
8 pw("fib32: "); let rf: i64 = compile_run("function fib(n){return n<2?n:fib(n-1)+fib(n-2);}fib(32)" as *u8, out); pw("rc="); pn(rf); pw(" val="); pn(out[1]); pw("\n" as *u8)
9 let ov2: *i64 = sys_mmap(16) as *i64
10 let ot2: *i64 = sys_mmap(16) as *i64
11 pw("mk-VM(fresh cell): "); let r2: i64 = compile_run(src, ov2); pw("rc="); pn(r2); pw(" val="); pn(ov2[1]); pw("\n" as *u8)
12 pw("mk-tree: "); let r3: i64 = js_run_source(src, bsl(src), ot2); pw("rc="); pn(r3); pw(" val="); pn(ot2[1]); pw("\n" as *u8)
13 return 0
14}