create-sum-body ( sum -- )

Vocabulary

llvm.examples.sumfunc

Inputs

sum

an object

Outputs

None

Definition

USING: accessors destructors kernel llvm.ffi llvm.wrappers ;

IN: llvm.examples.sumfunc

: create-sum-body ( sum -- )
    dup <builder> [
        value>> swap dupd
        [ 0 LLVMGetParam ] [ 1 LLVMGetParam ] bi
        "tmp" LLVMBuildAdd LLVMBuildRet drop
    ] with-disposal ;