fix label positions

This commit is contained in:
Torsten Ruger 2015-11-15 00:36:15 +02:00
parent cea60f202a
commit 9602acf3d2

View File

@ -28,7 +28,7 @@ module Register
@machine.objects.each do |id , objekt| @machine.objects.each do |id , objekt|
next unless objekt.is_a? Parfait::Method next unless objekt.is_a? Parfait::Method
objekt.binary.position = at objekt.binary.position = at
objekt.instructions.set_position at objekt.instructions.set_position at + 8 # BinaryCode header
len = objekt.instructions.total_byte_length len = objekt.instructions.total_byte_length
log.debug "CODE #{objekt.name} at #{objekt.binary.position} len: #{len}" log.debug "CODE #{objekt.name} at #{objekt.binary.position} len: #{len}"
objekt.binary.set_length(len , 0) objekt.binary.set_length(len , 0)