2015-06-29 20:58:52 +03:00
|
|
|
|
2014-08-23 21:49:09 +03:00
|
|
|
module Register
|
2015-05-24 15:31:30 +03:00
|
|
|
# This implements setting of the various slot variables the vm defines.
|
2014-10-03 11:07:18 +03:00
|
|
|
# Basic mem moves, but have to shuffle the type nibbles (TODO!)
|
2015-05-24 15:31:30 +03:00
|
|
|
|
2014-08-23 13:57:14 +03:00
|
|
|
class SetImplementation
|
|
|
|
def run block
|
|
|
|
block.codes.dup.each do |code|
|
|
|
|
next unless code.is_a? Virtual::Set
|
2014-09-14 21:26:30 +03:00
|
|
|
# need a temporay place because of indexed load/store
|
2015-06-29 20:58:52 +03:00
|
|
|
tmp = Register.tmp_reg
|
2014-09-14 21:26:30 +03:00
|
|
|
# for constants we have to "move" the constants value
|
2015-06-01 08:33:23 +03:00
|
|
|
if( code.from.is_a?(Parfait::Value) or code.from.is_a?(Symbol))
|
2015-06-25 16:31:09 +03:00
|
|
|
move1 = LoadConstant.new( code.from , tmp )
|
2014-09-14 21:26:30 +03:00
|
|
|
else # while otherwise we "load"
|
2015-06-30 09:39:45 +03:00
|
|
|
move1 = Register.get_slot( code.from.object_name , get_index(code.from) , tmp )
|
2014-08-23 20:25:19 +03:00
|
|
|
end
|
2015-06-30 09:39:45 +03:00
|
|
|
move2 = Register.set_slot( tmp , code.to.object_name , get_index(code.to) )
|
2014-09-14 21:26:30 +03:00
|
|
|
block.replace(code , [move1,move2] )
|
2014-08-23 13:57:14 +03:00
|
|
|
end
|
|
|
|
end
|
2015-06-29 20:58:52 +03:00
|
|
|
|
|
|
|
def get_index from
|
|
|
|
case from
|
|
|
|
when Virtual::Self , Virtual::NewSelf
|
|
|
|
return Register.resolve_index( :message , :receiver)
|
2015-07-02 09:48:41 +03:00
|
|
|
when Virtual::MessageName , Virtual::NewMessageName
|
|
|
|
return Register.resolve_index( :message , :name)
|
|
|
|
when Virtual::Return
|
|
|
|
return Register.resolve_index( :message , :return_value)
|
2015-06-29 20:58:52 +03:00
|
|
|
when Virtual::NewArgSlot
|
|
|
|
puts "from: #{from.index}"
|
2015-07-02 09:48:41 +03:00
|
|
|
return Register.resolve_index( :message , :name) + from.index
|
2015-06-29 20:58:52 +03:00
|
|
|
else
|
|
|
|
raise "not implemented for #{from.class}"
|
|
|
|
end
|
|
|
|
end
|
2014-08-23 13:57:14 +03:00
|
|
|
end
|
2015-06-01 08:40:17 +03:00
|
|
|
Virtual.machine.add_pass "Register::SetImplementation"
|
2014-08-23 13:57:14 +03:00
|
|
|
end
|