@@ -9,6 +9,8 @@ extern "C" { #define LAST_INSTRUCTION_NUM 100 VALUE gInstructionClasses[LAST_INSTRUCTION_NUM]; +#define DATA_GET_INSTRUCTION Instruction *i; Data_Get_Struct(self, Instruction, i); + VALUE llvm_instruction_wrap(Instruction* i) { return Data_Wrap_Struct(gInstructionClasses[i->getOpcode()], NULL, NULL, i); @@ -29,6 +31,42 @@ llvm_instruction_get_opcode_name(VALUE self) { return rb_str_new2(name.c_str()); } +VALUE +llvm_instruction_may_read_from_memory(VALUE self) { + DATA_GET_INSTRUCTION + return i->mayReadFromMemory() ? Qtrue : Qfalse; +} + +VALUE +llvm_instruction_may_write_to_memory(VALUE self) { + DATA_GET_INSTRUCTION + return i->mayWriteToMemory() ? Qtrue : Qfalse; +} + +VALUE +llvm_instruction_is_identical_to(VALUE self, VALUE ri2) { + DATA_GET_INSTRUCTION + CHECK_TYPE(ri2, cLLVMInstruction); + Instruction *i2 = LLVM_INSTRUCTION(ri2); + return i->isIdenticalTo(i2) ? Qtrue : Qfalse; +} + +VALUE +llvm_instruction_is_same_operation_as(VALUE self, VALUE ri2) { + DATA_GET_INSTRUCTION + CHECK_TYPE(ri2, cLLVMInstruction); + Instruction *i2 = LLVM_INSTRUCTION(ri2); + return i->isSameOperationAs(i2) ? Qtrue : Qfalse; +} + +VALUE +llvm_instruction_is_used_outside_of_block(VALUE self, VALUE rbb) { + DATA_GET_INSTRUCTION + CHECK_TYPE(rbb, cLLVMBasicBlock); + BasicBlock *bb = LLVM_BASIC_BLOCK(rbb); + return i->isUsedOutsideOfBlock(bb) ? Qtrue: Qfalse; +} + #define DATA_GET_TERMINATOR_INST TerminatorInst *ti; Data_Get_Struct(self, TerminatorInst, ti); VALUE ext/llvm_instruction.cpp @@ -63,6 +63,11 @@ VALUE llvm_basic_block_get_instruction_list(VALUE); VALUE llvm_instruction_inspect(VALUE); VALUE llvm_instruction_get_opcode_name(VALUE); +VALUE llvm_instruction_may_read_from_memory(VALUE); +VALUE llvm_instruction_may_write_to_memory(VALUE); +VALUE llvm_instruction_is_identical_to(VALUE, VALUE); +VALUE llvm_instruction_is_same_operation_as(VALUE, VALUE); +VALUE llvm_instruction_is_used_outside_of_block(VALUE, VALUE); VALUE llvm_terminator_inst_num_successors(VALUE); VALUE llvm_terminator_inst_get_successor(VALUE, VALUE); @@ -206,7 +211,12 @@ void Init_llvmruby() { rb_define_method(cLLVMInstruction, "inspect", llvm_instruction_inspect, 0); rb_define_method(cLLVMInstruction, "get_opcode_name", llvm_instruction_get_opcode_name, 0); - + rb_define_method(cLLVMInstruction, "may_read_from_memory?", llvm_instruction_may_read_from_memory, 0); + rb_define_method(cLLVMInstruction, "may_write_to_memory?", llvm_instruction_may_write_to_memory, 0); + rb_define_method(cLLVMInstruction, "identical_to?", llvm_instruction_is_identical_to, 1); + rb_define_method(cLLVMInstruction, "same_operation_as?", llvm_instruction_is_same_operation_as, 1); + rb_define_method(cLLVMInstruction, "used_outside_of_block?", llvm_instruction_is_used_outside_of_block, 1); + rb_define_method(cLLVMTerminatorInst, "num_successors", llvm_terminator_inst_num_successors, 0); rb_define_method(cLLVMTerminatorInst, "get_successor", llvm_terminator_inst_get_successor, 1); rb_define_method(cLLVMTerminatorInst, "set_successor", llvm_terminator_inst_set_successor, 2); ext/llvmruby.c @@ -44,6 +44,15 @@ class InstructionTests < Test::Unit::TestCase assert_kind_of(BinaryOperator, ins.first) assert_kind_of(ReturnInst, ins.last) + + f1, f2 = ins[0], ins[1] + assert(!f1.may_read_from_memory?) + assert(!f1.may_write_to_memory?) + assert(!f1.identical_to?(f2)) + assert(f1.identical_to?(f1)) + assert(f1.same_operation_as?(f2)) + assert(f1.same_operation_as?(f1)) + assert(!f1.used_outside_of_block?(b)) end def test_instruction_classes test/test_instructions.rb 6746bcc66b86538abce38da8a60e1448e26cf6fb Tom Bagby tomatobagby@gmail.com http://github.com/tombagby/llvmruby/commit/d30b2a76e2141244a4d0cf4915171b7a75d043dc d30b2a76e2141244a4d0cf4915171b7a75d043dc 2008-10-19T19:06:48-07:00 2008-10-19T19:06:48-07:00 more methods on Instruction 6b61a9299c94ee4af2070a83cfbadaaa5e733ffa Tom Bagby tomatobagby@gmail.com