Fix div10 without method_missing

but reanimate infer_type to auto create the needed regsiters
also some helpers

lib/risc/builder.rb

@@ -24,6 +24,20 @@ module Risc
       @source_used = false
     end
 
+    # especially for the macros (where register allocation is often manual)
+    # register need to be created. And since the code is "ported" we create
+    # them with the old names, which used the infer_type to infer the type
+    #
+    # Return the RegisterValue with given name and inferred type, compiler set
+    def register( name )
+      RegisterValue.new(name , infer_type(name) ).set_compiler(compiler)
+    end
+
+    # create an add a RegisterTransfer instruction with to and from
+    def transfer(to , from)
+      add_code Risc.transfer(@source, to , from)
+    end
+
     # Infer the type from a symbol. In the simplest case the symbol is the class name.
     # But in building, sometimes variations are needed, so next_message or caller work
     # too (and both return "Message")
@@ -90,8 +104,8 @@ module Risc
       return ins
     end
 
-    def load_object(object)
+    def load_object(object , into = nil)
-      @compiler.load_object(object)
+      @compiler.load_object(object , into)
     end
 
     # for some methods that return an integer it is beneficial to pre allocate the

lib/risc/callable_compiler.rb

@@ -93,8 +93,9 @@ module Risc
     # Load a constant, meaning create a LoadConstant instruction for the constant
     # add the instruction to the code and return the register_value that was created
     # for further use
-    def load_object( object )
+    # register may be passed in (epecially in mcro building) as second arg
-      ins = Risc.load_constant("load to #{object}" , object)
+    def load_object( object , into = nil)
+      ins = Risc.load_constant("load to #{object}" , object , into)
       ins.register.set_compiler(self)
       add_code ins
       # todo for constants (not objects)

lib/risc/instructions/load_constant.rb

@@ -32,8 +32,10 @@ module Risc
       end
     end
   end
-  def self.load_constant( source , constant )
+
+  def self.load_constant( source , constant , register = nil)
     value = constant
+    unless register
       case constant
       when Parfait::Object
         type = constant.get_type
@@ -44,6 +46,7 @@ module Risc
         value = constant.value
       end
       register = RegisterValue.new( "id_#{value.object_id}".to_sym , type )
+    end
     LoadConstant.new( source , constant , register )
   end
 end

lib/slot_machine/macro/div10.rb

@@ -4,13 +4,16 @@ module SlotMachine
       s = "div_10 "
       builder = compiler.builder(compiler.source)
       integer_tmp = builder.allocate_int
+      integer_1 = builder.register( :integer_1 )
+      integer_reg = builder.register( :integer_reg )
+      integer_const = builder.register( :integer_const )
       builder.build do
-        integer_self! << message[:receiver]
+        integer_self = message[:receiver].to_reg.reduce_int
-        integer_self.reduce_int
+        transfer( integer_self , integer_1)
-        integer_1! << integer_self
+        transfer( integer_self , integer_reg)
-        integer_reg! << integer_self
+
+        load_object( Parfait::Integer.new(1) , integer_const)
 
-        integer_const! << 1
         integer_1.op :>> , integer_const
 
         integer_const << 2

test/risc/test_builder2.rb

@@ -10,6 +10,12 @@ module Risc
       @compiler = Risc::MethodCompiler.new( method, SlotMachine::Label.new( "source_name", "return_label") )
       @builder  = @compiler.builder(method)
     end
+    def test_register_creation
+      assert_equal RegisterValue , @builder.register(:name).class
+    end
+    def test_register_creation_compiler
+      assert @builder.register(:name).compiler
+    end
     def test_list
       assert_equal :List , @builder.infer_type(:list).class_name
     end

test/slot_machine/macro/test_div10.rb

@@ -14,7 +14,7 @@ module SlotMachine
         assert_equal Risc::MethodCompiler , @method.to_risc.class
       end
       def test_risc_length
-        assert_equal 70 , @method.to_risc.risc_instructions.length
+        assert_equal 69 , @method.to_risc.risc_instructions.length
       end
     end
   end