2014-08-23 20:49:09 +02:00
|
|
|
module Register
|
2014-08-23 12:57:14 +02:00
|
|
|
# This implements the send logic
|
|
|
|
# Send is so complicated that we actually code it in ruby and stick it in
|
|
|
|
# That off course opens up an endless loop possibility that we stop by reducing to Class and Module methods
|
|
|
|
class SetImplementation
|
|
|
|
def run block
|
|
|
|
block.codes.dup.each do |code|
|
|
|
|
next unless code.is_a? Virtual::Set
|
2014-08-23 20:49:09 +02:00
|
|
|
if( code.to.is_a? Virtual::NewMessageSlot)
|
2014-08-23 19:25:19 +02:00
|
|
|
to = RegisterReference.new(:r0)
|
|
|
|
tmp = RegisterReference.new(:r5)
|
2014-08-23 20:49:09 +02:00
|
|
|
move = RegisterMachine.instance.ldr( to , tmp , code.to.index )
|
|
|
|
block.replace(code , [move] )
|
2014-08-23 19:25:19 +02:00
|
|
|
else
|
|
|
|
raise "Start coding #{code.inspect}"
|
|
|
|
end
|
2014-08-23 12:57:14 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
2014-08-23 20:49:09 +02:00
|
|
|
Virtual::Object.space.add_pass_after SetImplementation , GetImplementation
|
2014-08-23 12:57:14 +02:00
|
|
|
end
|