stash old vm

moving on to getting mom to work and can’t have both
interpreter and elf broke, about 100 tests  went

stash/vm/method_compiler/name_expression.rb

@@ -0,0 +1,58 @@
+module Vm
+  module NameExpression
+
+      #    attr_reader  :name
+      # compiling name needs to check if it's a local variable
+      # or an argument
+      # whichever way this goes the result is stored in the return slot (as all compiles)
+      def on_KnownName statement
+        name = statement.name
+        [:self , :space , :message].each do |special|
+          return send(:"load_special_#{special}" , statement ) if name == special
+        end
+        raise "Unknow 'known' expression #{name}"
+      end
+
+      def on_ArgumentName(statement)
+        name = statement.name
+        index = @method.has_argument(name)
+        raise "no arg #{name}" unless index
+        named_list = use_reg :NamedList
+        ret = use_reg @method.arguments_type(index)
+        #puts "For #{name} at #{index} got #{@method.arguments.inspect}"
+        add_slot_to_reg("#{statement} load args" , :message , :arguments, named_list )
+        add_slot_to_reg("#{statement} load #{name}" , named_list , index + 1, ret )
+        return ret
+      end
+
+      def on_LocalName( statement )
+        name = statement.name
+        index = @method.has_local( name )
+        raise "must define local '#{name}' before using it" unless index
+        named_list = use_reg :NamedList
+        add_slot_to_reg("#{name} load locals" , :message , :locals , named_list )
+        ret = use_reg @method.locals_type( index )
+        add_slot_to_reg("#{name} load from locals" , named_list , index + 1, ret )
+        return ret
+      end
+
+      def load_special_self(statement)
+        ret = use_reg @type
+        add_slot_to_reg("#{statement} load self" , :message , :receiver , ret )
+        return ret
+      end
+
+      def load_special_space(statement)
+        space = Parfait.object_space
+        reg = use_reg :Space , space
+        add_load_constant( "#{statement} load space", space , reg )
+        return reg
+      end
+
+      def load_special_message(statement)
+        reg = use_reg :Message
+        add_transfer( "#{statement} load message", Risc.message_reg , reg )
+        return reg
+      end
+  end #module
+end