code wiki / _hdl_build / _tv_emitter.nx
_tv_emitter.nx source
↩ module page · 16 lines · 852 B
1// GENERATED by nx_transduce_v1 (X-AUT-006b): PARAMETERIZED re-emitter.
2import "nx_syscalls.nx"
3func _w(fd: i64, s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(fd,s,n); return 0 }
4func _wn(fd: i64, v: i64) -> i64 { let bb: *u8=sys_mmap(28); var m: i64=v; if m<0{m=0-m}; let t: *u8=sys_mmap(28); var k: i64=0; if m==0{t[0]=48 as u8;k=1}; while m>0{t[k]=(48+(m%10)) as u8;m=m/10;k=k+1}; var i: i64=0; while i<k{bb[i]=t[k-1-i];i=i+1}; sys_write(fd,bb,k); return 0 }
5func main() -> i64 {
6 let c: *i64 = sys_mmap(256) as *i64
7 c[0] = 4607182418800017408
8 let fd: i64 = sys_openat_wr("/tmp/_tv_repro.nx" as *u8, 0x1a4)
9 if fd < 0 { sys_exit(1) }
10 _w(fd, "func scale(x: i64) -> i64 {\n let y: i64 = nx_f64_mul(x, ")
11 _wn(fd, c[0])
12 _w(fd, ")\n return y\n}\n")
13 sys_close(fd)
14 sys_exit(0)
15 return 0
16}