/* 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;
}
