azalea/kotlin-fork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

InteropExample: port to new interop

Browse Source
This commit is contained in:
Svyatoslav Scherbina
2016-11-22 13:18:49 +07:00
parent 8a486d7fae
commit c5f00c3301
1 changed files with 14 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
InteropExample/src/main/kotlin/main.kt
+14 -17
View File
@@ -1,13 +1,12 @@
import kotlin_native.interop.* import kotlin_.cinterop.*
import llvm.* import llvm.*
fun main(args: Array<String>) { fun main(args: Array<String>) = memScoped {
val module = LLVMModuleCreateWithName("module") val module = LLVMModuleCreateWithName("module")
println("module=" + module.getNativePtr().asLong()) println("module=" + module.rawValue)
val paramTypes = mallocNativeArrayOf(LLVMOpaqueType, LLVMInt32Type(), LLVMInt32Type()) val paramTypes = allocArrayOf(LLVMInt32Type(), LLVMInt32Type())
val retType = LLVMFunctionType(LLVMInt32Type(), paramTypes[0], 2, 0) val retType = LLVMFunctionType(LLVMInt32Type(), paramTypes[0].ptr, 2, 0)
free(paramTypes)
val sum = LLVMAddFunction(module, "sum", retType) val sum = LLVMAddFunction(module, "sum", retType)
val entry = LLVMAppendBasicBlock(sum, "entry") val entry = LLVMAppendBasicBlock(sum, "entry")
@@ -15,34 +14,32 @@ fun main(args: Array<String>) {
LLVMPositionBuilderAtEnd(builder, entry) LLVMPositionBuilderAtEnd(builder, entry)
val tmp = LLVMBuildAdd(builder, LLVMGetParam(sum, 0), LLVMGetParam(sum, 1), "tmp") val tmp = LLVMBuildAdd(builder, LLVMGetParam(sum, 0), LLVMGetParam(sum, 1), "tmp")
LLVMBuildRet(builder, tmp) LLVMBuildRet(builder, tmp)
val engineRef = malloc(Ref to LLVMOpaqueExecutionEngine) val engineRef = alloc<LLVMExecutionEngineRefVar>()
val errorRef = malloc(Ref to Int8Box) val errorRef = allocPointerTo<CInt8Var>()
LLVMInitializeNativeTarget() LLVMInitializeNativeTarget()
errorRef.value = null errorRef.value = null
if (LLVMCreateExecutionEngineForModule(engineRef, module, errorRef) != 0) { if (LLVMCreateExecutionEngineForModule(engineRef.ptr, module, errorRef.ptr) != 0) {
println("failed to create execution engine") println("failed to create execution engine")
return return
} }
val error = errorRef.value val error = errorRef.value
if (error != null) { if (error != null) {
println(CString.fromArray(NativeArray.byRefToFirstElem(error, Int8Box)).toString()) println(error.asCString().toString())
return return
} }
println(LLVMGetTypeKind(LLVMInt32Type())) println(LLVMGetTypeKind(LLVMInt32Type()))
val x = 5L val x = 5L
val y = 6L val y = 6L
val args = malloc(array[2](Ref to LLVMOpaqueGenericValue)) val args = allocArrayOf(
args[0].value = LLVMCreateGenericValueOfInt(LLVMInt32Type(), x, 0) LLVMCreateGenericValueOfInt(LLVMInt32Type(), x, 0),
args[1].value = LLVMCreateGenericValueOfInt(LLVMInt32Type(), y, 0) LLVMCreateGenericValueOfInt(LLVMInt32Type(), y, 0))
val runRes = LLVMRunFunction(engineRef.value, sum, 2, args[0])
val runRes = LLVMRunFunction(engineRef.value, sum, 2, args[0].ptr)
println(LLVMGenericValueToInt(runRes, 0)) println(LLVMGenericValueToInt(runRes, 0))
if (LLVMWriteBitcodeToFile(module, "/tmp/sum.bc") != 0) { if (LLVMWriteBitcodeToFile(module, "/tmp/sum.bc") != 0) {
println("error writing bitcode to file, skipping") println("error writing bitcode to file, skipping")
} }
LLVMDisposeBuilder(builder) LLVMDisposeBuilder(builder)
LLVMDisposeExecutionEngine(engineRef.value) LLVMDisposeExecutionEngine(engineRef.value)
} }