tests/serialize1.R

In duncantl/R2llvm: LLVM-based compiler for R code

library(RLLVMCompile)

f =
function(x)
{
   x + 2
}

fc = compileFunction(f, DoubleType, DoubleType)

m = as(fc, "Module")
.llvm(m$f, 3)
#createGlobalVariable("num", m, Int32Type, 10L)

ir = showModule(m, TRUE)

save(ir, file = "ir.rda")
rm(m)

Rllvm::shutdown()
InitializeNativeTarget()
##############

library(Rllvm)
load("ir.rda")
mm = parseIR( I( ir ) )
funs = getModuleFunctions(mm)

isDeclaredFunction =
function(f)
{
   length(getBlocks(f)) == 0L
}

isDecl = sapply(funs, isDeclaredFunction)
lapply(names(funs)[isDecl], llvmAddSymbol)
 

.llvm(mm$f, 3)


# Now re-load the native symbols.
# How do we determine which Functions are defined in the module and which are external.
#  Can we put meta-data in the module to identify
#
# The module knows which are defined and which are declared.
#