mirror of
https://github.com/janet-lang/janet
synced 2025-07-06 20:12:53 +00:00
0066a5a304
Start setting up a test suite for sysir and work towards emitting jitted x86 machine code.
23 lines
452 B
Plaintext
23 lines
452 B
Plaintext
(def ir-asm
|
|
'((link-name "add_vectorp")
|
|
(parameter-count 2)
|
|
|
|
# Types
|
|
(type-prim Double f64)
|
|
(type-array BigVec Double 100)
|
|
(type-pointer BigVecP BigVec)
|
|
|
|
# Declarations
|
|
(bind 0 BigVecP)
|
|
(bind 1 BigVecP)
|
|
(bind 2 BigVecP)
|
|
(add 2 0 1)
|
|
(return 2)))
|
|
|
|
(def ctx (sysir/context))
|
|
(sysir/asm ctx ir-asm)
|
|
(printf "%j" (sysir/to-ir ctx))
|
|
(sysir/scalarize ctx)
|
|
(printf "%j" (sysir/to-ir ctx))
|
|
(print (sysir/to-c ctx))
|