test/test_value.rb @@ -101,6 +101,68 @@ llvm_value_get_immediate_constant(VALUE self, VALUE v) { return llvm_value_wrap(ConstantInt::get(type, (long)v)); } +VALUE +llvm_value_is_constant(VALUE self) { + Value *v; + Data_Get_Struct(self, Value, v); + return isa<Constant>(v) ? Qtrue : Qfalse; +} + +VALUE +llvm_value_is_int_constant(VALUE self) { + Value *v; + Data_Get_Struct(self, Value, v); + return isa<ConstantInt>(v) ? Qtrue : Qfalse; +} + +VALUE +llvm_value_is_float_constant(VALUE self) { + Value *v; + Data_Get_Struct(self, Value, v); + return isa<ConstantFP>(v) ? Qtrue : Qfalse; +} + +VALUE +llvm_value_get_int_constant_value(VALUE self) { + Value *v; + Data_Get_Struct(self, Value, v); + if (ConstantInt *C = dyn_cast<ConstantInt>(v)) { + APInt val = C->getValue(); + return LL2NUM(val.getLimitedValue()); + } else { + rb_raise(rb_eTypeError, "Argument not an integer constant"); + } +} + +VALUE +llvm_value_get_float_constant_value(VALUE self) { + Value *v; + Data_Get_Struct(self, Value, v); + if (ConstantFP *C = dyn_cast<ConstantFP>(v)) { + APFloat val = C->getValueAPF(); + return rb_float_new(val.convertToFloat()); + } else { + rb_raise(rb_eTypeError, "Argument not a float constant"); + } +} + + +VALUE +llvm_value_is_null(VALUE self) { + Value *v; + Data_Get_Struct(self, Value, v); + if (Constant *C = dyn_cast<Constant>(v)) + return C->isNullValue() ? Qtrue : Qfalse; + return Qfalse; +} + +VALUE +llvm_value_is_undef(VALUE self) { + Value *v; + Data_Get_Struct(self, Value, v); + return isa<UndefValue>(v) ? Qtrue : Qfalse; +} + VALUE llvm_type_pointer(VALUE self, VALUE rtype) { Type *type; ext/llvm_value.cpp @@ -129,6 +129,14 @@ VALUE llvm_value_num_uses(VALUE); VALUE llvm_value_used_in_basic_block(VALUE, VALUE); VALUE llvm_value_replace_all_uses_with(VALUE, VALUE); +VALUE llvm_value_is_constant(VALUE self); +VALUE llvm_value_is_int_constant(VALUE self); +VALUE llvm_value_is_float_constant(VALUE self); +VALUE llvm_value_get_int_constant_value(VALUE self); +VALUE llvm_value_get_float_constant_value(VALUE self); +VALUE llvm_value_is_null(VALUE self); +VALUE llvm_value_is_undef(VALUE self); + VALUE llvm_user_get_operand_list(VALUE); VALUE llvm_user_get_num_operands(VALUE); VALUE llvm_user_get_operand(VALUE, VALUE); @@ -209,6 +217,14 @@ void Init_llvmruby() { rb_define_method(cLLVMValue, "used_in_basic_block?", llvm_value_used_in_basic_block, 1); rb_define_method(cLLVMValue, "replace_all_uses_with", llvm_value_replace_all_uses_with, 1); + rb_define_method(cLLVMValue, "is_constant", llvm_value_is_constant, 0); + rb_define_method(cLLVMValue, "is_int_constant", llvm_value_is_int_constant, 0); + rb_define_method(cLLVMValue, "is_float_constant", llvm_value_is_float_constant, 0); + rb_define_method(cLLVMValue, "get_int_constant_value", llvm_value_get_int_constant_value, 0); + rb_define_method(cLLVMValue, "get_float_constant_value", llvm_value_get_float_constant_value, 0); + rb_define_method(cLLVMValue, "is_null", llvm_value_is_null, 0); + rb_define_method(cLLVMValue, "is_undef", llvm_value_is_undef, 0); + rb_define_method(cLLVMUser, "get_operand_list", llvm_user_get_operand_list, 0); rb_define_method(cLLVMUser, "get_num_operands", llvm_user_get_num_operands, 0); rb_define_method(cLLVMUser, "get_operand", llvm_user_get_operand, 1); ext/llvmruby.c 277de214623f9378b84bf6316576aa04dbbeb042 Christian Plessl christian@plesslweb.ch http://github.com/tombagby/llvmruby/commit/cc60d93b02632692e1c684a1a84bb312fd47dd39 cc60d93b02632692e1c684a1a84bb312fd47dd39 2008-11-14T06:27:36-08:00 2008-11-14T06:27:36-08:00 Adding support for reading integer and float constants. 41407d694a3695d38c069cf02fa3e75ef4f64c93 Christian Plessl christian@plesslweb.ch