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
host lisp = SBCL itself
os = OpenBSD 2.6, 2.7, 2.8, 2.9, and 3.0
host lisp = SBCL itself
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
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
;;; 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)
;;; 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))
`(progn
#-sb-xc-host
(defconstant ,@(cdr whole))
(define-vop (save-dynamic-state)
(:results (catch :scs (descriptor-reg))
(nfp :scs (descriptor-reg))
(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*)
(:vop-var vop)
(:generator 13
(load-symbol-value catch *current-catch-block*)
(define-vop (restore-dynamic-state)
(:args (catch :scs (descriptor-reg))
(nfp :scs (descriptor-reg))
(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
(:vop-var vop)
(:temporary (:sc any-reg) temp)
(:generator 10
(define-vop (save-dynamic-state)
(:results (catch :scs (descriptor-reg))
(nfp :scs (descriptor-reg))
(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)))
(: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*)))
(define-vop (restore-dynamic-state)
(:args (catch :scs (descriptor-reg))
(nfp :scs (descriptor-reg))
(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*)
(: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)))
(let ((cur-nfp (current-nfp-tn vop)))
(when cur-nfp
(move cur-nfp nfp)))
;; Things needed for non-local-exit.
*current-catch-block*
*current-unwind-protect-block*
;; Things needed for non-local-exit.
*current-catch-block*
*current-unwind-protect-block*
;; Interrupt Handling
*free-interrupt-context-index*
;; Interrupt Handling
*free-interrupt-context-index*
(define-vop (save-dynamic-state)
(:results (catch :scs (descriptor-reg))
(nfp :scs (descriptor-reg))
(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*)
(:vop-var vop)
(:generator 13
(load-symbol-value catch *current-catch-block*)
(define-vop (restore-dynamic-state)
(:args (catch :scs (descriptor-reg))
(nfp :scs (descriptor-reg))
(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*)
(:vop-var vop)
(:generator 10
(store-symbol-value catch *current-catch-block*)
(define-vop (save-dynamic-state)
(:results (catch :scs (descriptor-reg))
(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*)
(alien-stack :scs (descriptor-reg)))
(:generator 13
(load-symbol-value catch *current-catch-block*)
(define-vop (restore-dynamic-state)
(:args (catch :scs (descriptor-reg))
(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*)
(alien-stack :scs (descriptor-reg)))
(:generator 10
(store-symbol-value catch *current-catch-block*)
* provided with absolutely no warranty. See the COPYING and CREDITS
* files for more information.
*/
* provided with absolutely no warranty. See the COPYING and CREDITS
* files for more information.
*/
+#define LANGUAGE_ASSEMBLY
;;; for internal versions, especially for internal versions off the
;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
;;; for internal versions, especially for internal versions off the
;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)