continue to rewrite message_setup

message come from space already.
next types
This commit is contained in:
Torsten Ruger
2018-04-05 20:37:03 +03:00
parent f09086e524
commit d52e14d201
4 changed files with 26 additions and 9 deletions

View File

@ -55,7 +55,7 @@ module Mom
# get the next message from space and unlink it there
# also put it into next_message of current message
# use given message regster
# use given message register
# return instructions to do this
def get_message_to( compiler , message)
space = compiler.use_reg(:Space)
@ -63,6 +63,8 @@ module Mom
risc << Risc.slot_to_reg(source + "get next message" , space , :first_message , message)
next_message = compiler.use_reg( :Message )
risc << Risc.slot_to_reg(source + "get next message" , message , :next_message , next_message)
risc << Risc.reg_to_slot(source + "store next message" , next_message , space , :first_message)
risc << Risc.reg_to_slot(source + "store message in current" , message , :message , :next_message)
end
end

View File

@ -43,7 +43,7 @@ module Parfait
raise "not type #{@type.class}" unless @type.is_a?(Type)
name = @type.name_at(index)
#return value unless name
raise "object type (#{type}) has no name at index #{index} " unless name
raise "object type (#{@type}) has no name at index #{index} " unless name
instance_variable_set("@#{name}".to_sym, value)
value
end