storing method, not just name in message

goes with a rename and other admin
This commit is contained in:
Torsten Ruger
2015-07-01 19:39:23 +03:00
parent 5e85d0781f
commit 6a23ef8b26
8 changed files with 20 additions and 15 deletions

View File

@ -26,11 +26,11 @@ module Virtual
layouts = { :Word => [] ,
:List => [] ,
# Assumtion is that name is the last of message
:Message => [:next_message , :receiver , :frame , :return_address , :return_value,
:caller , :name ],
:Message => [:next_message , :receiver , :frame , :return_address , :return_value,
:caller , :method ],
:MetaClass => [],
:BinaryCode => [],
:Space => [:classes ,:init_message , :next_message ,:next_frame, :syscall_message],
:Space => [:classes , :first_message , :syscall_message],
:Frame => [:next_frame ],
:Layout => [:object_class] ,
:Class => [:object_layout ],

View File

@ -8,7 +8,7 @@ module Virtual
me = Compiler.compile( expession.receiver , method )
method.info.add_code NewMessage.new
method.info.add_code Set.new( me , NewSelf.new(me.type))
method.info.add_code Set.new( expession.name.to_sym , NewMessageName.new())
method.info.add_code Set.new( expession.name.to_sym , NewMessageMethod.new())
compiled_args = []
expession.args.each_with_index do |arg , i|
#compile in the running method, ie before passing control

View File

@ -7,6 +7,10 @@ module Virtual
new_codes = []
# save return register to the message at instance return_address
new_codes << Register.save_return(:message , :return_address)
# set the method instance on message, have to load first
tmp = Register.tmp_reg
new_codes << Register::LoadConstant.new( code.method , tmp )
new_codes << Register.set_slot( tmp , :message , :method)
# and create a new frame if needed
unless code.method.locals.empty? and code.method.tmps.empty?
new_codes << Virtual::NewFrame.new

View File

@ -31,8 +31,8 @@ module Virtual
end
end
# MessageName of the current message
class MessageName < MessageSlot
# MessageMethod of the current message
class MessageMethod < MessageSlot
def initialize type = Unknown, value = nil
super( type , value )
end

View File

@ -31,14 +31,14 @@ module Virtual
end
end
# NewMessageName of the next message
class NewMessageName < NewMessageSlot
# NewMessageMethod of the next message
class NewMessageMethod < NewMessageSlot
def initialize type = Unknown, value = nil
super( type , value )
end
end
# NewMessageName of the next message
# NewMessageMethod of the next message
class NewArgSlot < NewMessageSlot
def initialize index , type = Unknown, value = nil
@index = index