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

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

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))

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

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)))

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*

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*)

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*)

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
 

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"