SCM llvm_get_function_address(SCM scm_llvm, SCM scm_name) { struct llvm_module_t *self = get_llvm(scm_llvm); char *name = scm_to_locale_string(scm_name); void *address = (void *)LLVMGetFunctionAddress(self->engine, name); free(name); return scm_from_pointer(address, NULL); }
CAMLprim value llvm_ee_get_function_address(value Name, LLVMExecutionEngineRef EE) { return caml_copy_int64((int64_t) LLVMGetFunctionAddress(EE, String_val(Name))); }