add position tests

and refactor padding out

lib/elf/object_writer.rb

@@ -37,12 +37,12 @@ module Elf
         if( slot.respond_to? :sof_reference_name )
           label = "#{slot.sof_reference_name}"
         else
-          label = "#{slot.class.name}::#{Position.position(slot).to_s(16)}"
+          label = "#{slot.class.name}::#{Risc::Position.position(slot).to_s(16)}"
         end
         label += "=#{slot}" if slot.is_a?(Symbol) or slot.is_a?(String)
-        add_symbol label , Position.position(slot)
+        add_symbol label , Risc::Position.position(slot)
         if slot.is_a?(Parfait::TypedMethod)
-          add_symbol slot.name.to_s , Position.position(slot.binary)
+          add_symbol slot.name.to_s , Risc::Position.position(slot.binary)
         end
       end
     end

lib/risc/position.rb

@@ -17,6 +17,23 @@ module Risc
   class Position
     @positions = {}
 
+    attr_reader :at
+
+    def initialize( at )
+      @at = at
+      raise "not int #{self}-#{at}" unless @at.is_a?(Integer)
+    end
+
+    def +(offset)
+      @at + offset
+    end
+    def -(offset)
+      @at - offset
+    end
+    def to_s
+      @at.to_s(16)
+    end
+
     def self.positions
       @positions
     end
@@ -33,15 +50,14 @@ module Risc
     end
 
     def self.set_position( object , pos )
-      raise "Position must be number not :#{pos}:" unless pos.is_a?(Numeric)
       # resetting of position used to be error, but since relink and dynamic instruction size it is ok.
       # in measures (of 32)
       #puts "Setting #{pos} for #{self.class}"
       old = Position.positions[object]
-      if old != nil and ((old - pos).abs > 10000)
-        raise "position set again #{pos}!=#{old} for #{object}"
+      if old != nil and ((old - pos).abs > 1000)
+        raise "position set too far off #{pos}!=#{old} for #{object}"
       end
-      self.positions[object] = pos
+      self.positions[object] = Position.new( pos )
     end
   end
 end

test/risc/test_padding.rb

@@ -1,6 +1,11 @@
 require_relative "../helper"
 
-class TestPadding < MiniTest::Test
+module Risc
+  class TestPadding < MiniTest::Test
+
+    def setup
+      Risc.machine.boot unless Risc.machine.booted
+    end
 
     def test_small
       [6,27,28].each do |p|
@@ -12,9 +17,33 @@ class TestPadding < MiniTest::Test
         assert_equal 64 , Padding.padded(p) , "Expecting 64 for #{p}"
       end
     end
+
     def test_large
       [61,65,88].each do |p|
         assert_equal 96 , Padding.padded(p) , "Expecting 96 for #{p}"
       end
     end
+    def test_list1
+      list = Parfait.new_list([1])
+      assert_equal 32 , list.padded_length
+    end
+    def test_list5
+      list = Parfait.new_list([1,2,3,4,5])
+      assert_equal 32 , list.padded_length
+    end
+    def test_type
+      type = Parfait::Type.for_hash Parfait.object_space.get_class_by_name(:Object) , {}
+      type.set_type( type )
+      assert_equal 32 , type.padded_length
+    end
+    def test_word
+      word = Parfait::Word.new(12)
+      assert_equal 32 , word.padded_length
+    end
+    def test_pos_arm
+      mov = Arm::ArmMachine.mov  :r1,  128
+      mov.set_position(0,0)
+    end
+
+  end
 end

test/risc/test_position.rb

@@ -0,0 +1,37 @@
+require_relative "../helper"
+
+module Risc
+  class TestPosition < MiniTest::Test
+
+    def test_creation_ok
+      assert Position.new(0)
+    end
+    def test_creation_fail
+      assert_raises {Position.new("0")}
+    end
+    def test_add
+      res = Position.new(0) + 5
+      assert_equal 5 , res
+    end
+    def test_sub
+      res = Position.new(5) - 1
+      assert_equal 4 , res
+    end
+    def test_set
+      pos = Position.set_position(self , 5)
+      assert_equal 5 , pos.at
+    end
+    def test_reset_ok
+      pos = Position.set_position(self , 5)
+      pos = Position.set_position(self , 10)
+      assert_equal 10 , pos.at
+    end
+    def test_reset_fail
+      Position.set_position(self , 5)
+      assert_raises{Position.set_position(self , 10000)}
+    end
+    def test_raises_set_nil
+      assert_raises { Position.set_position(self,nil)}
+    end
+  end
+end

test/risc/test_positioned.rb

@@ -1,42 +0,0 @@
-require_relative "../helper"
-
-class TestPosition < MiniTest::Test
-  def setup
-    Risc.machine.boot unless Risc.machine.booted
-  end
-  def test_list1
-    list = Parfait.new_list([1])
-    assert_equal 32 , list.padded_length
-  end
-  def test_list5
-    list = Parfait.new_list([1,2,3,4,5])
-    assert_equal 32 , list.padded_length
-  end
-  def test_type
-    type = Parfait::Type.for_hash Parfait.object_space.get_class_by_name(:Object) , {}
-    type.set_type( type )
-    assert_equal 32 , type.padded_length
-  end
-  def test_word
-    word = Parfait::Word.new(12)
-    assert_equal 32 , word.padded_length
-  end
-  def test_raises_no_init
-    assert_raises { Position.position(self)}
-  end
-  def test_raises_set_nil
-    assert_raises { Position.set_position(self,nil)}
-  end
-  def test_raises_reset_far
-    assert_raises do
-      test = TestPosition.new
-      test.set_position  0
-      test.set_position  12000
-    end
-  end
-
-  def test_pos_arm
-    mov = Arm::ArmMachine.mov  :r1,  128
-    mov.set_position(0,0)
-  end
-end