fix the init also, was using first message twice
not advancing after first load
This commit is contained in:
@ -46,17 +46,22 @@ module Risc
|
||||
def __init__ context
|
||||
compiler = Risc::MethodCompiler.create_method(:Object,:__init__ ,
|
||||
Parfait::NamedList.type_for({}) , Parfait::NamedList.type_for({}))
|
||||
space_reg = compiler.use_reg(:Space) #Set up the Space as self upon init
|
||||
compiler.add_load_constant("__init__ load Space", Parfait.object_space , space_reg)
|
||||
message_ind = Risc.resolve_to_index( :Space , :first_message )
|
||||
#load the first_message (instance of space)
|
||||
compiler.add_slot_to_reg( "__init__ load 1st message" , space_reg , message_ind , :message)
|
||||
compiler.add_mom( Mom::MessageSetup.new(Parfait.object_space.get_main))
|
||||
# but use it's next message, so main can return normally
|
||||
compiler.add_slot_to_reg( "__init__ load 2nd message" , :message , :next_message , :message)
|
||||
compiler.add_load_constant("__init__ load Space", Parfait.object_space , space_reg)
|
||||
compiler.add_reg_to_slot( "__init__ store Space in message", space_reg , :message , :receiver)
|
||||
#fixme: should add arg type here, as done in call_site (which this sort of is)
|
||||
builder = Risc::Builder.new(compiler)
|
||||
risc = builder.build do
|
||||
space << Parfait.object_space
|
||||
message << space[:first_message]
|
||||
next_message << message[:next_message]
|
||||
space[:first_message] << next_message
|
||||
end
|
||||
compiler.add_code(risc)
|
||||
|
||||
Mom::MessageSetup.new(Parfait.object_space.get_main).build_with( builder )
|
||||
|
||||
builder.build do
|
||||
message << message[:next_message]
|
||||
message[:receiver] << space
|
||||
end
|
||||
|
||||
exit_label = Risc.label("_exit_label for __init__" , "#{compiler.type.object_class.name}.#{compiler.method.name}" )
|
||||
ret_tmp = compiler.use_reg(:Label)
|
||||
compiler.add_load_constant("__init__ load return", exit_label , ret_tmp)
|
||||
|
Reference in New Issue
Block a user