tests/walkBlocks.R

In duncantl/Rllvm: Interface to llvm for dynamically compiling native code.

library(Rllvm)

if(TRUE) {
    
    library(RLLVMCompile)    
    fib1 =
    function(n)
    {
        ans = 1L
        if(n == 0L || n == 1L)
            ans = n
        else
            ans = fib1(n - 1L) + fib1(n - 2L)
        
        return(ans)
    }

    fc = compileFunction(fib1, Int32Type, Int32Type)
} else {

    m = parseIR(system.file("IR", "fib.ll", package = "Rllvm"))
    fc = m$fib
}


bb = getBlocks(fc)
length(bb)
names(bb)

getParent(bb[[1]]) # same as fc.
stopifnot(identical(getParent(bb[[1]]), fc))

ins = getBlockInstructions(bb[[1]])
getParent(ins[[1]])

llvmDump(bb[[1]])