Torsten Rüger
6aa6b32c50
since it is not an instruction, just a helper also doing this before rewriting slot recursively
50 lines
1.3 KiB
Ruby
50 lines
1.3 KiB
Ruby
module SlotMachine
|
|
class ConstantSlot < Slot
|
|
# get the right definition, depending on the object
|
|
def self.for(object , slots)
|
|
case object
|
|
when :message
|
|
MessageSlot.new(slots)
|
|
when Constant
|
|
ConstantSlot.new(object , slots)
|
|
else
|
|
Slot.new(object,slots)
|
|
end
|
|
end
|
|
|
|
def initialize( object , slots)
|
|
super(object, slots)
|
|
end
|
|
|
|
|
|
def known_name
|
|
known_object.class.short_name
|
|
end
|
|
|
|
# load the slots into a register
|
|
# the code is added to compiler
|
|
# the register returned
|
|
def to_register(compiler, source)
|
|
if known_object.respond_to?(:ct_type)
|
|
type = known_object.ct_type
|
|
else
|
|
type = :Object
|
|
end
|
|
right = compiler.use_reg( type )
|
|
case known_object
|
|
when Constant
|
|
parfait = known_object.to_parfait(compiler)
|
|
const = Risc.load_constant(source, parfait , right)
|
|
compiler.add_code const
|
|
if slots.length == 1
|
|
raise "only type allowed for constants, not #{slots[0]}" unless slots[0] == :type
|
|
compiler.add_code Risc::SlotToReg.new( source , right , Parfait::TYPE_INDEX, right)
|
|
end
|
|
raise "Can't have slots into Constants #{slots}" if slots.length > 1
|
|
end
|
|
return const.register
|
|
end
|
|
|
|
end
|
|
end
|