2015-05-06 07:38:29 +02:00
|
|
|
module Virtual
|
|
|
|
# A slot is a slot in an object. It is the storage location for a value.
|
|
|
|
# (Remember, values are typed)
|
|
|
|
# From a memory perspective a slot is an index into an array (the object)
|
|
|
|
# But we are not modelling the array here, but the index into it.
|
|
|
|
|
|
|
|
# Four known objects exist and those correspond to subclasses:
|
|
|
|
# - the message that has been received: MessageSlot
|
|
|
|
# - the frame of the method that is executing (local variables): FrameSlot
|
|
|
|
# - self as an object: SelfSlot
|
|
|
|
# - a message that will be sent, NewMessageSlot
|
|
|
|
|
|
|
|
# additionally frame, self and return are slots in Message and NewMessage
|
|
|
|
|
|
|
|
# Slot has a lot of small subclasses
|
|
|
|
# Names for the slots avoid indexes
|
|
|
|
|
|
|
|
class Slot < Object
|
|
|
|
MESSAGE_REGISTER = :r0
|
|
|
|
SELF_REGISTER = :r1
|
|
|
|
FRAME_REGISTER = :r2
|
|
|
|
NEW_MESSAGE_REGISTER = :r3
|
|
|
|
|
|
|
|
MESSAGE_CALLER = 0
|
|
|
|
MESSAGE_RETURN_ADDRESS = 1
|
|
|
|
MESSAGE_EXCEPTION_ADDRESS = 2
|
|
|
|
MESSAGE_SELF = 3
|
|
|
|
MESSAGE_NAME = 4
|
|
|
|
MESSAGE_RETURN_VALUE = 5
|
|
|
|
MESSAGE_FRAME = 6
|
|
|
|
MESSAGE_PAYLOAD = 7
|
|
|
|
|
|
|
|
attr_accessor :index , :type , :value
|
|
|
|
|
|
|
|
private #abstract base class
|
|
|
|
|
|
|
|
def initialize index , type , value
|
|
|
|
@index = index
|
|
|
|
@type = type
|
|
|
|
@value = value
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
class FrameSlot < Slot
|
2015-06-11 07:04:14 +02:00
|
|
|
def initialize index , type = Unknown, value = nil
|
2015-05-06 07:38:29 +02:00
|
|
|
super
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
class SelfSlot < Slot
|
2015-06-11 07:04:14 +02:00
|
|
|
def initialize index , type = Unknown, value = nil
|
2015-05-06 07:38:29 +02:00
|
|
|
super
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
require_relative "message_slot"
|
|
|
|
require_relative "new_message_slot"
|