Index: /branches/x8664-call/ccl/compiler/X86/x86-disassemble.lisp
===================================================================
--- /branches/x8664-call/ccl/compiler/X86/x86-disassemble.lisp	(revision 6335)
+++ /branches/x8664-call/ccl/compiler/X86/x86-disassemble.lisp	(revision 6336)
@@ -58,4 +58,5 @@
                              :adjustable t))
   (symbolic-names ())
+  (delta 0)
 )
 
@@ -2605,7 +2606,8 @@
   (let* ((label (label-x86-lap-expression-label exp))
          (name (x86-lap-label-name label))
-         (entry (x86-ds-entry-point ds)))
+         (entry (x86-ds-entry-point ds))
+         (delta (x86-ds-delta ds)))
     `(":^" , (if (typep name 'fixnum)
-            (format nil "L~d" (- name entry))
+            (format nil "L~d" (+ delta (- name entry)))
             name))))
 
@@ -2646,6 +2648,7 @@
                                     ds)
   (let* ((addr (x86::x86-label-operand-label op))
-         (entrypoint (x86-ds-entry-point ds)))
-    (format nil "L~d" (- addr entrypoint))))
+         (entrypoint (x86-ds-entry-point ds))
+         (delta (x86-ds-delta ds)))
+    (format nil "L~d" (+ delta (- addr entrypoint)))))
 
 
@@ -2704,7 +2707,8 @@
 (defun x86-print-disassembled-instruction (ds instruction seq)
   (let* ((addr (x86-di-address instruction))
-         (entry (x86-ds-entry-point ds)))
+         (entry (x86-ds-entry-point ds))
+         (delta (x86-ds-delta ds)))
     (when (x86-di-labeled instruction)
-      (format t "~&L~d~&" (- addr entry))
+      (format t "~&L~d~&" (+ delta (- addr entry)))
       (setq seq 0))
     (dolist (p (x86-di-prefixes instruction))
@@ -2722,5 +2726,5 @@
     (format t ")")
     (unless (zerop seq) ;(when (oddp seq)
-      (format t "~50t;[~d]" (- addr entry)))
+      (format t "~50t;[~d]" (+ delta (- addr entry))))
     (format t "~%")
     (1+ seq)))
@@ -2737,5 +2741,6 @@
               :code-pointer 0           ; for next-u32 below
               :symbolic-names symbolic-names
-              :pending-labels (list 7)))
+              :pending-labels (list 7)
+              :delta x8664::fulltag-function))
          (blocks (x86-ds-blocks ds)))
     (setf (x86-ds-code-limit ds)