code wiki / _hdl_build / nx_js_rich_diag.nx
nx_js_rich_diag.nx source
↩ module page · 25 lines · 1968 B
1// probe Richards' runtime operations to find the gap. 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 probe(src: *u8, name: *u8) -> i64 {
6 let ot: *i64 = sys_mmap(16) as *i64
7 let ov: *i64 = sys_mmap(16) as *i64
8 let rt: i64 = js_run_source(src, bsl(src), ot)
9 let rv: i64 = compile_run(src, ov)
10 pw(" "); pw(name); pw(": TREE rc="); pn(rt); pw(" tag="); pn(ot[0]); pw(" pay="); pn(ot[1])
11 pw(" | VM rc="); pn(rv); pw(" tag="); pn(ov[0]); pw(" pay="); pn(ov[1]); pw("\n" as *u8)
12 return 0
13}
14func main(argc: i64, argv: *i64) -> i64 {
15 pw("=== Richards runtime-op probe ===\n" as *u8)
16 probe("0xD008" as *u8, "hex 0xD008 expect 53256" as *u8)
17 probe("var a=new Array(5);a.length" as *u8, "new Array(5).length expect 5" as *u8)
18 probe("function T(){this.v=21945;}T.prototype.step=function(){this.v=(this.v>>1)^0xD008;return this.v;};var t=new T();t.step()" as *u8, "bitwise method expect 43900" as *u8)
19 probe("var p=null;p==null?1:0" as *u8, "null eq expect 1" as *u8)
20 probe("function N(l){this.link=l;}var a=new N(null);var b=new N(a);(b.link.link==null)?1:0" as *u8, "linked list expect 1" as *u8)
21 probe("var s=0;var i=0;for(i=0;i<5;i=i+1){s=s+i;}s" as *u8, "for loop expect 10" as *u8)
22 probe("function C(){this.n=3;}C.prototype.dec=function(){this.n--;return this.n;};var c=new C();c.dec();c.dec()" as *u8, "member postfix-- expect 1" as *u8)
23 probe("var x=[];x[0]=7;x.length" as *u8, "empty-array index-grow expect 1" as *u8)
24 return 0
25}