Update of /cvsroot/sbcl/sbcl/src/code
In directory usw-pr-cvs1:/tmp/cvs-serv10184/src/code
Modified Files:
alpha-vm.lisp ppc-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: alpha-vm.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/alpha-vm.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** alpha-vm.lisp 5 May 2002 15:09:34 -0000 1.12
--- alpha-vm.lisp 22 May 2002 14:50:23 -0000 1.13
***************
*** 171,181 ****
(sc-offsets (sb!c::read-var-integer vector index)))
(values error-number (sc-offsets)))))))
-
- ;;; 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)
--- 171,173 ----
Index: ppc-vm.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/ppc-vm.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ppc-vm.lisp 5 May 2002 15:09:34 -0000 1.2
--- ppc-vm.lisp 22 May 2002 14:50:23 -0000 1.3
***************
*** 163,172 ****
-
- ;;; The loader uses this to convert alien names to the form they
- ;;; occur in the symbol table. This is ELF, so do nothing
-
- (defun extern-alien-name (name)
- (declare (type simple-base-string name))
- name)
--- 163,165 ----
|