mirror of
https://github.com/janet-lang/janet
synced 2024-11-16 05:34:48 +00:00
21 lines
375 B
Plaintext
21 lines
375 B
Plaintext
|
|
(def ir-asm
|
|
@{:instructions
|
|
'(
|
|
# 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))
|
|
:parameter-count 2
|
|
:link-name "add_vectorp"})
|
|
|
|
(def as (sysir/asm ir-asm))
|
|
(print (sysir/to-c as))
|