X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Finsts.lisp;h=6395c9ea2cf479b710874062e451475f15f0a675;hb=fdf07da187cb31fd5bdd872c73245fd72877b1a1;hp=d86150993b1497e5be9b5e0f42795d1ab4dbc943;hpb=7e6637658236983ecbabea50f167fb9d3c5ed505;p=sbcl.git

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index d861509..6395c9e 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -663,11 +663,11 @@
 	(t
 	 (format stream "~A PTR [" (symbol-name (ea-size ea)))
 	 (when (ea-base ea)
-	   (write-string (x86-location-print-name (ea-base ea)) stream)
+	   (write-string (sb!c::location-print-name (ea-base ea)) stream)
 	   (when (ea-index ea)
 	     (write-string "+" stream)))
 	 (when (ea-index ea)
-	   (write-string (x86-location-print-name (ea-index ea)) stream))
+	   (write-string (sb!c::location-print-name (ea-index ea)) stream))
 	 (unless (= (ea-scale ea) 1)
 	   (format stream "*~A" (ea-scale ea)))
 	 (typecase (ea-disp ea)