test/test16.R

In doktorschiwago/kwai: Yet Another R Compiler

library(kwai)

source("../R/compile.R")
source("../R/typelib.R")
source("../R/inferType.R")
source("../R/createIR2.R")
source("../R/typelib.R")
source("../R/llvm_helper.R")
source("../R/visitStackMachine3.R")
source("../R/discoverBlocks.R")
source("../R/lowerOps.R")

myfunction <- function(arg1){
	arg1[["bb"]]=2
	return(arg1)
}


#debug(inferType2)
llvmFunc=byte2llvm(myfunction)
print(myfunction)
print(myfunction(list()))
print(llvmFunc(list()))