X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fx86-64%2Ftarget-insts.lisp;h=8f48d181c0177ab902b9696140666c1681a248b2;hb=69d60b456b07a0256f08df0d02484f361ce5737c;hp=5411762a26fd57173228ea5982ab85fd647e1a77;hpb=6e89948ce34d63b35eea687ca7cde0f2876c3062;p=sbcl.git

diff --git a/src/compiler/x86-64/target-insts.lisp b/src/compiler/x86-64/target-insts.lisp
index 5411762..8f48d18 100644
--- a/src/compiler/x86-64/target-insts.lisp
+++ b/src/compiler/x86-64/target-insts.lisp
@@ -61,12 +61,13 @@
 	    (rip-p
 	     (princ offset stream)
 	     (let ((addr (+ offset (sb!disassem:dstate-next-addr dstate))))
-	       (or (nth-value 1
-			      (sb!disassem::note-code-constant-absolute
-			       addr dstate))
-		   (sb!disassem:maybe-note-assembler-routine addr
-							     nil
-							     dstate))))
+	       (when (plusp addr)
+		 (or (nth-value 1
+				(sb!disassem::note-code-constant-absolute
+				 addr dstate))
+		     (sb!disassem:maybe-note-assembler-routine addr
+							       nil
+							       dstate)))))
 	    (firstp
 	     (progn
 	       (sb!disassem:princ16 offset stream)