janet/examples/sysdialect_asm.janet

(def ir-asm
  @{:instructions
   '((prim 0 s32)
     (bind 0 0)
     (bind 1 0)
     (bind 2 0)
     #(constant 0 10)
     (constant 1 20)
     (add 2 1 0)
     (return 2))
   :parameter-count 0
   :link-name "main"})

(def as (sysir/asm ir-asm))
(print :did-assemble)
(os/sleep 0.5)
(print (sysir/to-c as))
Rename sysdialect to sysir 2023-05-12 23:10:52 +00:00			`(def ir-asm`
			`@{:instructions`
More work on sysir, add initial work for recursive types. 2023-08-06 20:50:21 +00:00			`'((prim 0 s32)`
			`(bind 0 0)`
			`(bind 1 0)`
			`(bind 2 0)`
			`#(constant 0 10)`
			`(constant 1 20)`
			`(add 2 1 0)`
			`(return 2))`
			`:parameter-count 0`
			`:link-name "main"})`
Rename sysdialect to sysir 2023-05-12 23:10:52 +00:00
More work on sysir, add initial work for recursive types. 2023-08-06 20:50:21 +00:00			`(def as (sysir/asm ir-asm))`
			`(print :did-assemble)`
			`(os/sleep 0.5)`
			`(print (sysir/to-c as))`