X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fppc%2Fc-call.lisp;h=a8fedc861c925413c154dd9f326d1ac8150e45af;hb=dc33d6a6b84f8338e603759cec8e25da29055d50;hp=fa4df33a82ac0a5fdf0f05b861308b7f46221799;hpb=15ecd1ada227a60bcb3a660a4924c8d9449cb997;p=sbcl.git

diff --git a/src/compiler/ppc/c-call.lisp b/src/compiler/ppc/c-call.lisp
index fa4df33..a8fedc8 100644
--- a/src/compiler/ppc/c-call.lisp
+++ b/src/compiler/ppc/c-call.lisp
@@ -299,8 +299,8 @@
 			   ,@(new-args))))))
 	(sb!c::give-up-ir1-transform))))
 
-(define-vop (foreign-symbol-address)
-  (:translate foreign-symbol-address)
+(define-vop (foreign-symbol-sap)
+  (:translate foreign-symbol-sap)
   (:policy :fast-safe)
   (:args)
   (:arg-types (:constant simple-string))
@@ -311,8 +311,8 @@
     (inst lr res  (make-fixup foreign-symbol :foreign))))
 
 #!+linkage-table
-(define-vop (foreign-symbol-dataref-address)
-  (:translate foreign-symbol-dataref-address)
+(define-vop (foreign-symbol-dataref-sap)
+  (:translate foreign-symbol-dataref-sap)
   (:policy :fast-safe)
   (:args)
   (:arg-types (:constant simple-string))
@@ -485,7 +485,7 @@
 		(inst stw r0 sp (* 2 n-word-bytes)) ; FIXME: magic constant
 		(inst stwu sp sp (- frame-size))
 		;; Make the call
-		(load-address-into r0 (foreign-symbol-address-as-integer "funcall3"))
+		(load-address-into r0 (foreign-symbol-address "funcall3"))
 		(inst mtlr r0)
 		(inst blrl))
 	      ;; We're back!  Restore sp and lr, load the return value from just