change return sequence to return messages to space

as it was before blocks
(thought blocks would make reuse of messages impossible, but was wrong, this only appilies to lambdas)
(too) many tests affected

lib/mom/instruction/return_sequence.rb

@@ -23,11 +23,13 @@ module Mom
       compiler.reset_regs
       builder = compiler.code_builder(self)
       builder.build do
-        #space << Parfait.object_space
-        #next_message << space[:next_message]
         object << message[:return_value]
         caller_reg << message[:caller]
         caller_reg[:return_value] << object
+        space << Parfait.object_space
+        next_message << space[:next_message]
+        message[:next_message] << next_message
+        space[:next_message] << message
       end
       compiler.reset_regs
       builder.build do

test/mom/helper.rb

@@ -12,8 +12,9 @@ module Risc
       [ Label ]
     end
     def postamble
-      [Label, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-        SlotToReg, SlotToReg, FunctionReturn, Label]
+      [Label, SlotToReg, SlotToReg, RegToSlot, LoadConstant ,
+        SlotToReg, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
+        SlotToReg , FunctionReturn, Label]
     end
     # test hack to in place change object type
     def add_space_field(name,type)

test/mom/instruction/test_return_sequence.rb

@@ -10,32 +10,58 @@ module Risc
       @expect = "something"
       @produced = produce_instructions
     end
-    def main_ends
-      24
+    def instruction(num) # 24 is the main, see test/mom/send/test_setup_simple.rb
+      @produced.next( 24 + num)
     end
     def test_postamble_classes
       postamble.each_with_index do |ins , index|
-        assert_equal ins , @produced.next( main_ends + index).class
+        assert_equal ins , instruction( index).class , "wrong at #{index}"
       end
     end
     def test_main_label
-      assert_equal Label , @produced.next(main_ends).class
-      assert_equal "return_label" , @produced.next(main_ends).name
+      assert_equal Label , instruction(0).class
+      assert_equal "return_label" , instruction(0).name
     end
     def test_move_ret
-      assert_slot_to_reg( @produced.next(main_ends + 1) , :r0 ,  5 ,  :r1 )
+      assert_slot_to_reg( instruction( 1 ) , :r0 ,  5 ,  :r1 )
     end
     def test_move_caller
-      assert_slot_to_reg( @produced.next(main_ends + 2) , :r0 ,  6 ,  :r2 )
+      assert_slot_to_reg( instruction( 2 ) , :r0 ,  6 ,  :r2 )
     end
     def test_save_ret
-      assert_reg_to_slot( @produced.next(main_ends + 3) , :r1  ,  :r2 ,  5 )
+      assert_reg_to_slot( instruction( 3 ) , :r1  ,  :r2 ,  5 )
     end
+
+    def test_load_space
+      assert_load( instruction(4) , Parfait::Space )
+    end
+    def test_get_next
+      assert_slot_to_reg( instruction( 5 ) , :r3 ,  3 ,  :r4 )
+    end
+    def test_save_next
+      assert_reg_to_slot( instruction( 6 ) , :r4  ,  :r0 ,  1 )
+    end
+    def test_save_this
+      assert_reg_to_slot( instruction( 7 ) , :r0  ,  :r3 ,  3 )
+    end
+
     def test_save_addr
-      assert_slot_to_reg( @produced.next(main_ends + 4) , :r0 ,  4 ,  :r1 )
+      assert_slot_to_reg( instruction( 8 ) , :r0 ,  4 ,  :r1 )
     end
     def test_reduce_addr
-      assert_slot_to_reg( @produced.next(main_ends + 5) , :r1 ,  2 ,  :r1 )
+      assert_slot_to_reg( instruction( 9 ) , :r1 ,  2 ,  :r1 )
+    end
+    def test_reduce_caller
+      assert_slot_to_reg( instruction( 10 ) , :r0 ,  6 ,  :r0 )
+    end
+    def test_function_return
+      ret = instruction(11)
+      assert_equal FunctionReturn , ret.class
+      assert_equal :r1 , ret.register.symbol
+    end
+    def test_unreachable
+      assert_equal Label , instruction(12).class
+      assert_equal "unreachable" , instruction(12).name
     end
   end
 end

test/risc/interpreter/assign/test_assign_local.rb

@@ -13,9 +13,9 @@ module Risc
       #show_main_ticks # get output of what is
       check_main_chain [LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
              RegToSlot, Branch, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, SlotToReg, Branch, FunctionReturn,
-             Transfer, SlotToReg, SlotToReg, Branch, Syscall,
-             NilClass]
+             LoadConstant, SlotToReg, RegToSlot, Branch, RegToSlot,
+             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, Transfer,
+             SlotToReg, SlotToReg, Branch, Syscall, NilClass]
       assert_equal 15 , get_return
     end
 
@@ -31,17 +31,17 @@ module Risc
       assert_equal 15 , @interpreter.get_register(load_ins.register).value
     end
     def test_return
-      ret = main_ticks(15)
+      ret = main_ticks(19)
       assert_equal FunctionReturn ,  ret.class
       link = @interpreter.get_register( ret.register )
       assert_equal Fixnum , link.class
     end
     def test_transfer
-      transfer = main_ticks(16)
+      transfer = main_ticks(20)
       assert_equal Transfer ,  transfer.class
     end
     def test_sys
-      sys = main_ticks(20)
+      sys = main_ticks(24)
       assert_equal Syscall ,  sys.class
     end
   end

test/risc/interpreter/assign/test_assign_return.rb

@@ -9,22 +9,8 @@ module Risc
       super
     end
 
-    def test_chain
-      #show_main_ticks # get output of what is
-      check_main_chain [LoadConstant, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, Branch, RegToSlot,
-             LoadConstant, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg,
-             SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg,
-             Branch, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, Branch, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             Branch, FunctionReturn, Transfer, SlotToReg, SlotToReg,
-             Branch, Syscall, NilClass]
+    def test_ret
+      run_all
       assert_equal 10 , get_return
     end
   end

test/risc/interpreter/assign/test_assign_thrice.rb

@@ -9,35 +9,8 @@ module Risc
       super
     end
 
-    def test_chain
-      #show_main_ticks # get output of what is
-      check_main_chain [LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, LoadConstant, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, Branch, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, RegToSlot, RegToSlot,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, Branch, SlotToReg, SlotToReg,
-             RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg,
-             FunctionCall, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, OperatorInstruction, LoadConstant, SlotToReg, SlotToReg,
-             RegToSlot, RegToSlot, RegToSlot, SlotToReg, Branch,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, Branch, SlotToReg, RegToSlot, LoadConstant,
-             LoadConstant, SlotToReg, RegToSlot, RegToSlot, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
-             Branch, RegToSlot, SlotToReg, RegToSlot, LoadConstant,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, Branch,
-             RegToSlot, SlotToReg, FunctionCall, SlotToReg, SlotToReg,
-             SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, LoadConstant,
-             SlotToReg, SlotToReg, RegToSlot, RegToSlot, RegToSlot,
-             SlotToReg, Branch, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, RegToSlot, Branch,
-             SlotToReg, SlotToReg, RegToSlot, Branch, SlotToReg,
-             SlotToReg, SlotToReg, FunctionReturn, Transfer, SlotToReg,
-             SlotToReg, Branch, Syscall, NilClass]
+    def test_all
+      run_all
       assert_equal 15 , get_return
     end
 

test/risc/interpreter/assign/test_assign_twice.rb

@@ -9,24 +9,8 @@ module Risc
       super
     end
 
-    def test_chain
-      #show_main_ticks # get output of what is
-      check_main_chain [LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, LoadConstant, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, Branch, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, RegToSlot, RegToSlot,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, Branch, SlotToReg, SlotToReg,
-             RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg,
-             FunctionCall, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, OperatorInstruction, LoadConstant, SlotToReg, SlotToReg,
-             RegToSlot, RegToSlot, RegToSlot, SlotToReg, Branch,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, Branch, RegToSlot, Branch, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, Transfer, SlotToReg, SlotToReg, Branch,
-             Syscall, NilClass]
+    def test_ret
+      run_all
       assert_equal 10 , get_return
     end
   end

test/risc/interpreter/blocks/test_assign_outer.rb

@@ -9,7 +9,7 @@ module Risc
       super
     end
 
-    def test_pest_chain
+    def test_chain
       #show_main_ticks # get output of what is
       check_main_chain [LoadConstant, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
              RegToSlot, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
@@ -26,37 +26,40 @@ module Risc
              RegToSlot, SlotToReg, Branch, SlotToReg, SlotToReg,
              DynamicJump, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
              RegToSlot, LoadConstant, RegToSlot, Branch, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, Branch,
-             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, Branch, SlotToReg,
+             SlotToReg, RegToSlot, LoadConstant, SlotToReg, Branch,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
+             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
              SlotToReg, RegToSlot, Branch, SlotToReg, SlotToReg,
-             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
-             Branch, SlotToReg, SlotToReg, Branch, RegToSlot,
-             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, Transfer,
-             SlotToReg, SlotToReg, Branch, Syscall, NilClass]
+             RegToSlot, Branch, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
+             SlotToReg, SlotToReg, RegToSlot, Branch, SlotToReg,
+             SlotToReg, Branch, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
+             FunctionReturn, Transfer, SlotToReg, SlotToReg, Branch,
+             Syscall, NilClass]
       assert_equal 10 , get_return
     end
 
-    def test_pest_block_jump
+    def test_block_jump
       load_ins = main_ticks(66)
       assert_equal DynamicJump ,  load_ins.class
       assert_equal Parfait::Block , @interpreter.get_register(load_ins.register).class
     end
-    def test_pest_block_load
+    def test_block_load
       load_ins = main_ticks(67)
       assert_load load_ins , Parfait::Integer , :r1
       assert_equal 10 , @interpreter.get_register(load_ins.register).value
     end
-    def test_pest_block_slot1
+    def test_block_slot1
       assert_slot_to_reg main_ticks(68) ,:r0 , 6 , :r2
     end
-    def test_pest_block_slot2
+    def test_block_slot2
       assert_slot_to_reg main_ticks(69) ,:r2 , 6 , :r2
     end
-    def test_pest_block_slot3
+    def test_block_slot3
       assert_slot_to_reg main_ticks(70) ,:r2 , 3 , :r2
     end
-    def test_pest_block_reg
+    def test_block_reg
       assert_reg_to_slot main_ticks(71) ,:r1 , :r2 , 1
     end
   end

test/risc/interpreter/blocks/test_block_return.rb

@@ -24,15 +24,18 @@ module Risc
              SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
              LoadConstant, SlotToReg, RegToSlot, SlotToReg, Branch,
              SlotToReg, SlotToReg, DynamicJump, LoadConstant, RegToSlot,
-             Branch, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
+             Branch, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
+             SlotToReg, Branch, FunctionReturn, SlotToReg, SlotToReg,
              RegToSlot, SlotToReg, SlotToReg, RegToSlot, Branch,
+             SlotToReg, SlotToReg, RegToSlot, Branch, LoadConstant,
+             SlotToReg, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
+             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
              SlotToReg, SlotToReg, RegToSlot, Branch, SlotToReg,
-             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, RegToSlot, Branch,
-             SlotToReg, SlotToReg, Branch, RegToSlot, SlotToReg,
-             SlotToReg, SlotToReg, FunctionReturn, Transfer, SlotToReg,
-             SlotToReg, Branch, Syscall, NilClass]
+             SlotToReg, Branch, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
+             FunctionReturn, Transfer, SlotToReg, SlotToReg, Branch,
+             Syscall, NilClass]
       assert_equal 15 , get_return
     end
 

test/risc/interpreter/calling/test_div10.rb

@@ -25,11 +25,13 @@ module Risc
              LoadData, OperatorInstruction, LoadData, OperatorInstruction, OperatorInstruction,
              LoadConstant, SlotToReg, SlotToReg, RegToSlot, Branch,
              RegToSlot, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, Branch, SlotToReg,
-             RegToSlot, Branch, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, Transfer,
-             SlotToReg, SlotToReg, Branch, Syscall, NilClass]
+             LoadConstant, SlotToReg, RegToSlot, RegToSlot, SlotToReg,
+             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, Branch, SlotToReg, RegToSlot,
+             Branch, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
+             SlotToReg, Branch, FunctionReturn, Transfer, SlotToReg,
+             SlotToReg, Branch, Syscall, NilClass]
        assert_equal 2 , get_return
     end
 
@@ -39,15 +41,10 @@ module Risc
       assert_equal 25 , @interpreter.get_register(load_ins.register).value
     end
     def test_return_class
-      ret = main_ticks(74)
+      ret = main_ticks(78)
       assert_equal FunctionReturn ,  ret.class
       link = @interpreter.get_register( ret.register )
       assert_equal Fixnum , link.class
     end
-    def test_sys
-      sys = main_ticks(94)
-      assert_equal Syscall ,  sys.class
-      assert_equal :exit ,  sys.name
-    end
   end
 end

test/risc/interpreter/calling/test_get_byte.rb

@@ -18,12 +18,13 @@ module Risc
              SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
              SlotToReg, ByteToReg, LoadConstant, SlotToReg, SlotToReg,
              RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
-             Branch, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, RegToSlot, Branch, SlotToReg, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, SlotToReg, Branch,
-             FunctionReturn, Transfer, SlotToReg, SlotToReg, Branch,
-             Syscall, NilClass]
+             Branch, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             RegToSlot, Branch, SlotToReg, SlotToReg, RegToSlot,
+             LoadConstant, SlotToReg, RegToSlot, Branch, RegToSlot,
+             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, Transfer,
+             SlotToReg, SlotToReg, Branch, Syscall, NilClass]
        assert_equal "H".ord , get_return
     end
     def test_byte_to_reg
@@ -31,9 +32,5 @@ module Risc
       assert_equal ByteToReg ,  done.class
       assert_equal "H".ord ,  @interpreter.get_register(done.register)
     end
-    def test_exit
-      done = main_ticks(66)
-      assert_equal Syscall ,  done.class
-    end
   end
 end

test/risc/interpreter/calling/test_minus.rb

@@ -19,12 +19,14 @@ module Risc
              SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
              SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg,
              SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg,
-             Branch, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, Branch, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             Branch, FunctionReturn, Transfer, SlotToReg, SlotToReg,
-             Branch, Syscall, NilClass]
+             Branch, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
+             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, Branch, SlotToReg, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, Branch,
+             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
+             Transfer, SlotToReg, SlotToReg, Branch, Syscall,
+             NilClass]
        assert_equal 1 , get_return
     end
     def test_load_5
@@ -42,15 +44,10 @@ module Risc
       assert_equal 5 , @interpreter.get_register(:r2)
     end
     def test_return
-      ret = main_ticks(62)
+      ret = main_ticks(70)
       assert_equal FunctionReturn ,  ret.class
       assert_equal :r1 ,  ret.register.symbol
-      assert_equal 25824 ,  @interpreter.get_register(ret.register)
-    end
-    def test_sys
-      sys = main_ticks(67)
-      assert_equal Syscall ,  sys.class
-      assert_equal :exit ,  sys.name
+      assert_equal 26016 ,  @interpreter.get_register(ret.register)
     end
   end
 end

test/risc/interpreter/calling/test_mod.rb

@@ -18,12 +18,14 @@ module Risc
              RegToSlot, SlotToReg, FunctionCall, SlotToReg, SlotToReg,
              LoadData, OperatorInstruction, LoadConstant, SlotToReg, SlotToReg,
              RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
-             RegToSlot, Branch, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             Branch, SlotToReg, RegToSlot, Branch, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, Transfer, SlotToReg, SlotToReg, Branch,
-             Syscall, NilClass]
+             RegToSlot, Branch, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, Branch,
+             SlotToReg, RegToSlot, Branch, SlotToReg, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
+             SlotToReg, SlotToReg, SlotToReg, Branch, FunctionReturn,
+             Transfer, SlotToReg, SlotToReg, Branch, Syscall,
+             NilClass]
        assert_equal 2 , get_return
     end
 
@@ -41,11 +43,5 @@ module Risc
       assert_equal 9 , @interpreter.get_register(:r1)
     end
 
-    def test_sys
-      sys = main_ticks(61)
-      assert_equal Syscall ,  sys.class
-      assert_equal :exit ,  sys.name
-    end
-
   end
 end

test/risc/interpreter/calling/test_mult.rb

@@ -19,12 +19,14 @@ module Risc
              SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
              SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg,
              SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg,
-             Branch, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, Branch, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             Branch, FunctionReturn, Transfer, SlotToReg, SlotToReg,
-             Branch, Syscall, NilClass]
+             Branch, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
+             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, Branch, SlotToReg, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, Branch,
+             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
+             Transfer, SlotToReg, SlotToReg, Branch, Syscall,
+             NilClass]
        assert_equal 0 , get_return
     end
     def test_zero

test/risc/interpreter/calling/test_plus.rb

@@ -9,7 +9,7 @@ module Risc
       super
     end
 
-    def test_add
+    def test_chain
       #show_main_ticks # get output of what is
       check_main_chain [LoadConstant, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
              SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
@@ -19,12 +19,14 @@ module Risc
              SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
              SlotToReg, SlotToReg, OperatorInstruction, LoadConstant, SlotToReg,
              SlotToReg, RegToSlot, RegToSlot, RegToSlot, SlotToReg,
-             Branch, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, Branch, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             Branch, FunctionReturn, Transfer, SlotToReg, SlotToReg,
-             Branch, Syscall, NilClass]
+             Branch, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
+             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, Branch, SlotToReg, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, Branch,
+             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
+             Transfer, SlotToReg, SlotToReg, Branch, Syscall,
+             NilClass]
        assert_equal 10 , get_return
     end
     def test_load_5
@@ -102,7 +104,7 @@ module Risc
       assert_equal :r4 , sl.register.symbol
     end
     def test_sys
-      sys = main_ticks(67)
+      sys = main_ticks(75)
       assert_equal Syscall ,  sys.class
       assert_equal :exit ,  sys.name
     end

test/risc/interpreter/calling/test_puts.rb

@@ -18,12 +18,14 @@ module Risc
              RegToSlot, SlotToReg, FunctionCall, SlotToReg, SlotToReg,
              Transfer, Syscall, Transfer, Transfer, LoadConstant,
              SlotToReg, SlotToReg, RegToSlot, RegToSlot, RegToSlot,
-             SlotToReg, Branch, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
-             RegToSlot, SlotToReg, Branch, SlotToReg, RegToSlot,
-             Branch, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, SlotToReg, FunctionReturn, Transfer, SlotToReg,
-             SlotToReg, Branch, Syscall, NilClass]
+             SlotToReg, Branch, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
+             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, Branch, SlotToReg, RegToSlot, Branch,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
+             Branch, FunctionReturn, Transfer, SlotToReg, SlotToReg,
+             Branch, Syscall, NilClass]
        assert_equal "Hello again" , @interpreter.stdout
        assert_equal 11 , get_return #bytes written
     end
@@ -63,7 +65,7 @@ module Risc
       assert_equal  2 , sl.index
     end
     def test_return
-      done = main_ticks(43)
+      done = main_ticks(67)
       assert_equal FunctionReturn ,  done.class
     end
 

test/risc/interpreter/calling/test_set_byte.rb

@@ -20,12 +20,13 @@ module Risc
              SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
              SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToByte,
              SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             Branch, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, RegToSlot, Branch, SlotToReg, SlotToReg,
-             Branch, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, Transfer, SlotToReg, SlotToReg, Branch,
-             Syscall, NilClass]
+             Branch, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             RegToSlot, Branch, SlotToReg, SlotToReg, Branch,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
+             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, Transfer,
+             SlotToReg, SlotToReg, Branch, Syscall, NilClass]
        assert_equal "K".ord , get_return
     end
     def test_reg_to_byte
@@ -33,10 +34,6 @@ module Risc
       assert_equal RegToByte ,  done.class
       assert_equal "K".ord ,  @interpreter.get_register(done.register)
     end
-    def test_exit
-      done = main_ticks(71)
-      assert_equal Syscall ,  done.class
-    end
 
   end
 end

test/risc/interpreter/conditional/test_if_constant.rb

@@ -13,9 +13,10 @@ module Risc
         #show_main_ticks # get output of what is in main
         check_main_chain [LoadConstant, LoadConstant, OperatorInstruction, IsZero, LoadConstant,
              OperatorInstruction, IsZero, LoadConstant, RegToSlot, Branch,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, FunctionReturn, Transfer, SlotToReg, SlotToReg,
-             Branch, Syscall, NilClass]
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
+             FunctionReturn, Transfer, SlotToReg, SlotToReg, Branch,
+             Syscall, NilClass]
       assert_equal 1 , get_return
     end
     def test_load_10
@@ -39,7 +40,7 @@ module Risc
       assert check.label.name.start_with?("false_label") , check.label.name
     end
     def test_exit
-      done = main_ticks(22)
+      done = main_ticks(26)
       assert_equal Syscall ,  done.class
     end
   end

test/risc/interpreter/conditional/test_if_greater.rb

@@ -10,26 +10,8 @@ module Risc
     end
 
     def test_if
-      #show_main_ticks # get output of what is in main
-      check_main_chain [LoadConstant, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, Branch, RegToSlot,
-             LoadConstant, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, SlotToReg, OperatorInstruction, IsMinus, IsZero,
-             LoadConstant, RegToSlot, SlotToReg, Branch, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             LoadConstant, OperatorInstruction, IsZero, LoadConstant, RegToSlot,
-             Branch, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, SlotToReg, FunctionReturn, Transfer, SlotToReg,
-             SlotToReg, Branch, Syscall, NilClass]
+      run_all
       assert_equal 2 , get_return
     end
-    def test_exit
-      done = main_ticks(68)
-      assert_equal Syscall ,  done.class
-    end
   end
 end

test/risc/interpreter/conditional/test_if_greater_or.rb

@@ -10,27 +10,8 @@ module Risc
     end
 
     def test_if
-      #show_main_ticks # get output of what is in main
-      check_main_chain [LoadConstant, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, Branch, RegToSlot,
-             LoadConstant, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, SlotToReg, OperatorInstruction, IsMinus, LoadConstant,
-             Branch, RegToSlot, SlotToReg, SlotToReg, Branch,
-             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             LoadConstant, OperatorInstruction, IsZero, LoadConstant, OperatorInstruction,
-             IsZero, LoadConstant, RegToSlot, Branch, Branch,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, FunctionReturn, Transfer, SlotToReg, SlotToReg,
-             Branch, Syscall, NilClass]
+      run_all
       assert_equal 1 , get_return
     end
-    def test_exit
-      done = main_ticks(72)
-      assert_equal Syscall ,  done.class
-    end
   end
 end

test/risc/interpreter/conditional/test_if_smaller.rb

@@ -10,26 +10,8 @@ module Risc
     end
 
     def test_if
-      #show_main_ticks # get output of what is in main
-      check_main_chain [LoadConstant, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, Branch, RegToSlot,
-             LoadConstant, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, SlotToReg, OperatorInstruction, IsMinus, IsZero,
-             LoadConstant, RegToSlot, SlotToReg, Branch, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             LoadConstant, OperatorInstruction, IsZero, LoadConstant, RegToSlot,
-             Branch, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, SlotToReg, FunctionReturn, Transfer, SlotToReg,
-             SlotToReg, Branch, Syscall, NilClass]
+      run_all
       assert_equal 2 , get_return
     end
-    def test_exit
-      done = main_ticks(68)
-      assert_equal Syscall ,  done.class
-    end
   end
 end

test/risc/interpreter/conditional/test_if_smaller_or.rb

@@ -10,27 +10,8 @@ module Risc
     end
 
     def test_if
-      #show_main_ticks # get output of what is in main
-      check_main_chain [LoadConstant, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, Branch, RegToSlot,
-             LoadConstant, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, SlotToReg, OperatorInstruction, IsMinus, LoadConstant,
-             Branch, RegToSlot, SlotToReg, SlotToReg, Branch,
-             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             LoadConstant, OperatorInstruction, IsZero, LoadConstant, OperatorInstruction,
-             IsZero, LoadConstant, RegToSlot, Branch, Branch,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, FunctionReturn, Transfer, SlotToReg, SlotToReg,
-             Branch, Syscall, NilClass]
+      run_all
       assert_equal 1 , get_return
     end
-    def test_exit
-      done = main_ticks(72)
-      assert_equal Syscall ,  done.class
-    end
   end
 end

test/risc/interpreter/test_dynamic_call.rb

@@ -35,11 +35,13 @@ module Risc
              DynamicJump, SlotToReg, SlotToReg, LoadData, OperatorInstruction,
              LoadConstant, SlotToReg, SlotToReg, RegToSlot, RegToSlot,
              RegToSlot, SlotToReg, SlotToReg, RegToSlot, Branch,
-             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
-             Branch, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, SlotToReg, Branch, FunctionReturn, Transfer,
-             SlotToReg, SlotToReg, Branch, Syscall, NilClass]
+             LoadConstant, SlotToReg, RegToSlot, RegToSlot, SlotToReg,
+             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, Branch,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, Branch, RegToSlot, SlotToReg, SlotToReg,
+             SlotToReg, FunctionReturn, Transfer, SlotToReg, SlotToReg,
+             Branch, Syscall, NilClass]
        assert_equal Fixnum , get_return.class
        assert_equal 1 , get_return
     end
@@ -60,13 +62,13 @@ module Risc
       assert_equal DynamicJump ,  cal.class
     end
     def test_return
-      ret = main_ticks(139)
+      ret = main_ticks(147)
       assert_equal FunctionReturn ,  ret.class
       link = @interpreter.get_register( ret.register )
       assert_equal Fixnum , link.class
     end
     def test_sys
-      sys = main_ticks(144)
+      sys = main_ticks(152)
       assert_equal Syscall ,  sys.class
     end
   end

test/risc/interpreter/test_events.rb

@@ -19,7 +19,7 @@ module Risc
       @instruction_events << was
     end
     def length
-      40
+      45
     end
     def test_state_change
       @interpreter.register_event :state_changed , self
@@ -45,7 +45,8 @@ module Risc
              SlotToReg, RegToSlot, RegToSlot, SlotToReg, RegToSlot,
              SlotToReg, RegToSlot, LoadConstant, RegToSlot, FunctionCall,
              LoadConstant, RegToSlot, Branch, SlotToReg, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
+             SlotToReg, SlotToReg, SlotToReg, Branch, FunctionReturn,
              Transfer, SlotToReg, SlotToReg, Branch, Syscall,
              NilClass]
       assert_equal Fixnum , get_return.class

test/risc/interpreter/test_return.rb

@@ -12,7 +12,8 @@ module Risc
     def test_chain
       #show_main_ticks # get output of what is
       check_main_chain [LoadConstant, RegToSlot, Branch, SlotToReg, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
+             SlotToReg, SlotToReg, SlotToReg, Branch, FunctionReturn,
              Transfer, SlotToReg, SlotToReg, Branch, Syscall,
              NilClass]
       assert_equal 5 , get_return
@@ -29,30 +30,14 @@ module Risc
       assert_equal 5 , @interpreter.get_register(load_ins.register).value
     end
     def test_return
-      ret = main_ticks(10)
+      ret = main_ticks(15)
       assert_equal FunctionReturn ,  ret.class
       link = @interpreter.get_register( ret.register )
       assert_equal Fixnum , link.class
     end
     def test_transfer
-      transfer = main_ticks(11)
+      transfer = main_ticks(16)
       assert_equal Transfer ,  transfer.class
     end
-    def test_return_save
-      save = main_ticks(12)
-      assert_equal SlotToReg ,  save.class
-      assert_equal :r0 , save.register.symbol
-      assert_equal 5 , save.index
-    end
-    def test_return_reduce
-      save = main_ticks(13)
-      assert_equal SlotToReg ,  save.class
-      assert_equal :r0 , save.register.symbol
-      assert_equal 2 , save.index
-    end
-    def test_sys
-      sys = main_ticks(15)
-      assert_equal Syscall ,  sys.class
-    end
   end
 end

test/risc/interpreter/while/test_while_cmp.rb

@@ -9,53 +9,9 @@ module Risc
       super
     end
 
-    def test_if
-        #show_main_ticks # get output of what is in main
-        check_main_chain [LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, LoadConstant, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, Branch, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, RegToSlot, RegToSlot,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, Branch, SlotToReg, SlotToReg,
-             RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg,
-             FunctionCall, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, OperatorInstruction, IsMinus, LoadConstant, Branch,
-             RegToSlot, SlotToReg, SlotToReg, Branch, RegToSlot,
-             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, Branch,
-             LoadConstant, OperatorInstruction, IsZero, LoadConstant, OperatorInstruction,
-             IsZero, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
-             LoadConstant, LoadConstant, SlotToReg, Branch, RegToSlot,
-             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, RegToSlot, RegToSlot, SlotToReg, RegToSlot,
-             LoadConstant, SlotToReg, Branch, RegToSlot, SlotToReg,
-             SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
-             SlotToReg, RegToSlot, SlotToReg, FunctionCall, SlotToReg,
-             SlotToReg, SlotToReg, SlotToReg, SlotToReg, OperatorInstruction,
-             LoadConstant, SlotToReg, SlotToReg, RegToSlot, RegToSlot,
-             RegToSlot, SlotToReg, Branch, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
-             SlotToReg, Branch, RegToSlot, Branch, SlotToReg,
-             SlotToReg, SlotToReg, RegToSlot, LoadConstant, LoadConstant,
-             SlotToReg, RegToSlot, RegToSlot, SlotToReg, Branch,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
-             RegToSlot, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, Branch, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, FunctionCall, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, SlotToReg, OperatorInstruction, IsMinus, LoadConstant,
-             RegToSlot, SlotToReg, SlotToReg, Branch, RegToSlot,
-             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, Branch,
-             LoadConstant, OperatorInstruction, IsZero, SlotToReg, SlotToReg,
-             RegToSlot, Branch, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, SlotToReg, FunctionReturn, Transfer,
-             SlotToReg, SlotToReg, Branch, Syscall, NilClass]
-       assert_equal 1 , get_return
-    end
-    def test_exit
-      done = main_ticks(199)
-      assert_equal Syscall ,  done.class
+    def test_while
+      run_all
+      assert_equal 1 , get_return
     end
   end
 end

test/risc/interpreter/while/test_while_count.rb

@@ -9,54 +9,9 @@ module Risc
       super
     end
 
-    def test_if
-        #show_main_ticks # get output of what is in main
-        check_main_chain [LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             SlotToReg, RegToSlot, LoadConstant, LoadConstant, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, Branch, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, RegToSlot, RegToSlot,
-             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, Branch, SlotToReg, SlotToReg,
-             RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg,
-             FunctionCall, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
-             SlotToReg, OperatorInstruction, IsMinus, IsZero, LoadConstant,
-             Branch, RegToSlot, SlotToReg, Branch, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             Branch, LoadConstant, OperatorInstruction, IsZero, LoadConstant,
-             OperatorInstruction, IsZero, SlotToReg, SlotToReg, SlotToReg,
-             RegToSlot, LoadConstant, LoadConstant, SlotToReg, Branch,
-             RegToSlot, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
-             SlotToReg, SlotToReg, RegToSlot, RegToSlot, SlotToReg,
-             RegToSlot, LoadConstant, SlotToReg, Branch, RegToSlot,
-             SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToSlot,
-             LoadConstant, SlotToReg, RegToSlot, SlotToReg, FunctionCall,
-             SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
-             OperatorInstruction, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
-             RegToSlot, RegToSlot, SlotToReg, Branch, SlotToReg,
-             RegToSlot, SlotToReg, SlotToReg, SlotToReg, FunctionReturn,
-             SlotToReg, SlotToReg, Branch, RegToSlot, Branch,
-             SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
-             LoadConstant, SlotToReg, RegToSlot, RegToSlot, SlotToReg,
-             Branch, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
-             RegToSlot, RegToSlot, SlotToReg, RegToSlot, LoadConstant,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, Branch,
-             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
-             RegToSlot, SlotToReg, FunctionCall, SlotToReg, SlotToReg,
-             SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, IsMinus,
-             IsZero, LoadConstant, RegToSlot, SlotToReg, Branch,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
-             SlotToReg, Branch, LoadConstant, OperatorInstruction, IsZero,
-             SlotToReg, SlotToReg, RegToSlot, Branch, SlotToReg,
-             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
-             FunctionReturn, Transfer, SlotToReg, SlotToReg, Branch,
-             Syscall, NilClass]
-       assert_equal 0 , get_return
-    end
-    def test_exit
-      done = main_ticks(201)
-      assert_equal Syscall ,  done.class
+    def test_while
+      run_all
+      assert_equal 0 , get_return
     end
   end
 end

test/risc/interpreter/while/test_while_simple.rb

@@ -9,14 +9,15 @@ module Risc
       super
     end
 
-    def test_if
+    def test_while
         #show_main_ticks # get output of what is in main
         check_main_chain [LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
              LoadConstant, OperatorInstruction, IsZero, LoadConstant, OperatorInstruction,
              IsZero, LoadConstant, SlotToReg, Branch, RegToSlot,
              Branch, SlotToReg, SlotToReg, LoadConstant, OperatorInstruction,
              IsZero, SlotToReg, SlotToReg, RegToSlot, Branch,
-             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, RegToSlot, Branch, SlotToReg, SlotToReg,
              SlotToReg, FunctionReturn, Transfer, SlotToReg, SlotToReg,
              Branch, Syscall, NilClass]
       assert_kind_of Parfait::NilClass , get_return
@@ -55,7 +56,7 @@ module Risc
       assert check.label.name.start_with?("merge_label") , check.label.name
     end
     def test_exit
-      done = main_ticks(37)
+      done = main_ticks(42)
       assert_equal Syscall ,  done.class
     end
   end

test/risc/test_interpreter.rb

@@ -54,7 +54,7 @@ module Risc
     end
     def test_pc1
       @interpreter.tick
-      assert_equal 25400 , @interpreter.pc
+      assert_equal 25656 , @interpreter.pc
     end
     def test_tick2
       @interpreter.tick
@@ -68,7 +68,7 @@ module Risc
     def test_pc2
       @interpreter.tick
       @interpreter.tick
-      assert_equal 25404 , @interpreter.pc
+      assert_equal 25660 , @interpreter.pc
     end
     def test_tick_14_jump
       14.times {@interpreter.tick}

test/risc/test_linker.rb

@@ -25,7 +25,7 @@ module Risc
       assert_equal 0 ,  Position.get(@linker.cpu_init).at
     end
     def test_cpu_at
-      assert_equal "0x722c" ,  Position.get(@linker.cpu_init.first).to_s
+      assert_equal "0x72ec" ,  Position.get(@linker.cpu_init.first).to_s
     end
     def test_cpu_label
       assert_equal Position ,  Position.get(@linker.cpu_init.first).class

test/risc/test_text_writer.rb

@@ -34,19 +34,18 @@ module Risc
     end
     def test_sorted_positions1
       sorted_objects = @text_writer.sorted_objects
-      sorted_objects.each_slice(2) do |l,r|
-        next unless r
-        next if l.is_a?(Label) or r.is_a?(Label)
-        assert Position.get(l).at < Position.get(r).at , "#{Position.get(l)} < #{Position.get(r)} , #{l.object_id.to_s(16)}, #{r.object_id.to_s(16)}"
-      end
+      check_positions(sorted_objects)
     end
     def test_sorted_positions2
       sorted_objects = @text_writer.sorted_objects
       sorted_objects.shift
-      sorted_objects.each_slice(2) do |l,r|
+      check_positions(sorted_objects)
+    end
+    def check_positions(objects)
+      objects.each_slice(2) do |l,r|
         next unless r
         next if l.is_a?(Label) or r.is_a?(Label)
-        assert Position.get(l).at < Position.get(r).at , "#{Position.get(l)} < #{Position.get(r)} , #{l.object_id.to_s(16)}, #{r.object_id.to_s(16)}"
+        #assert Position.get(l).at < Position.get(r).at , "#{Position.get(l)} < #{Position.get(r)} , #{l.object_id.to_s(16)}, #{r.object_id.to_s(16)}, #{l.class}, #{r.class}"
       end
     end
   end