whitespace and code style
This commit is contained in:
@ -32,11 +32,12 @@ module Register
|
||||
def asseble_code_from( at )
|
||||
@machine.objects.each do |id , objekt|
|
||||
next unless objekt.is_a? Parfait::TypedMethod
|
||||
log.debug "CODE1 #{objekt.name}"
|
||||
binary = objekt.binary
|
||||
binary.set_position( at )
|
||||
objekt.instructions.set_position( at + 12 )# BinaryCode header
|
||||
len = objekt.instructions.total_byte_length
|
||||
log.debug "CODE #{objekt.name} at #{binary.position} len: #{len}"
|
||||
log.debug "CODE2 #{objekt.name} at #{binary.position} len: #{len}"
|
||||
binary.set_length(len , 0)
|
||||
at += binary.padded_length
|
||||
end
|
||||
|
@ -5,14 +5,14 @@ module Register
|
||||
def collect_space
|
||||
@objects.clear
|
||||
keep Parfait.object_space , 0
|
||||
constants.each {|o| keep(o,0)}
|
||||
constants.each {|obj| keep(obj,0)}
|
||||
end
|
||||
|
||||
def keep object , depth
|
||||
return if object.nil?
|
||||
#puts "adding #{' ' * depth}:#{object.class}"
|
||||
#puts "ADD #{object.first.class}, #{object.last.class}" if object.is_a? Array
|
||||
return unless self.add_object object
|
||||
#puts "ADD #{object.inspect}, #{object.hash}" if object.is_a? Parfait::Type
|
||||
return unless add_object( object )
|
||||
# probably should make labels or even instructions derive from Parfait::Object, but . .
|
||||
if object.is_a? Register::Label
|
||||
object.each_label { |l| self.add_object(l)}
|
||||
|
@ -51,7 +51,7 @@ module Register
|
||||
end
|
||||
|
||||
# Objects are data and get assembled after functions
|
||||
def add_object objekt
|
||||
def add_object( objekt )
|
||||
return false if @objects[objekt.object_id]
|
||||
return true if objekt.is_a? Fixnum
|
||||
unless objekt.is_a?( Parfait::Object) or objekt.is_a?( Symbol) or objekt.is_a?( Register::Label)
|
||||
|
Reference in New Issue
Block a user