X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fmacros.lisp;h=a02c756d79831767c67829e1834841c5f3f8b330;hb=a2ff6543c79752bfe42578f794bda1c28167fd10;hp=62d00c9cbeb3a880892d0f53f7d17a618a4eb4f2;hpb=0834142e83d6a1ee99260baa3a8ca1d1557b3737;p=sbcl.git

diff --git a/src/compiler/x86-64/macros.lisp b/src/compiler/x86-64/macros.lisp
index 62d00c9..a02c756 100644
--- a/src/compiler/x86-64/macros.lisp
+++ b/src/compiler/x86-64/macros.lisp
@@ -156,8 +156,7 @@
   (declare (ignore ignored))
   (inst push size)
   (inst lea r13-tn (make-ea :qword
-			    :disp (make-fixup (extern-alien-name "alloc_tramp")
-					      :foreign)))
+			    :disp (make-fixup "alloc_tramp" :foreign)))
   (inst call r13-tn)
   (inst pop alloc-tn)
   (values))
@@ -171,14 +170,12 @@
 	(free-pointer
 	 (make-ea :qword :disp 
 		  #!+sb-thread (* n-word-bytes thread-alloc-region-slot)
-		  #!-sb-thread (make-fixup (extern-alien-name "boxed_region")
-					   :foreign)
+		  #!-sb-thread (make-fixup "boxed_region" :foreign)
 		  :scale 1))		; thread->alloc_region.free_pointer
 	(end-addr 
 	 (make-ea :qword :disp
 		  #!+sb-thread (* n-word-bytes (1+ thread-alloc-region-slot))
-		  #!-sb-thread (make-fixup (extern-alien-name "boxed_region")
-					   :foreign 8)
+		  #!-sb-thread (make-fixup "boxed_region" :foreign 8)
 		  :scale 1)))		; thread->alloc_region.end_addr
     (cond (in-elsewhere
 	   (allocation-tramp alloc-tn size))
@@ -208,8 +205,7 @@
   (declare (ignore ignored))
   (inst push size)
   (inst lea r13-tn (make-ea :qword
-			    :disp (make-fixup (extern-alien-name "alloc_tramp")
-					      :foreign)))
+			    :disp (make-fixup "alloc_tramp" :foreign)))
   (inst call r13-tn)
   (inst pop alloc-tn)
   (values))