SWIGEXPORT jlong JNICALL Java_org_jllvm_bindings_ExecutionEngineJNI_LLVMCreateGenericValueOfPointer(JNIEnv *jenv, jclass jcls, jlong jarg1) {
jlong jresult = 0 ;
void *arg1 = (void *) 0 ;
LLVMGenericValueRef result;
(void)jenv;
(void)jcls;
arg1 = *(void **)&jarg1;
result = (LLVMGenericValueRef)LLVMCreateGenericValueOfPointer(arg1);
*(LLVMGenericValueRef *)&jresult = result;
return jresult;
}
int
CreateGenericValueOfTclInterp(
ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[])
{
if (objc != 1) {
Tcl_WrongNumArgs(interp, 1, objv, "");
return TCL_ERROR;
}
LLVMGenericValueRef rt = LLVMCreateGenericValueOfPointer(interp);
Tcl_SetObjResult(interp, SetLLVMGenericValueRefAsObj(interp, rt));
return TCL_OK;
}
int
CreateGenericValueOfTclObj(
ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[])
{
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "val");
return TCL_ERROR;
}
Tcl_IncrRefCount(objv[1]);
LLVMGenericValueRef rt = LLVMCreateGenericValueOfPointer(objv[1]);
Tcl_SetObjResult(interp, SetLLVMGenericValueRefAsObj(interp, rt));
return TCL_OK;
}
/* 'a -> t */
CAMLprim value llvm_genericvalue_of_pointer(value V) {
CAMLparam1(V);
CAMLreturn(alloc_generic_value(LLVMCreateGenericValueOfPointer(Op_val(V))));
}
