/* llmodule -> ExecutionEngine.t -> llmodule */ CAMLprim value llvm_ee_remove_module(LLVMModuleRef M, LLVMExecutionEngineRef EE) { LLVMModuleRef RemovedModule; char *Error; if (LLVMRemoveModule(EE, M, &RemovedModule, &Error)) llvm_raise(*caml_named_value("Llvm_executionengine.Error"), Error); return Val_unit; }
/* llmodule -> ExecutionEngine.t -> llmodule */ CAMLprim LLVMModuleRef llvm_ee_remove_module(LLVMModuleRef M, LLVMExecutionEngineRef EE) { LLVMModuleRef RemovedModule; char *Error; if (LLVMRemoveModule(EE, M, &RemovedModule, &Error)) llvm_raise(llvm_ee_error_exn, Error); return RemovedModule; }
SCM llvm_module_destroy(SCM scm_self) { struct llvm_module_t *self = get_llvm_no_check(scm_self); if (self->engine) { if (self->module) { char *error = NULL; LLVMRemoveModule(self->engine, self->module, &self->module, &error); if (error) LLVMDisposeMessage(error); }; LLVMDisposeExecutionEngine(self->engine); self->engine = NULL; }; if (self->module) { LLVMDisposeModule(self->module); self->module = NULL; }; return SCM_UNSPECIFIED; }
SWIGEXPORT jint JNICALL Java_org_jllvm_bindings_ExecutionEngineJNI_LLVMRemoveModule(JNIEnv *jenv, jclass jcls, jlong jarg1, jlong jarg2, jlong jarg3, jlong jarg4) { jint jresult = 0 ; LLVMExecutionEngineRef arg1 = (LLVMExecutionEngineRef) 0 ; LLVMModuleRef arg2 = (LLVMModuleRef) 0 ; LLVMModuleRef *arg3 = (LLVMModuleRef *) 0 ; char **arg4 = (char **) 0 ; LLVMBool result; (void)jenv; (void)jcls; arg1 = *(LLVMExecutionEngineRef *)&jarg1; arg2 = *(LLVMModuleRef *)&jarg2; arg3 = *(LLVMModuleRef **)&jarg3; arg4 = *(char ***)&jarg4; result = (LLVMBool)LLVMRemoveModule(arg1,arg2,arg3,arg4); jresult = (jint)result; return jresult; }