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)))); }