From: Christophe R. <cr...@us...> - 2002-05-22 15:32:55
|
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) |