ruby-x/rubyx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make interpreter tests less brittle

Browse Source 
by factoring __init code away
just counting main
This commit is contained in:
Torsten Ruger 2018-04-04 20:05:09 +03:00
parent b9f85f9d2e
commit c51fc67ba5
14 changed files with 216 additions and 246 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/mom/instruction/dynamic_call.rb
View File

@ -25,6 +25,7 @@ module Mom
# Instead we need a DynamicJump instruction that explicitly takes a register as # Instead we need a DynamicJump instruction that explicitly takes a register as
# a target (not a label) # a target (not a label)
def to_risc(compiler) def to_risc(compiler)
compiler.add_constant( @cache_entry )
reg = compiler.use_reg( :Object ) reg = compiler.use_reg( :Object )
call = Risc.load_constant( self , @cache_entry , reg ) call = Risc.load_constant( self , @cache_entry , reg )
method_index = Risc.resolve_to_index(:cache_entry , :cached_method) method_index = Risc.resolve_to_index(:cache_entry , :cached_method)

23
test/risc/interpreter/test_assign_local.rb
View File

@ -10,16 +10,11 @@ module Risc
end end
def test_chain def test_chain
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, RegToSlot, SlotToReg,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, FunctionReturn, Transfer, Syscall,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, NilClass]
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
RegToSlot, SlotToReg, SlotToReg, FunctionReturn, Transfer,
Syscall, NilClass]
assert_equal 15 , get_return.value assert_equal 15 , get_return.value
end end
@ -29,21 +24,21 @@ module Risc
assert :main , call_ins.method.name assert :main , call_ins.method.name
end end
def test_load_15 def test_load_15
load_ins = ticks 28 load_ins = main_ticks(2)
assert_equal LoadConstant , load_ins.class assert_equal LoadConstant , load_ins.class
assert_equal Parfait::Integer , @interpreter.get_register(load_ins.register).class assert_equal Parfait::Integer , @interpreter.get_register(load_ins.register).class
assert_equal 15 , @interpreter.get_register(load_ins.register).value assert_equal 15 , @interpreter.get_register(load_ins.register).value
end end
def test_transfer def test_transfer
transfer = ticks(40) transfer = main_ticks(14)
assert_equal Transfer , transfer.class assert_equal Transfer , transfer.class
end end
def test_sys def test_sys
sys = ticks(41) sys = main_ticks(15)
assert_equal Syscall , sys.class assert_equal Syscall , sys.class
end end
def test_return def test_return
ret = ticks(39) ret = main_ticks(13)
assert_equal FunctionReturn , ret.class assert_equal FunctionReturn , ret.class
link = @interpreter.get_register( ret.register ) link = @interpreter.get_register( ret.register )
assert_equal Label , link.class assert_equal Label , link.class

48
test/risc/interpreter/test_div10.rb
View File

@ -10,52 +10,42 @@ module Risc
end end
def test_chain def test_chain
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, SlotToReg, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, RegToSlot, SlotToReg, LoadConstant,
RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg, FunctionCall, Label, SlotToReg, SlotToReg, SlotToReg,
LoadConstant, FunctionCall, Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg, LoadData, OperatorInstruction,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, LoadData, LoadData, OperatorInstruction, OperatorInstruction, LoadData, Transfer,
OperatorInstruction, LoadData, OperatorInstruction, OperatorInstruction, LoadData,
Transfer, OperatorInstruction, OperatorInstruction, LoadData, Transfer,
OperatorInstruction, OperatorInstruction, LoadData, Transfer, OperatorInstruction, OperatorInstruction, OperatorInstruction, LoadData, Transfer, OperatorInstruction,
OperatorInstruction, LoadData, OperatorInstruction, LoadData, Transfer, OperatorInstruction, LoadData, Transfer, OperatorInstruction, OperatorInstruction,
OperatorInstruction, OperatorInstruction, Transfer, LoadData, OperatorInstruction, LoadData, OperatorInstruction, LoadData, Transfer, OperatorInstruction,
LoadData, OperatorInstruction, OperatorInstruction, LoadConstant, SlotToReg, OperatorInstruction, Transfer, LoadData, OperatorInstruction, LoadData,
SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg, OperatorInstruction, OperatorInstruction, LoadConstant, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn, RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
assert_equal Parfait::Integer , get_return.class assert_equal Parfait::Integer , get_return.class
assert_equal 2 , get_return.value assert_equal 2 , get_return.value
end end
def test_call_main
call_ins = ticks(26)
assert_equal FunctionCall , call_ins.class
assert :main , call_ins.method.name
end
def test_load_25 def test_load_25
load_ins = ticks 44 load_ins = main_ticks 18
assert_equal LoadConstant , load_ins.class assert_equal LoadConstant , load_ins.class
assert_equal 25 , @interpreter.get_register(load_ins.register).value assert_equal 25 , @interpreter.get_register(load_ins.register).value
end end
def test_return def test_return
ret = ticks(100) ret = main_ticks(74)
assert_equal FunctionReturn , ret.class assert_equal FunctionReturn , ret.class
link = @interpreter.get_register( ret.register ) link = @interpreter.get_register( ret.register )
assert_equal Label , link.class assert_equal Label , link.class
end end
def test_sys def test_sys
sys = ticks(114) sys = main_ticks(88)
assert_equal Syscall , sys.class assert_equal Syscall , sys.class
assert_equal :exit , sys.name assert_equal :exit , sys.name
end end

33
test/risc/interpreter/test_dynamic_call.rb
View File

@ -10,24 +10,19 @@ module Risc
end end
def test_chain def test_chain
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, IsZero,
SlotToReg, SlotToReg, LoadConstant, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
FunctionCall, Label, LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
LoadConstant, SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
IsZero, SlotToReg, SlotToReg, LoadConstant, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, Label,
LoadConstant, SlotToReg, SlotToReg, RegToSlot, LoadConstant, LoadConstant, SlotToReg, OperatorInstruction, IsZero, Label,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, Transfer, Syscall, NilClass]
LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall,
Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
Label, LoadConstant, SlotToReg, OperatorInstruction, IsZero,
Label, Transfer, Syscall, NilClass]
#assert_equal 1 , get_return #assert_equal 1 , get_return
end end
@ -37,17 +32,17 @@ module Risc
assert_equal :main , call_ins.method.name assert_equal :main , call_ins.method.name
end end
def test_call_resolve def test_call_resolve
call_ins = ticks(70) call_ins = main_ticks(44)
assert_equal FunctionCall , call_ins.class assert_equal FunctionCall , call_ins.class
assert_equal :resolve_method , call_ins.method.name assert_equal :resolve_method , call_ins.method.name
end end
def test_label def test_label
call_ins = ticks(71) call_ins = main_ticks(45)
assert_equal Label , call_ins.class assert_equal Label , call_ins.class
assert_equal "Word_Type.resolve_method" , call_ins.name assert_equal "Word_Type.resolve_method" , call_ins.name
end end
def test_arg_15_to_resolve def test_arg_15_to_resolve
sl = ticks( 74 ) sl = main_ticks( 48 )
assert_equal SlotToReg , sl.class assert_equal SlotToReg , sl.class
assert_equal :r2 , sl.array.symbol #load from message assert_equal :r2 , sl.array.symbol #load from message
assert_equal 2 , sl.index assert_equal 2 , sl.index
@ -57,7 +52,7 @@ module Risc
end end
def est_dyn def est_dyn
cal = ticks(102) cal = main_ticks(76)
assert_equal DynamicJump , cal.class assert_equal DynamicJump , cal.class
end end
#should end in exit, but doesn't, becasue resolve never returns #should end in exit, but doesn't, becasue resolve never returns

35
test/risc/interpreter/test_get_byte.rb
View File

@ -9,35 +9,30 @@ module Risc
super super
end end
def test_chain def test_chain
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, SlotToReg, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall,
LoadConstant, SlotToReg, RegToSlot, SlotToReg, LoadConstant, Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
FunctionCall, Label, SlotToReg, SlotToReg, SlotToReg, ByteToReg, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, ByteToReg, LoadConstant, SlotToReg, SlotToReg, RegToSlot, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, Transfer, Syscall, NilClass]
FunctionReturn, Transfer, Syscall, NilClass]
assert_equal Parfait::Integer , get_return.class assert_equal Parfait::Integer , get_return.class
assert_equal "H".ord , get_return.value assert_equal "H".ord , get_return.value
end end
def test_exit def test_exit
done = ticks(88) done = main_ticks(62)
assert_equal Syscall , done.class assert_equal Syscall , done.class
end end
def test_byte_to_reg def test_byte_to_reg
done = ticks(62) done = main_ticks(36)
assert_equal ByteToReg , done.class assert_equal ByteToReg , done.class
assert_equal "H".ord , @interpreter.get_register(done.register) assert_equal "H".ord , @interpreter.get_register(done.register)
end end

35
test/risc/interpreter/test_minus.rb
View File

@ -10,36 +10,31 @@ module Risc
end end
def test_minus def test_minus
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, SlotToReg, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall,
LoadConstant, SlotToReg, RegToSlot, SlotToReg, LoadConstant, Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
FunctionCall, Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
assert_equal Parfait::Integer , get_return.class assert_equal Parfait::Integer , get_return.class
assert_equal 1 , get_return.value assert_equal 1 , get_return.value
end end
def test_load_5 def test_load_5
lod = ticks( 47 ) lod = main_ticks( 21 )
assert_equal LoadConstant , lod.class assert_equal LoadConstant , lod.class
assert_equal Parfait::Integer , lod.constant.class assert_equal Parfait::Integer , lod.constant.class
assert_equal 5 , lod.constant.value assert_equal 5 , lod.constant.value
end end
def test_op def test_op
op = ticks(63) op = main_ticks(37)
assert_equal OperatorInstruction , op.class assert_equal OperatorInstruction , op.class
assert_equal :r1 , op.left.symbol assert_equal :r1 , op.left.symbol
assert_equal :r2 , op.right.symbol assert_equal :r2 , op.right.symbol
@ -47,7 +42,7 @@ module Risc
assert_equal 1 , @interpreter.get_register(:r1) assert_equal 1 , @interpreter.get_register(:r1)
end end
def test_sys def test_sys
sys = ticks(89) sys = main_ticks(63)
assert_equal Syscall , sys.class assert_equal Syscall , sys.class
assert_equal :exit , sys.name assert_equal :exit , sys.name
end end

35
test/risc/interpreter/test_mod.rb
View File

@ -10,35 +10,30 @@ module Risc
end end
def test_chain def test_chain
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, SlotToReg, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, RegToSlot, SlotToReg, LoadConstant,
RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg, FunctionCall, Label, SlotToReg, SlotToReg, LoadData,
LoadConstant, FunctionCall, Label, SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
LoadData, OperatorInstruction, LoadConstant, SlotToReg, SlotToReg, RegToSlot, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, Transfer, Syscall, NilClass]
FunctionReturn, Transfer, Syscall, NilClass]
assert_equal Parfait::Integer , get_return.class assert_equal Parfait::Integer , get_return.class
assert_equal 2 , get_return.value assert_equal 2 , get_return.value
end end
def test_load def test_load
lod = ticks(44) lod = main_ticks(18)
assert_equal LoadConstant , lod.class assert_equal LoadConstant , lod.class
assert_equal 9 , lod.constant.value assert_equal 9 , lod.constant.value
end end
def test_fix # reduce self to fix def test_fix # reduce self to fix
sl = ticks(55) sl = main_ticks(29)
assert_equal SlotToReg , sl.class assert_equal SlotToReg , sl.class
assert_equal :r1 , sl.array.symbol assert_equal :r1 , sl.array.symbol
assert_equal 3 , sl.index assert_equal 3 , sl.index
@ -47,7 +42,7 @@ module Risc
end end
def test_sys def test_sys
sys = ticks(83) sys = main_ticks(57)
assert_equal Syscall , sys.class assert_equal Syscall , sys.class
assert_equal :exit , sys.name assert_equal :exit , sys.name
end end

33
test/risc/interpreter/test_mult.rb
View File

@ -10,30 +10,25 @@ module Risc
end end
def test_mult def test_mult
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, SlotToReg, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall,
LoadConstant, SlotToReg, RegToSlot, SlotToReg, LoadConstant, Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
FunctionCall, Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
assert_equal Parfait::Integer , get_return.class assert_equal Parfait::Integer , get_return.class
assert_equal 0 , get_return.value assert_equal 0 , get_return.value
end end
def test_op def test_op
op = ticks(63) op = main_ticks(37)
assert_equal OperatorInstruction , op.class assert_equal OperatorInstruction , op.class
assert_equal :r1 , op.left.symbol assert_equal :r1 , op.left.symbol
assert_equal :r2 , op.right.symbol assert_equal :r2 , op.right.symbol
@ -41,7 +36,7 @@ module Risc
assert_equal 0 , @interpreter.get_register(:r1) assert_equal 0 , @interpreter.get_register(:r1)
end end
def test_overflow def test_overflow
ticks( 63 ) main_ticks( 37 )
assert @interpreter.flags[:overflow] assert @interpreter.flags[:overflow]
end end
def test_zero def test_zero

51
test/risc/interpreter/test_plus.rb
View File

@ -10,64 +10,59 @@ module Risc
end end
def test_add def test_add
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, SlotToReg, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall,
LoadConstant, SlotToReg, RegToSlot, SlotToReg, LoadConstant, Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
FunctionCall, Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
assert_equal Parfait::Integer , get_return.class assert_equal Parfait::Integer , get_return.class
assert_equal 10 , get_return.value assert_equal 10 , get_return.value
end end
def test_load_5 def test_load_5
lod = ticks( 47 ) lod = main_ticks( 21 )
assert_equal LoadConstant , lod.class assert_equal LoadConstant , lod.class
assert_equal Parfait::Integer , lod.constant.class assert_equal Parfait::Integer , lod.constant.class
assert_equal 5 , lod.constant.value assert_equal 5 , lod.constant.value
end end
def test_slot_receiver #load receiver from message def test_slot_receiver #load receiver from message
sl = ticks( 58 ) sl = main_ticks( 32 )
assert_equal SlotToReg , sl.class assert_equal SlotToReg , sl.class
assert_equal :r0 , sl.array.symbol #load from message assert_equal :r0 , sl.array.symbol #load from message
assert_equal 3 , sl.index assert_equal 3 , sl.index
assert_equal :r1 , sl.register.symbol assert_equal :r1 , sl.register.symbol
end end
def test_slot_args #load args from message def test_slot_args #load args from message
sl = ticks( 59 ) sl = main_ticks( 33 )
assert_equal SlotToReg , sl.class assert_equal SlotToReg , sl.class
assert_equal :r0 , sl.array.symbol #load from message assert_equal :r0 , sl.array.symbol #load from message
assert_equal 9 , sl.index assert_equal 9 , sl.index
assert_equal :r2 , sl.register.symbol assert_equal :r2 , sl.register.symbol
end end
def test_slot_arg #load arg 1, destructively from args def test_slot_arg #load arg 1, destructively from args
sl = ticks( 60 ) sl = main_ticks( 34 )
assert_equal SlotToReg , sl.class assert_equal SlotToReg , sl.class
assert_equal :r2 , sl.array.symbol #load from message assert_equal :r2 , sl.array.symbol #load from message
assert_equal 2 , sl.index assert_equal 2 , sl.index
assert_equal :r2 , sl.register.symbol assert_equal :r2 , sl.register.symbol
end end
def test_slot_int1 #load int from object def test_slot_int1 #load int from object
sl = ticks( 61 ) sl = main_ticks( 35 )
assert_equal SlotToReg , sl.class assert_equal SlotToReg , sl.class
assert_equal :r1 , sl.array.symbol #load from message assert_equal :r1 , sl.array.symbol #load from message
assert_equal 3 , sl.index assert_equal 3 , sl.index
assert_equal :r1 , sl.register.symbol assert_equal :r1 , sl.register.symbol
end end
def test_op def test_op
op = ticks(63) op = main_ticks(37)
assert_equal OperatorInstruction , op.class assert_equal OperatorInstruction , op.class
assert_equal :r1 , op.left.symbol assert_equal :r1 , op.left.symbol
assert_equal :r2 , op.right.symbol assert_equal :r2 , op.right.symbol
@ -75,13 +70,13 @@ module Risc
assert_equal 10 , @interpreter.get_register(:r1) assert_equal 10 , @interpreter.get_register(:r1)
end end
def test_load_int_space def test_load_int_space
cons = ticks(64) cons = main_ticks(38)
assert_equal LoadConstant , cons.class assert_equal LoadConstant , cons.class
assert_equal Parfait::Space , cons.constant.class assert_equal Parfait::Space , cons.constant.class
assert_equal :r3 , cons.register.symbol assert_equal :r3 , cons.register.symbol
end end
def test_load_int_next_space def test_load_int_next_space
sl = ticks(65) sl = main_ticks(39)
assert_equal SlotToReg , sl.class assert_equal SlotToReg , sl.class
assert_equal :r3 , sl.array.symbol #load from space assert_equal :r3 , sl.array.symbol #load from space
assert_equal 5 , sl.index assert_equal 5 , sl.index
@ -89,7 +84,7 @@ module Risc
assert_equal Parfait::Integer , @interpreter.get_register(:r2).class assert_equal Parfait::Integer , @interpreter.get_register(:r2).class
end end
def test_load_int_next_int def test_load_int_next_int
sl = ticks(66) sl = main_ticks(40)
assert_equal SlotToReg , sl.class assert_equal SlotToReg , sl.class
assert_equal :r2 , sl.array.symbol #load from next_int assert_equal :r2 , sl.array.symbol #load from next_int
assert_equal 2 , sl.index assert_equal 2 , sl.index
@ -97,14 +92,14 @@ module Risc
assert_equal Parfait::Integer , @interpreter.get_register(:r4).class assert_equal Parfait::Integer , @interpreter.get_register(:r4).class
end end
def test_load_int_next_int2 def test_load_int_next_int2
sl = ticks(67) sl = main_ticks(41)
assert_equal RegToSlot , sl.class assert_equal RegToSlot , sl.class
assert_equal :r3 , sl.array.symbol #store to space assert_equal :r3 , sl.array.symbol #store to space
assert_equal 5 , sl.index assert_equal 5 , sl.index
assert_equal :r4 , sl.register.symbol assert_equal :r4 , sl.register.symbol
end end
def test_sys def test_sys
sys = ticks(89) sys = main_ticks(63)
assert_equal Syscall , sys.class assert_equal Syscall , sys.class
assert_equal :exit , sys.name assert_equal :exit , sys.name
end end

40
test/risc/interpreter/test_puts.rb
View File

@ -10,37 +10,31 @@ module Risc
end end
def test_chain def test_chain
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, SlotToReg, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, RegToSlot, SlotToReg, LoadConstant,
RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg, FunctionCall, Label, SlotToReg, SlotToReg, Transfer,
LoadConstant, FunctionCall, Label, SlotToReg, SlotToReg, Syscall, Transfer, Transfer, LoadConstant, SlotToReg,
Transfer, Syscall, Transfer, Transfer, LoadConstant, SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg,
SlotToReg, SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
SlotToReg, SlotToReg, FunctionReturn, Transfer, Syscall,
NilClass]
assert_equal "Hello again" , @interpreter.stdout assert_equal "Hello again" , @interpreter.stdout
assert_equal Parfait::Integer , get_return.class assert_equal Parfait::Integer , get_return.class
assert_equal 11 , get_return.value #bytes written assert_equal 11 , get_return.value #bytes written
end end
def test_call def test_call
cal = ticks(52) cal = main_ticks(26)
assert_equal FunctionCall , cal.class assert_equal FunctionCall , cal.class
assert_equal :putstring , cal.method.name assert_equal :putstring , cal.method.name
end end
def test_putstring_sys def test_putstring_sys
done = ticks(57) done = main_ticks(31)
assert_equal Syscall , done.class assert_equal Syscall , done.class
assert_equal "Hello again" , @interpreter.stdout assert_equal "Hello again" , @interpreter.stdout
assert_equal 11 , @interpreter.get_register(:r0) assert_equal 11 , @interpreter.get_register(:r0)
@ -48,28 +42,28 @@ module Risc
assert_equal "Hello again" , @interpreter.get_register(:r1).to_string assert_equal "Hello again" , @interpreter.get_register(:r1).to_string
end end
def test_move_sys_return def test_move_sys_return
sl = ticks(58) sl = main_ticks(32)
assert_equal Transfer , sl.class assert_equal Transfer , sl.class
assert_equal :r0 , sl.from.symbol assert_equal :r0 , sl.from.symbol
assert_equal :r1 , sl.to.symbol assert_equal :r1 , sl.to.symbol
assert_equal 11 , @interpreter.get_register(:r1) assert_equal 11 , @interpreter.get_register(:r1)
end end
def test_restore_message def test_restore_message
sl = ticks(59) sl = main_ticks(33)
assert_equal Transfer , sl.class assert_equal Transfer , sl.class
assert_equal :r8 , sl.from.symbol assert_equal :r8 , sl.from.symbol
assert_equal :r0 , sl.to.symbol assert_equal :r0 , sl.to.symbol
assert_equal Parfait::Message , @interpreter.get_register(:r0).class assert_equal Parfait::Message , @interpreter.get_register(:r0).class
end end
def test_save_sys_return def test_save_sys_return
sl = ticks(64) sl = main_ticks(38)
assert_equal RegToSlot , sl.class assert_equal RegToSlot , sl.class
assert_equal :r1 , sl.register.symbol #return assert_equal :r1 , sl.register.symbol #return
assert_equal :r2 , sl.array.symbol #parfait integer assert_equal :r2 , sl.array.symbol #parfait integer
assert_equal 3 , sl.index assert_equal 3 , sl.index
end end
def test_return def test_return
done = ticks(71) done = main_ticks(45)
assert_equal FunctionReturn , done.class assert_equal FunctionReturn , done.class
end end

35
test/risc/interpreter/test_return.rb
View File

@ -10,15 +10,10 @@ module Risc
end end
def test_chain def test_chain
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, RegToSlot, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn, Transfer,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, Syscall, NilClass]
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, RegToSlot, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
Transfer, Syscall, NilClass]
assert_equal 5 , get_return.value assert_equal 5 , get_return.value
end end
@ -28,28 +23,28 @@ module Risc
assert :main , call_ins.method.name assert :main , call_ins.method.name
end end
def test_label_main def test_label_main
call_ins = ticks(27) call_ins = main_ticks(1)
assert_equal Label , call_ins.class assert_equal Label , call_ins.class
assert :main , call_ins.name assert :main , call_ins.name
end end
def test_load_5 def test_load_5
load_ins = ticks 28 load_ins = main_ticks(2)
assert_equal LoadConstant , load_ins.class assert_equal LoadConstant , load_ins.class
assert_equal 5 , @interpreter.get_register(load_ins.register).value assert_equal 5 , @interpreter.get_register(load_ins.register).value
end end
def test_transfer
transfer = ticks(36)
assert_equal Transfer , transfer.class
end
def test_sys
sys = ticks(37)
assert_equal Syscall , sys.class
end
def test_return def test_return
ret = ticks(35) ret = main_ticks(9)
assert_equal FunctionReturn , ret.class assert_equal FunctionReturn , ret.class
link = @interpreter.get_register( ret.register ) link = @interpreter.get_register( ret.register )
assert_equal Label , link.class assert_equal Label , link.class
end end
def test_transfer
transfer = main_ticks(10)
assert_equal Transfer , transfer.class
end
def test_sys
sys = main_ticks(11)
assert_equal Syscall , sys.class
end
end end
end end

32
test/risc/interpreter/test_set_byte.rb
View File

@ -10,36 +10,30 @@ module Risc
end end
def test_chain def test_chain
#show_ticks # get output of what is #show_main_ticks # get output of what is
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, SlotToReg, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
RegToSlot, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
LoadConstant, SlotToReg, SlotToReg, RegToSlot, LoadConstant, LoadConstant, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall, SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
SlotToReg, SlotToReg, SlotToReg, RegToByte, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, RegToByte, RegToSlot, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
SlotToReg, SlotToReg, FunctionReturn, Transfer, Syscall,
NilClass]
assert_equal Parfait::Word , get_return.class assert_equal Parfait::Word , get_return.class
assert_equal "Kello" , get_return.to_string assert_equal "Kello" , get_return.to_string
end end
def test_reg_to_byte def test_reg_to_byte
done = ticks(69) done = main_ticks(43)
assert_equal RegToByte , done.class assert_equal RegToByte , done.class
assert_equal "K".ord , @interpreter.get_register(done.register) assert_equal "K".ord , @interpreter.get_register(done.register)
end end
def test_exit def test_exit
done = ticks(90) done = main_ticks(64)
assert_equal Syscall , done.class assert_equal Syscall , done.class
end end

19
test/risc/interpreter/test_simple_if10.rb
View File

@ -1,7 +1,7 @@
require_relative "helper" require_relative "helper"
module Risc module Risc
class InterreterSimpleIf10 < MiniTest::Test class InterpreterSimpleIf10 < MiniTest::Test
include Ticker include Ticker
def setup def setup
@ -10,21 +10,16 @@ module Risc
end end
def test_if def test_if
#show_ticks # get output of what is #show_main_ticks # get output of what is in main
check_chain [Branch, Label, LoadConstant, SlotToReg, LoadConstant, check_main_chain [Label, LoadConstant, LoadConstant, OperatorInstruction, IsNotZero,
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg, Label, LoadConstant, RegToSlot, SlotToReg, SlotToReg,
SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant, RegToSlot, SlotToReg, SlotToReg, FunctionReturn, Transfer,
SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot, Syscall, NilClass]
SlotToReg, LoadConstant, RegToSlot, LoadConstant, RegToSlot,
FunctionCall, Label, LoadConstant, LoadConstant, OperatorInstruction,
IsNotZero, Label, LoadConstant, RegToSlot, SlotToReg,
SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
Transfer, Syscall, NilClass]
assert_equal Parfait::Word , get_return.class assert_equal Parfait::Word , get_return.class
assert_equal "else" , get_return.to_string assert_equal "else" , get_return.to_string
end end
def test_exit def test_exit
done = ticks(42) done = main_ticks(16)
assert_equal Syscall , done.class assert_equal Syscall , done.class
end end
end end

42
test/support/risc.rb
View File

@ -2,18 +2,37 @@ module Risc
# relies on @interpreter instance to be set up during setup # relies on @interpreter instance to be set up during setup
module InterpreterHelpers module InterpreterHelpers
def check_chain should # check the given array of instructions is what the interpreter actually does
# possible second argument ignores the given amount, usually up until main
def check_chain( should , start_at = 0 )
ticks( start_at ) if start_at > 0
should.each_with_index do |name , index| should.each_with_index do |name , index|
got = ticks(1) got = ticks(1)
assert_equal got.class ,name , "Wrong class for #{index+1}, expect #{name} , got #{got}" assert_equal got.class ,name , "Wrong class for #{index + 1 - start_at}, expect #{name} , got #{got}"
end end
end end
# check the main only, ignoring the __init instructions
def check_main_chain( should )
check_chain( should , main_at)
end
# how many instruction up until the main starts, ie
# ticks(main_at) will be the label for main
def main_at
26
end
def get_return def get_return
assert_equal Parfait::Message , @interpreter.get_register(:r0).class assert_equal Parfait::Message , @interpreter.get_register(:r0).class
@interpreter.get_register(:r0).return_value @interpreter.get_register(:r0).return_value
end end
# do as many as given ticks in the main, ie main_at more
def main_ticks(num)
ticks( main_at + num)
end
# do a certain number of steps in the interpreter and return the last executed instruction
def ticks( num ) def ticks( num )
last = nil last = nil
num.times do num.times do
@ -23,7 +42,8 @@ module Risc
return last return last
end end
def show_ticks # collect the classes of all executed istructions
def all_classes
classes = [] classes = []
tick = 1 tick = 1
begin begin
@ -38,6 +58,22 @@ module Risc
puts e puts e
puts e.backtrace puts e.backtrace
end end
classes
end
# for chaning the tests quickly output all instructions that are executed
def show_ticks
classes = all_classes
output_classes(classes)
end
# show all instructions of the main only
def show_main_ticks
classes = all_classes
classes = classes.slice(main_at , 1000)
output_classes(classes)
end
def output_classes(classes)
str = classes.to_s.gsub("Risc::","") str = classes.to_s.gsub("Risc::","")
all = str.split(",").each_slice(5).collect {|line| " " + line.join(",")} all = str.split(",").each_slice(5).collect {|line| " " + line.join(",")}
puts all.join(",\n") puts all.join(",\n")