whitespace and code style

This commit is contained in:
Torsten Ruger
2016-12-30 19:17:15 +02:00
parent db798d1a4a
commit 83b6628f1a
6 changed files with 12 additions and 11 deletions

View File

@ -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

View File

@ -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)}

View File

@ -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)