fix most of mom from calling changes
This commit is contained in:
@ -7,11 +7,11 @@ module Risc
|
||||
def setup
|
||||
super
|
||||
@input = "5.get_internal_word(1)"
|
||||
@expect = [LoadConstant, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
|
||||
RegToSlot, RegToSlot, RegToSlot, LoadConstant, SlotToReg,
|
||||
RegToSlot, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
|
||||
LoadConstant, SlotToReg, RegToSlot, SlotToReg, FunctionCall,
|
||||
Label, SlotToReg, RegToSlot, Branch]
|
||||
@expect = [LoadConstant, LoadConstant, SlotToReg, SlotToReg, RegToSlot, #4
|
||||
RegToSlot, RegToSlot, RegToSlot, LoadConstant, SlotToReg, #9
|
||||
RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant, #14
|
||||
SlotToReg, RegToSlot, SlotToReg, FunctionCall, Label, #19
|
||||
SlotToReg, RegToSlot, Branch] #24
|
||||
end
|
||||
|
||||
def test_send_instructions
|
||||
@ -34,40 +34,36 @@ module Risc
|
||||
produced = produce_body.next(base+1)
|
||||
assert_slot_to_reg( produced ,:r0 ,1 , :r2 )
|
||||
end
|
||||
def test_load_args
|
||||
produced = produce_body.next(base+2)
|
||||
assert_slot_to_reg( produced ,:r2 ,8 , :r2 )
|
||||
end
|
||||
def test_store_arg_at
|
||||
produced = produce_body.next(base+3)
|
||||
assert_reg_to_slot( produced ,:r1 ,:r2 , 1 )
|
||||
produced = produce_body.next(base+2)
|
||||
assert_reg_to_slot( produced ,:r1 ,:r2 , 9 )
|
||||
end
|
||||
def test_load_label
|
||||
produced = produce_body.next(base+4)
|
||||
produced = produce_body.next(base+3)
|
||||
assert_load( produced , Label )
|
||||
end
|
||||
def test_load_some
|
||||
produced = produce_body.next(base+5)
|
||||
produced = produce_body.next(base+4)
|
||||
assert_slot_to_reg( produced ,:r0 ,1 , :r2 )
|
||||
end
|
||||
def test_store_
|
||||
produced = produce_body.next(base+6)
|
||||
produced = produce_body.next(base+5)
|
||||
assert_reg_to_slot( produced ,:r1 ,:r2 , 4 )
|
||||
end
|
||||
|
||||
def test_swap_messages
|
||||
produced = produce_body.next(base+7)
|
||||
produced = produce_body.next(base+6)
|
||||
assert_slot_to_reg( produced ,:r0 ,1 , :r0 )
|
||||
end
|
||||
|
||||
def test_function_call
|
||||
produced = produce_body
|
||||
assert_equal FunctionCall , produced.next(base+8).class
|
||||
assert_equal :get_internal_word , produced.next(base+8).method.name
|
||||
assert_equal FunctionCall , produced.next(base+7).class
|
||||
assert_equal :get_internal_word , produced.next(base+7).method.name
|
||||
end
|
||||
def test_check_continue
|
||||
produced = produce_body
|
||||
assert produced.next(base+9).name.start_with?("continue_")
|
||||
assert produced.next(base+8).name.start_with?("continue_")
|
||||
end
|
||||
end
|
||||
end
|
||||
|
@ -17,40 +17,40 @@ module Risc
|
||||
def test_send_instructions
|
||||
assert_nil msg = check_nil , msg
|
||||
end
|
||||
def test_load_method
|
||||
def pest_load_method
|
||||
method = @produced
|
||||
assert_load( method, Parfait::CallableMethod ,:r1)
|
||||
assert_equal :div4 , method.constant.name
|
||||
end
|
||||
def test_load_space
|
||||
def pest_load_space
|
||||
space = @produced.next(1)
|
||||
assert_load( space , Parfait::Factory , :r2 )
|
||||
end
|
||||
def test_load_first_message #from space (ie r2)
|
||||
def pest_load_first_message #from space (ie r2)
|
||||
sl = @produced.next( 2 )
|
||||
assert_slot_to_reg( sl , :r2 , 2 , :r3 )
|
||||
end
|
||||
def test_get_next_next #reduce onto itself
|
||||
def pest_get_next_next #reduce onto itself
|
||||
sl = @produced.next( 3 )
|
||||
assert_slot_to_reg( sl , :r3 , 1 , :r4 )
|
||||
end
|
||||
def test_store_next_next_in_space
|
||||
def pest_store_next_next_in_space
|
||||
sl = @produced.next( 4 )
|
||||
assert_reg_to_slot( sl , :r4 , :r2 , 2 )
|
||||
end
|
||||
def test_store_message_in_current
|
||||
def pest_store_message_in_current
|
||||
sl = @produced.next( 5 )
|
||||
assert_reg_to_slot( sl , :r3 , :r0 , 1 )
|
||||
end
|
||||
def test_store_caller_in_message
|
||||
def pest_store_caller_in_message
|
||||
sl = @produced.next( 6 )
|
||||
assert_reg_to_slot( sl , :r0 , :r3 , 6 )
|
||||
end
|
||||
def test_store_method_in_message
|
||||
def pest_store_method_in_message
|
||||
sl = @produced.next( 7 )
|
||||
assert_reg_to_slot( sl , :r1 , :r3 , 7 )
|
||||
end
|
||||
def test_label
|
||||
def pest_label
|
||||
sl = @produced.next( 20 )
|
||||
assert_equal Risc::Label , sl.class
|
||||
assert_equal "return_label" , sl.name
|
||||
|
Reference in New Issue
Block a user