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

diff --git a/src/code/alpha-vm.lisp b/src/code/alpha-vm.lisp
index 7a2b26e..fe440d0 100644 (file)
--- a/src/code/alpha-vm.lisp
+++ b/src/code/alpha-vm.lisp
@@ -170,12 +170,4 @@
                     (return))
                   (sc-offsets (sb!c::read-var-integer vector index)))
                  (values error-number (sc-offsets)))))))
-\f
-;;; 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)
 

diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp
index c9441df..a8fc742 100644 (file)
--- a/src/code/ppc-vm.lisp
+++ b/src/code/ppc-vm.lisp
@@ -162,11 +162,4 @@
               (values error-number (sc-offsets))))))
 
 
-\f
-;;; 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)
 

diff --git a/src/compiler/alpha/vm.lisp b/src/compiler/alpha/vm.lisp
index cb00650..6c31284 100644 (file)
--- a/src/compiler/alpha/vm.lisp
+++ b/src/compiler/alpha/vm.lisp
@@ -352,3 +352,11 @@
       (non-descriptor-stack (format nil "NS~D" offset))
       (constant (format nil "Const~D" offset))
       (immediate-constant "Immed"))))
+\f
+;;; 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)

diff --git a/src/compiler/ppc/vm.lisp b/src/compiler/ppc/vm.lisp
index 6e20e08..2b0a7cd 100644 (file)
--- a/src/compiler/ppc/vm.lisp
+++ b/src/compiler/ppc/vm.lisp
@@ -325,3 +325,10 @@
       (non-descriptor-stack (format nil "NS~D" offset))
       (constant (format nil "Const~D" offset))
       (immediate-constant "Immed"))))
+\f
+;;; 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)

diff --git a/version.lisp-expr b/version.lisp-expr
index 6a16efc..f3ccd1f 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.3.23"
+"0.7.3.24"