create return address as own class to hold return addresses

to distinguish from integer, which does not need adjusting

lib/parfait/integer.rb

@@ -49,6 +49,13 @@ module Parfait
     # :>, :>=, :<, :<=, :between?
   end
 
+  # Marker class. Same functionality as Integer
+  # (ie carrying an int, the return address)
+  #
+  # But the integer (address) needs to be adjusted by load address.
+  class ReturnAddress < Integer
+  end
+
   # adding other base classes in here for now:
   class FalseClass < Data4
     #FIXME: this is "just" for compilation

lib/risc/boot.rb

@@ -118,8 +118,8 @@ module Risc
     # superclasses other than default object
     def  super_class_names
        { Data4: :DataObject , Data8: :DataObject ,Data16: :DataObject ,
-         BinaryCode: :Data16 , Integer: :Data4, Word: :Data8 ,
+         BinaryCode: :Data16 , Integer: :Data4 , Word: :Data8 ,
-         Object: :BasicObject , List: :Data16}
+         Object: :BasicObject , List: :Data16 , ReturnAddress: :Integer}
     end
 
     # the function really just returns a constant (just avoiding the constant)
@@ -132,6 +132,7 @@ module Risc
                      return_address: :Integer, return_value: :Object,
                      caller: :Message ,        name: :Word ,     arguments: :NamedList },
           Integer: {next_integer: :Integer},
+          ReturnAddress: {next_integer: :Integer},
           DataObject: {},
           Data4: {},
           Data8: {},

lib/risc/instructions/label.rb

@@ -66,8 +66,7 @@ module Risc
   # if none was given
   def self.label( source , name , position = nil , nekst = nil)
     unless position
-      position = Parfait.object_space.get_integer
+      position = Risc.machine.get_address
-      Risc.machine.add_constant(position)
     end
     Label.new( source , name , position, nekst )
   end

lib/risc/machine.rb

@@ -20,6 +20,7 @@ module Risc
       @booted = false
       @risc_init = nil
       @constants = []
+      @next_address = nil
     end
     attr_reader  :constants , :cpu_init
     attr_reader  :booted , :translated
@@ -61,6 +62,17 @@ module Risc
       @constants << const
     end
 
+    # hand out a return address for use as constant the address is added
+    def get_address
+      10.times do # 10 for whole pages
+        @next_address = Parfait::ReturnAddress.new(0,@next_address)
+        add_constant( @next_address )
+      end unless @next_address
+      addr = @next_address
+      @next_address = @next_address.next_integer
+      addr
+    end
+
     # To create binaries, objects (and labels) need to have a position
     # (so objects can be loaded and branches know where to jump)
     #

lib/risc/text_writer.rb

@@ -148,8 +148,8 @@ module Risc
     def write_integer( int )
       write_ref_for( int.get_type )
       write_ref_for( int.next_integer )
-      @stream.write_signed_int_32( int.value )
+      write_ref_for( int.value )
-      @stream.write_signed_int_32( 0 )
+      write_ref_for( 0 )
       log.debug "Integer witten stream 0x#{@stream.length.to_s(16)}"
     end
 

test/parfait/test_integer.rb

@@ -48,4 +48,18 @@ module Parfait
       assert_equal 1 , @int.value
     end
   end
+  class AddressTest < ParfaitTest
+    def test_address
+      assert ReturnAddress.new(55)
+    end
+    def test_value
+      assert_equal 55 , ReturnAddress.new(55).value
+    end
+    def test_value_set
+      addr = ReturnAddress.new(55)
+      addr.set_value(33)
+      assert_equal 33 , addr.value
+    end
+  end
+
 end

test/risc/interpreter/calling/test_minus.rb

@@ -46,7 +46,7 @@ module Risc
       ret = main_ticks(63)
       assert_equal FunctionReturn ,  ret.class
       assert_equal :r1 ,  ret.register.symbol
-      assert_equal 19460 ,  @interpreter.get_register(ret.register)
+      assert_equal 20612 ,  @interpreter.get_register(ret.register)
     end
     def test_sys
       sys = main_ticks(65)

test/risc/test_interpreter.rb

@@ -52,7 +52,7 @@ module Risc
     end
     def test_pc1
       @interpreter.tick
-      assert_equal 19224 , @interpreter.pc
+      assert_equal 20376 , @interpreter.pc
     end
     def test_tick2
       @interpreter.tick
@@ -66,7 +66,7 @@ module Risc
     def test_pc2
       @interpreter.tick
       @interpreter.tick
-      assert_equal 19228 , @interpreter.pc
+      assert_equal 20380 , @interpreter.pc
     end
     def test_tick_14_jump
       14.times {@interpreter.tick}

test/risc/test_machine.rb

@@ -17,6 +17,22 @@ module Risc
     def test_constant
       assert @machine.add_constant( Parfait::Integer.new(5) )
     end
+    def test_address_get
+      assert_equal Parfait::ReturnAddress ,  @machine.get_address.class
+    end
+    def test_address_is_constant
+      addr = @machine.get_address
+      assert @machine.constants.include?(addr)
+    end
+    def test_address_count
+      addr = @machine.get_address
+      count = 0
+      while(addr)
+        count += 1
+        addr = addr.next_integer
+      end
+      assert_equal 5, count  
+    end
   end
   class TestMachineInit < MiniTest::Test
     def setup
@@ -29,10 +45,10 @@ module Risc
       assert_equal 0 ,  Position.get(@machine.cpu_init).at
     end
     def test_cpu_at
-      assert_equal "0x5a54" ,  Position.get(@machine.cpu_init.first).to_s
+      assert_equal "0x5ed4" ,  Position.get(@machine.cpu_init.first).to_s
     end
     def test_cpu_bin
-      assert_equal "0x5a4c" ,  Position.get(Position.get(@machine.cpu_init.first).binary).to_s
+      assert_equal "0x5ecc" ,  Position.get(Position.get(@machine.cpu_init.first).binary).to_s
     end
     def test_cpu_label
       assert_equal Position::InstructionPosition ,  Position.get(@machine.cpu_init.first).class