SWIGEXPORT jlong JNICALL Java_org_jllvm_bindings_ExecutionEngineJNI_LLVMGenericValueToPointer(JNIEnv *jenv, jclass jcls, jlong jarg1) { jlong jresult = 0 ; LLVMGenericValueRef arg1 = (LLVMGenericValueRef) 0 ; void *result = 0 ; (void)jenv; (void)jcls; arg1 = *(LLVMGenericValueRef *)&jarg1; result = (void *)LLVMGenericValueToPointer(arg1); *(void **)&jresult = result; return jresult; }
int GenericValueToTclObj( ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) { if (objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "GenVal"); return TCL_ERROR; } LLVMGenericValueRef arg = nullptr; if (GetLLVMGenericValueRefFromObj(interp, objv[1], arg) != TCL_OK) return TCL_ERROR; Tcl_Obj *rt = (Tcl_Obj *) LLVMGenericValueToPointer(arg); Tcl_SetObjResult(interp, rt); return TCL_OK; }
/* t -> 'a */ CAMLprim value llvm_genericvalue_as_pointer(value GenVal) { return Val_op(LLVMGenericValueToPointer(Genericvalue_val(GenVal))); }