X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fc-call.lisp;h=489fec0f28ee156ab2877b4817be2b534acd962d;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=15484f2ca91ba8fb24146a44677597bac1668429;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git

diff --git a/src/compiler/hppa/c-call.lisp b/src/compiler/hppa/c-call.lisp
index 15484f2..489fec0 100644
--- a/src/compiler/hppa/c-call.lisp
+++ b/src/compiler/hppa/c-call.lisp
@@ -1,3 +1,14 @@
+;;;; VOPs and other machine-specific support routines for call-out to C
+
+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; This software is derived from the CMU CL system, which was
+;;;; written at Carnegie Mellon University and released into the
+;;;; public domain. The software is in the public domain and is
+;;;; provided with absolutely no warranty. See the COPYING and CREDITS
+;;;; files for more information.
+
 (in-package "SB!VM")
 
 (defun my-make-wired-tn (prim-type-name sc-name offset)
@@ -60,7 +71,7 @@
 (define-alien-type-method (values :result-tn) (type)
   (let ((values (alien-values-type-values type)))
     (when values
-      (assert (null (cdr values)))
+      (aver (null (cdr values)))
       (invoke-alien-type-method :result-tn (car values)))))
 
 (defun make-arg-tns (type)
@@ -101,9 +112,8 @@
 	     :result-tn
 	     (alien-fun-type-result-type type)))))
 
-
-(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))
@@ -136,7 +146,6 @@
       (when cur-nfp
 	(load-stack-tn cur-nfp nfp-save)))))
 
-
 (define-vop (alloc-number-stack-space)
   (:info amount)
   (:results (result :scs (sap-reg any-reg)))