up to, ut not including, creating frames

This commit is contained in:
Torsten Ruger
2014-09-24 18:25:18 +03:00
parent 363fe5e35f
commit df9d6284ae
7 changed files with 38 additions and 12 deletions

View File

@ -1,4 +1,5 @@
require_relative "type"
require "parfait/message"
module Virtual
# our machine is made up of objects, some of which are code, some data
@ -80,6 +81,22 @@ module Virtual
end
end
end
::Message.class_eval do
def layout
Virtual::Object.layout
end
def mem_length
Virtual::Object.new.padded_words(2)
end
end
::Frame.class_eval do
def layout
Virtual::Object.layout
end
def mem_length
Virtual::Object.new.padded_words(2)
end
end
Parfait::Hash.class_eval do
HASH = { :names => [:keys,:values] , :types => [Virtual::Reference,Virtual::Reference]}
def layout