Update of /cvsroot/sbcl/sbcl/src/compiler/alpha
In directory usw-pr-cvs1:/tmp/cvs-serv10184/src/compiler/alpha
Modified Files:
vm.lisp
Log Message:
0.7.3.24:
Define SB!VM:EXTERN-ALIEN-NAME on the host for alpha and ppc, as
it's now needed in genesis.
... thanks to Eric Marsden for spotting the problem
Index: vm.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/vm.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** vm.lisp 19 May 2002 13:55:32 -0000 1.5
--- vm.lisp 22 May 2002 14:50:23 -0000 1.6
***************
*** 353,354 ****
--- 353,362 ----
(constant (format nil "Const~D" offset))
(immediate-constant "Immed"))))
+
+ ;;; The loader uses this to convert alien names to the form they
+ ;;; occure in the symbol table (for example, prepending an
+ ;;; underscore).
+ (defun extern-alien-name (name)
+ (declare (type simple-base-string name))
+ ;; On the Alpha we don't do anything.
+ name)
|