31 lines
934 B
Ruby
31 lines
934 B
Ruby
|
module Vm
|
||
|
|
class Reference < Word
|
||
|
|
# needs to be here as Word's constructor is private (to make it abstract)
|
||
|
|
def initialize reg , clazz = nil
|
||
|
|
super(reg)
|
||
|
|
@clazz = clazz
|
||
|
|
end
|
||
|
|
attr_accessor :clazz
|
||
|
|
|
||
|
|
def load block , right
|
||
|
|
if(right.is_a? IntegerConstant)
|
||
|
|
block.mov( self , right ) #move the value
|
||
|
|
elsif right.is_a? StringConstant
|
||
|
|
block.add( self , right , nil) #move the address, by "adding" to pc, ie pc relative
|
||
|
|
block.mov( Integer.new(self.register.next_reg_use) , right.length ) #and the length HACK TODO
|
||
|
|
elsif right.is_a?(Boot::BootClass) or right.is_a?(Boot::MetaClass)
|
||
|
|
block.add( self , right , nil) #move the address, by "adding" to pc, ie pc relative
|
||
|
|
else
|
||
|
|
raise "unknown #{right.inspect}"
|
||
|
|
end
|
||
|
|
self
|
||
|
|
end
|
||
|
|
|
||
|
|
def at_index block , left , right
|
||
|
|
block.ldr( self , left , right )
|
||
|
|
self
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|
||
|
|
end
|