From 9602acf3d227058f9eb92adf015f7716c7973e06 Mon Sep 17 00:00:00 2001
From: Torsten Ruger <torsten@villataika.fi>
Date: Sun, 15 Nov 2015 00:36:15 +0200
Subject: [PATCH] fix label positions

---
 lib/register/assembler.rb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/register/assembler.rb b/lib/register/assembler.rb
index 8d18269e..d99a0d68 100644
--- a/lib/register/assembler.rb
+++ b/lib/register/assembler.rb
@@ -28,7 +28,7 @@ module Register
       @machine.objects.each do |id , objekt|
         next unless objekt.is_a? Parfait::Method
         objekt.binary.position = at
-        objekt.instructions.set_position at
+        objekt.instructions.set_position at + 8 # BinaryCode header
         len = objekt.instructions.total_byte_length
         log.debug "CODE #{objekt.name} at #{objekt.binary.position} len: #{len}"
         objekt.binary.set_length(len , 0)