Lines Matching refs:GenVal
67 static void llvm_finalize_generic_value(value GenVal) {
68 LLVMDisposeGenericValue(Genericvalue_val(GenVal));
129 CAMLprim value llvm_genericvalue_as_float(LLVMTypeRef Ty, value GenVal) {
130 CAMLparam1(GenVal);
132 LLVMGenericValueToFloat(Ty, Genericvalue_val(GenVal))));
136 CAMLprim value llvm_genericvalue_as_pointer(value GenVal) {
137 return Val_op(LLVMGenericValueToPointer(Genericvalue_val(GenVal)));
141 CAMLprim value llvm_genericvalue_as_int(value GenVal) {
142 assert(LLVMGenericValueIntWidth(Genericvalue_val(GenVal)) <= 8 * sizeof(value)
144 return Val_int(LLVMGenericValueToInt(Genericvalue_val(GenVal), 1));
148 CAMLprim value llvm_genericvalue_as_int32(value GenVal) {
149 CAMLparam1(GenVal);
150 assert(LLVMGenericValueIntWidth(Genericvalue_val(GenVal)) <= 32
152 CAMLreturn(copy_int32(LLVMGenericValueToInt(Genericvalue_val(GenVal), 1)));
156 CAMLprim value llvm_genericvalue_as_int64(value GenVal) {
157 CAMLparam1(GenVal);
158 assert(LLVMGenericValueIntWidth(Genericvalue_val(GenVal)) <= 64
160 CAMLreturn(copy_int64(LLVMGenericValueToInt(Genericvalue_val(GenVal), 1)));
164 CAMLprim value llvm_genericvalue_as_nativeint(value GenVal) {
165 CAMLparam1(GenVal);
166 assert(LLVMGenericValueIntWidth(Genericvalue_val(GenVal)) <= 8 * sizeof(value)
168 CAMLreturn(copy_nativeint(LLVMGenericValueToInt(Genericvalue_val(GenVal),1)));
