use load_constant factory method

lib/typed/method_compiler/basic_values.rb

@@ -13,25 +13,25 @@ module Typed
     def on_IntegerExpression expression
       int = expression.value
       reg = use_reg :Integer , int
-      add_code Register::LoadConstant.new( expression, int , reg )
+      add_code Register.load_constant( expression, int , reg )
       return reg
     end
 
     def on_TrueExpression expression
       reg = use_reg :Boolean
-      add_code Register::LoadConstant.new( expression, true , reg )
+      add_code Register.load_constant( expression, true , reg )
       return reg
     end
 
     def on_FalseExpression expression
       reg = use_reg :Boolean
-      add_code Register::LoadConstant.new( expression, false , reg )
+      add_code Register.load_constant( expression, false , reg )
       return reg
     end
 
     def on_NilExpression expression
       reg = use_reg :NilClass
-      add_code Register::LoadConstant.new( expression, nil , reg )
+      add_code Register.load_constant( expression, nil , reg )
       return reg
     end
 
@@ -39,7 +39,7 @@ module Typed
       value = Parfait.new_word expression.value.to_sym
       reg = use_reg :Word
       Register.machine.constants << value
-      add_code Register::LoadConstant.new( expression, value , reg )
+      add_code Register.load_constant( expression, value , reg )
       return reg
     end
 
@@ -48,7 +48,7 @@ module Typed
       clazz = Parfait::Space.object_space.get_class_by_name! name
       raise "No such class #{name}" unless clazz
       reg = use_reg :MetaClass , clazz
-      add_code Register::LoadConstant.new( expression, clazz , reg )
+      add_code Register.load_constant( expression, clazz , reg )
       return reg
     end
 

lib/typed/method_compiler/call_site.rb

@@ -58,12 +58,12 @@ module Typed
     def set_message_details( method , name_s , arguments )
       name = name_s.name
       name_tmp = use_reg(:Word)
-      add_code Register::LoadConstant.new("#{name} load method name", name , name_tmp)
+      add_code Register.load_constant("#{name} load method name", name , name_tmp)
       add_code Register.reg_to_slot( "#{name} store method name" , name_tmp , :new_message , :name)
       # next arg and local types
       args_reg = use_reg(:Type , method.arguments )
       list_reg = use_reg(:NamedList , arguments )
-      add_code Register::LoadConstant.new("#{name} load methods", method , args_reg)
+      add_code Register.load_constant("#{name} load methods", method , args_reg)
       args_type_index = method.get_type().variable_index(:arguments)
       raise args_type_index.to_s unless args_type_index == 6
       add_code Register.slot_to_reg( "#{name} get args type from method" , args_reg ,  args_type_index ,  args_reg  )
@@ -72,7 +72,7 @@ module Typed
 
 #FIXME need to set type of locals too. sama sama
 #      len_tmp = use_reg(:Integer , arguments.to_a.length )
-#      add_code Register::LoadConstant.new(name_s, arguments.to_a.length , len_tmp)
+#      add_code Register.load_constant(name_s, arguments.to_a.length , len_tmp)
 #      add_code Register.reg_to_slot( name_s , len_tmp , :new_message , :indexed_length)
     end
 

lib/typed/method_compiler/name_expression.rb

@@ -45,7 +45,7 @@ module Typed
       def handle_special_space(statement)
         space = Parfait::Space.object_space
         reg = use_reg :Space , space
-        add_code Register::LoadConstant.new( "#{statement} load space", space , reg )
+        add_code Register.load_constant( "#{statement} load space", space , reg )
         return reg
       end