From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Wed, 22 May 2002 14:50:22 +0000 (+0000)
Subject: 0.7.3.24:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c94a9f9d1be535ce5df6127cce722d3edd9a6345;p=sbcl.git

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
--- 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)))))))
-
-;;; 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
--- a/src/code/ppc-vm.lisp
+++ b/src/code/ppc-vm.lisp
@@ -162,11 +162,4 @@
 	       (values error-number (sc-offsets))))))
 
 
-
-;;; 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
--- 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"))))
+
+;;; 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
--- 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"))))
+
+;;; 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
--- 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"