2014-09-14 20:26:30 +02:00
|
|
|
Virtual::MessageSlot.class_eval do
|
|
|
|
def reg
|
2015-05-24 14:31:30 +02:00
|
|
|
Register::RegisterReference.message_reg
|
2014-09-14 20:26:30 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
Virtual::FrameSlot.class_eval do
|
|
|
|
def reg
|
2015-05-24 14:31:30 +02:00
|
|
|
Register::RegisterReference.frame_reg
|
2014-09-14 20:26:30 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
Virtual::SelfSlot.class_eval do
|
|
|
|
def reg
|
2015-05-24 14:31:30 +02:00
|
|
|
Register::RegisterReference.self_reg
|
2014-09-14 20:26:30 +02:00
|
|
|
end
|
|
|
|
end
|
2015-06-20 23:21:42 +02:00
|
|
|
Virtual::NextMessageSlot.class_eval do
|
2014-09-14 20:26:30 +02:00
|
|
|
def reg
|
2015-05-24 14:31:30 +02:00
|
|
|
Register::RegisterReference.new_message_reg
|
2014-09-14 20:26:30 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2014-08-23 20:49:09 +02:00
|
|
|
module Register
|
2015-05-24 14:31:30 +02:00
|
|
|
# This implements setting of the various slot variables the vm defines.
|
2014-10-03 10:07:18 +02:00
|
|
|
# Basic mem moves, but have to shuffle the type nibbles (TODO!)
|
2015-05-24 14:31:30 +02:00
|
|
|
|
2014-08-23 12:57:14 +02:00
|
|
|
class SetImplementation
|
|
|
|
def run block
|
|
|
|
block.codes.dup.each do |code|
|
|
|
|
next unless code.is_a? Virtual::Set
|
2014-09-14 20:26:30 +02:00
|
|
|
# resolve the register and offset that we need to move to
|
|
|
|
to = code.to.reg
|
|
|
|
# need a temporay place because of indexed load/store
|
2015-05-24 14:31:30 +02:00
|
|
|
tmp = RegisterReference.tmp_reg
|
2014-09-14 20:26:30 +02:00
|
|
|
# for constants we have to "move" the constants value
|
2015-06-01 07:33:23 +02:00
|
|
|
if( code.from.is_a?(Parfait::Value) or code.from.is_a?(Symbol))
|
2015-06-25 15:31:09 +02:00
|
|
|
move1 = LoadConstant.new( code.from , tmp )
|
2014-09-14 20:26:30 +02:00
|
|
|
else # while otherwise we "load"
|
2015-06-21 20:00:16 +02:00
|
|
|
move1 = GetSlot.new( code.from.reg , code.from.index , tmp )
|
2014-08-23 19:25:19 +02:00
|
|
|
end
|
2014-10-03 10:07:18 +02:00
|
|
|
move2 = SetSlot.new( tmp , to , code.to.index )
|
2014-09-14 20:26:30 +02:00
|
|
|
block.replace(code , [move1,move2] )
|
2014-08-23 12:57:14 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
2015-06-01 07:40:17 +02:00
|
|
|
Virtual.machine.add_pass "Register::SetImplementation"
|
2014-08-23 12:57:14 +02:00
|
|
|
end
|