0.7.4.19:

	Merge TONYMS patch for ignored variables sbcl-devel 2002-06-06
	... update for new def!constant definition
	... delete eval-stack-related stuff in non-x86 trees too
	Fixup in ldso-stubs.S to allow building with gcc again
	... #define LANGUAGE_ASSEMBLY (but it might be better to put this
		in Config files eventually)
	Document build successes on SPARC

diff --git a/INSTALL b/INSTALL
index be9e1c4..f987259 100644 (file)
--- a/INSTALL
+++ b/INSTALL
@@ -50,6 +50,11 @@ This software has been built successfully on these systems:
                        host lisp = SBCL itself
                os = OpenBSD 2.6, 2.7, 2.8, 2.9, and 3.0
                        host lisp = SBCL itself
+       cpu = sparc
+               os = Debian GNU/Linux 2.2 with libc >= 2.2
+                       host lisp = SBCL itself
+               os = Solaris 8
+                       host lisp = SBCL itself
 It is known not to build under CLISP because of (as of early June 2002)
 bugs in the CLISP garbage collector, and it is known not to build under
 other systems like OpenMCL because of (as of early June 2002) remaining

diff --git a/src/code/defbangconstant.lisp b/src/code/defbangconstant.lisp
index 539b95b..fefa23a 100644 (file)
--- a/src/code/defbangconstant.lisp
+++ b/src/code/defbangconstant.lisp
@@ -23,6 +23,7 @@
 ;;; but my head is currently spinning (host? target? both?) so I'll go
 ;;; for the minimal changeset... -- CSR, 2002-05-11
 (defmacro def!constant (&whole whole name value &optional doc)
+  (declare (ignore value doc #-sb-xc-host name))
   `(progn
      #-sb-xc-host
      (defconstant ,@(cdr whole))

diff --git a/src/compiler/alpha/nlx.lisp b/src/compiler/alpha/nlx.lisp
index e11c746..6f33302 100644 (file)
--- a/src/compiler/alpha/nlx.lisp
+++ b/src/compiler/alpha/nlx.lisp
@@ -46,8 +46,7 @@
 (define-vop (save-dynamic-state)
   (:results (catch :scs (descriptor-reg))
            (nfp :scs (descriptor-reg))
-           (nsp :scs (descriptor-reg))
-           (eval :scs (descriptor-reg)))
+           (nsp :scs (descriptor-reg)))
   (:vop-var vop)
   (:generator 13
     (load-symbol-value catch *current-catch-block*)
@@ -59,8 +58,7 @@
 (define-vop (restore-dynamic-state)
   (:args (catch :scs (descriptor-reg))
         (nfp :scs (descriptor-reg))
-        (nsp :scs (descriptor-reg))
-        (eval :scs (descriptor-reg)))
+        (nsp :scs (descriptor-reg)))
   (:vop-var vop)
   (:temporary (:sc any-reg) temp)
   (:generator 10

diff --git a/src/compiler/ppc/nlx.lisp b/src/compiler/ppc/nlx.lisp
index 93c3231..58506d0 100644 (file)
--- a/src/compiler/ppc/nlx.lisp
+++ b/src/compiler/ppc/nlx.lisp
@@ -41,26 +41,22 @@
 (define-vop (save-dynamic-state)
   (:results (catch :scs (descriptor-reg))
            (nfp :scs (descriptor-reg))
-           (nsp :scs (descriptor-reg))
-           (eval :scs (descriptor-reg)))
+           (nsp :scs (descriptor-reg)))
   (:vop-var vop)
   (:generator 13
     (load-symbol-value catch *current-catch-block*)
     (let ((cur-nfp (current-nfp-tn vop)))
       (when cur-nfp
        (move nfp cur-nfp)))
-    (move nsp nsp-tn)
-    (load-symbol-value eval *eval-stack-top*)))
+    (move nsp nsp-tn)))
 
 (define-vop (restore-dynamic-state)
   (:args (catch :scs (descriptor-reg))
         (nfp :scs (descriptor-reg))
-        (nsp :scs (descriptor-reg))
-        (eval :scs (descriptor-reg)))
+        (nsp :scs (descriptor-reg)))
   (:vop-var vop)
   (:generator 10
     (store-symbol-value catch *current-catch-block*)
-    (store-symbol-value eval *eval-stack-top*)
     (let ((cur-nfp (current-nfp-tn vop)))
       (when cur-nfp
        (move cur-nfp nfp)))

diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index 9d0a4a1..5b87bcc 100644 (file)
--- a/src/compiler/ppc/parms.lisp
+++ b/src/compiler/ppc/parms.lisp
@@ -160,7 +160,6 @@
     ;; Things needed for non-local-exit.
     *current-catch-block*
     *current-unwind-protect-block*
-    *eval-stack-top*
 
     ;; Interrupt Handling
     *free-interrupt-context-index*

diff --git a/src/compiler/sparc/nlx.lisp b/src/compiler/sparc/nlx.lisp
index 5e67c47..4553b66 100644 (file)
--- a/src/compiler/sparc/nlx.lisp
+++ b/src/compiler/sparc/nlx.lisp
@@ -42,8 +42,7 @@
 (define-vop (save-dynamic-state)
     (:results (catch :scs (descriptor-reg))
              (nfp :scs (descriptor-reg))
-             (nsp :scs (descriptor-reg))
-             (eval :scs (descriptor-reg)))
+             (nsp :scs (descriptor-reg)))
   (:vop-var vop)
   (:generator 13
              (load-symbol-value catch *current-catch-block*)
@@ -55,8 +54,7 @@
 (define-vop (restore-dynamic-state)
     (:args (catch :scs (descriptor-reg))
           (nfp :scs (descriptor-reg))
-          (nsp :scs (descriptor-reg))
-          (eval :scs (descriptor-reg)))
+          (nsp :scs (descriptor-reg)))
   (:vop-var vop)
   (:generator 10
              (store-symbol-value catch *current-catch-block*)

diff --git a/src/compiler/x86/nlx.lisp b/src/compiler/x86/nlx.lisp
index c382da7..a58827f 100644 (file)
--- a/src/compiler/x86/nlx.lisp
+++ b/src/compiler/x86/nlx.lisp
@@ -47,7 +47,6 @@
 
 (define-vop (save-dynamic-state)
   (:results (catch :scs (descriptor-reg))
-           (eval :scs (descriptor-reg))
            (alien-stack :scs (descriptor-reg)))
   (:generator 13
     (load-symbol-value catch *current-catch-block*)
@@ -55,7 +54,6 @@
 
 (define-vop (restore-dynamic-state)
   (:args (catch :scs (descriptor-reg))
-        (eval :scs (descriptor-reg))
         (alien-stack :scs (descriptor-reg)))
   (:generator 10
     (store-symbol-value catch *current-catch-block*)

diff --git a/src/runtime/ldso-stubs.S b/src/runtime/ldso-stubs.S
index a61dd0e..37006fb 100644 (file)
--- a/src/runtime/ldso-stubs.S
+++ b/src/runtime/ldso-stubs.S
@@ -24,6 +24,7 @@
  * provided with absolutely no warranty. See the COPYING and CREDITS
  * files for more information.
  */
+#define LANGUAGE_ASSEMBLY
 #include "sbcl.h"
         .text
 

diff --git a/version.lisp-expr b/version.lisp-expr
index 003bd24..4bb1054 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.4.18"
+"0.7.4.19"