collapsed slot classes into one

different slot operation have different right sides
mom assignment tests work again
157 others don’t

lib/mom/instruction/slot_load.rb

@@ -3,9 +3,10 @@ module Mom
   # SlotLoad is an abstract base class for moving data into a slot
   # A Slot is basically an instance variable, but it must be of known type
   #
-  # The value loaded can be a constant (SlotConstant) or come from another Slot (SlotMove)
+  # The value loaded (the right hand side) can be a constant (Mom::Constant) or come from
+  #  another Slot (SlotDefinition)
   #
-  # The Slot is the left hand side, the right hand side being determined by the subclass.
+  # The Slot on the left hand side is always a SlotDefinition.
   # The only known object (*) for the left side is the current message, which is a bit like
   # the oo version of a PC (program Counter)
   # (* off course all class objects are global, and so they are allowed too)
@@ -17,25 +18,46 @@ module Mom
   # From the outside a send is neccessary, both for get and set, (which goes through the method
   # resolution and guarantees the correct method for a type), in other words perfect data hiding.
   #
-  # @left: is an array of symbols, that specifies the first the object, and then the Slot.
-  #        The first element is either a known type name (Capitalized symbol of the class name) ,
-  #        or the symbol :message
-  #        And subsequent symbols must be instance variables on the previous type.
-  #        Examples:  [:message , :receiver] or [:Space : :next_message]
+  # @left: A SlotDefinition, or an array that can be passed to the constructor of the
+  #        SlotDefinition (see there)
   #
-  # @right: depends on the derived Class
+  # @right: Either a SlotDefinition or a Constant
   #
   class SlotLoad < Instruction
     attr_reader :left , :right
     def initialize(left , right)
       left = SlotDefinition.new(left.shift , left) if left.is_a? Array
+      right = SlotDefinition.new(right.shift , right) if right.is_a? Array
+      raise "right not Mom, #{right.to_s}" unless right.is_a?( SlotDefinition )or right.is_a? Mom::Constant
       @left , @right = left , right
-      raise "left not SlotDefinition, #{left}" unless left.is_a? SlotDefinition
     end
+
+    def to_risc_load(context)
+      reg = context.use_reg( @right.ct_type)
+      const  = Risc.load_constant(self, @right , reg)
+      const.set_next Risc.reg_to_slot(self, reg , @left.known_object, @left.slots.first)
+      context.release_reg(reg)
+      return const
+    end
+
+    def to_risc_move(context)
+      reg = context.use_reg(:int)#( @right.ct_type)
+      const  = Risc.load_constant(self, @right , reg)
+#      const.set_next Risc.reg_to_slot(self, reg , @left.known_object, @left.slots.first)
+#      context.release_reg(reg)
+      return const
+    end
+
+
   end
 
   class SlotDefinition
     attr_reader :known_object , :slots
+    #         is an array of symbols, that specifies the first the object, and then the Slot.
+    #        The first element is either a known type name (Capitalized symbol of the class name) ,
+    #        or the symbol :message
+    #        And subsequent symbols must be instance variables on the previous type.
+    #        Examples:  [:message , :receiver] or [:Space : :next_message]
     def initialize( object , slots)
       @known_object , @slots = object , slots
       slot = [slot] unless slot.is_a?(Array)