Skip to content
Snippets Groups Projects
Commit 5d85169b authored by dtc's avatar dtc
Browse files

Cleanup of some backend symbols; the following have been moved to the

x86 package:
*allocation-pointer*
*binding-stack-pointer*
*x86-cgc-active-p*
*static-blue-bag*
*internal-gc-trigger*
All *unused-static-**
parent f44ef643
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/cell.lisp,v 1.1 1997/01/18 14:31:23 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/cell.lisp,v 1.2 1997/02/13 01:20:32 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -182,10 +182,10 @@ ...@@ -182,10 +182,10 @@
(symbol :scs (descriptor-reg))) (symbol :scs (descriptor-reg)))
(:temporary (:sc dword-reg) temp bsp) (:temporary (:sc dword-reg) temp bsp)
(:generator 5 (:generator 5
(load-symbol-value bsp lisp::*binding-stack-pointer*) (load-symbol-value bsp *binding-stack-pointer*)
(loadw temp symbol symbol-value-slot other-pointer-type) (loadw temp symbol symbol-value-slot other-pointer-type)
(inst add bsp (* binding-size word-bytes)) (inst add bsp (* binding-size word-bytes))
(store-symbol-value bsp lisp::*binding-stack-pointer*) (store-symbol-value bsp *binding-stack-pointer*)
(storew temp bsp (- binding-value-slot binding-size)) (storew temp bsp (- binding-value-slot binding-size))
(storew symbol bsp (- binding-symbol-slot binding-size)) (storew symbol bsp (- binding-symbol-slot binding-size))
(storew val symbol symbol-value-slot other-pointer-type))) (storew val symbol symbol-value-slot other-pointer-type)))
...@@ -193,20 +193,20 @@ ...@@ -193,20 +193,20 @@
(define-vop (unbind) (define-vop (unbind)
(:temporary (:sc dword-reg) symbol value bsp) (:temporary (:sc dword-reg) symbol value bsp)
(:generator 0 (:generator 0
(load-symbol-value bsp lisp::*binding-stack-pointer*) (load-symbol-value bsp *binding-stack-pointer*)
(loadw symbol bsp (- binding-symbol-slot binding-size)) (loadw symbol bsp (- binding-symbol-slot binding-size))
(loadw value bsp (- binding-value-slot binding-size)) (loadw value bsp (- binding-value-slot binding-size))
(storew value symbol symbol-value-slot other-pointer-type) (storew value symbol symbol-value-slot other-pointer-type)
(storew 0 bsp (- binding-symbol-slot binding-size)) (storew 0 bsp (- binding-symbol-slot binding-size))
(inst sub bsp (* binding-size word-bytes)) (inst sub bsp (* binding-size word-bytes))
(store-symbol-value bsp lisp::*binding-stack-pointer*))) (store-symbol-value bsp *binding-stack-pointer*)))
(define-vop (unbind-to-here) (define-vop (unbind-to-here)
(:args (where :scs (descriptor-reg any-reg))) (:args (where :scs (descriptor-reg any-reg)))
(:temporary (:sc dword-reg) symbol value bsp) (:temporary (:sc dword-reg) symbol value bsp)
(:generator 0 (:generator 0
(load-symbol-value bsp lisp::*binding-stack-pointer*) (load-symbol-value bsp *binding-stack-pointer*)
(inst cmp where bsp) (inst cmp where bsp)
(inst jmp :e done) (inst jmp :e done)
...@@ -222,7 +222,7 @@ ...@@ -222,7 +222,7 @@
(inst sub bsp (* binding-size word-bytes)) (inst sub bsp (* binding-size word-bytes))
(inst cmp where bsp) (inst cmp where bsp)
(inst jmp :ne loop) (inst jmp :ne loop)
(store-symbol-value bsp lisp::*binding-stack-pointer*) (store-symbol-value bsp *binding-stack-pointer*)
DONE)) DONE))
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/macros.lisp,v 1.2 1997/02/12 21:01:25 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/macros.lisp,v 1.3 1997/02/13 01:20:33 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -114,9 +114,9 @@ ...@@ -114,9 +114,9 @@
#-cgc #-cgc
(defmacro with-allocation ((alloc) &body body) (defmacro with-allocation ((alloc) &body body)
`(progn `(progn
(load-symbol-value ,alloc lisp::*allocation-pointer*) (load-symbol-value ,alloc *allocation-pointer*)
,@body ,@body
(store-symbol-value ,alloc lisp::*allocation-pointer*))) (store-symbol-value ,alloc *allocation-pointer*)))
#-cgc #-cgc
(defmacro with-fixed-allocation ((result alloc type-code size) &body body) (defmacro with-fixed-allocation ((result alloc type-code size) &body body)
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/nlx.lisp,v 1.2 1997/02/08 21:35:06 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/nlx.lisp,v 1.3 1997/02/13 01:20:37 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -83,7 +83,7 @@ ...@@ -83,7 +83,7 @@
(define-vop (current-binding-pointer) (define-vop (current-binding-pointer)
(:results (res :scs (any-reg descriptor-reg))) (:results (res :scs (any-reg descriptor-reg)))
(:generator 1 (:generator 1
(load-symbol-value res lisp::*binding-stack-pointer*))) (load-symbol-value res *binding-stack-pointer*)))
;;;; Unwind block hackery: ;;;; Unwind block hackery:
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.3 1997/02/12 23:03:25 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.4 1997/02/13 01:20:35 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -210,13 +210,13 @@ ...@@ -210,13 +210,13 @@
;;; ;;;
;;; pfw X86 doesn't have enough registers to keep these things there. ;;; pfw X86 doesn't have enough registers to keep these things there.
;;; Note these spaces grow from low to high addresses. ;;; Note these spaces grow from low to high addresses.
(defvar lisp::*allocation-pointer*) (defvar *allocation-pointer*)
(defvar lisp::*binding-stack-pointer*) (defvar *binding-stack-pointer*)
(defvar lisp::*x86-cgc-active-p*) (defvar *x86-cgc-active-p*)
(defvar lisp::*static-blue-bag* nil) (defvar *static-blue-bag* nil)
(defparameter static-symbols (defparameter static-symbols
`(t '(t
;; The C startup code must fill these in. ;; The C startup code must fill these in.
lisp::lisp-environment-list lisp::lisp-environment-list
...@@ -246,10 +246,10 @@ ...@@ -246,10 +246,10 @@
unix::*interrupt-pending* unix::*interrupt-pending*
;; added by pfw ;; added by pfw
lisp::*allocation-pointer* *allocation-pointer*
lisp::*binding-stack-pointer* *binding-stack-pointer*
lisp::*x86-cgc-active-p* *x86-cgc-active-p*
lisp::*internal-gc-trigger* ; Keep C code happy *internal-gc-trigger* ; Keep C code happy
*fp-constant-1s0* *fp-constant-1s0*
*fp-constant-1d0* *fp-constant-1d0*
...@@ -267,7 +267,7 @@ ...@@ -267,7 +267,7 @@
*unused-static-2* *unused-static-2*
*unused-static-1* *unused-static-1*
lisp::*static-blue-bag* ; Must be last or change C code *static-blue-bag* ; Must be last or change C code
)) ))
(defparameter static-functions (defparameter static-functions
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/system.lisp,v 1.2 1997/02/11 16:16:08 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/system.lisp,v 1.3 1997/02/13 01:20:36 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -168,7 +168,7 @@ ...@@ -168,7 +168,7 @@
(:translate dynamic-space-free-pointer) (:translate dynamic-space-free-pointer)
(:policy :fast-safe) (:policy :fast-safe)
(:generator 1 (:generator 1
(load-symbol-value int lisp::*allocation-pointer*))) (load-symbol-value int *allocation-pointer*)))
(define-vop (binding-stack-pointer-sap) (define-vop (binding-stack-pointer-sap)
(:results (int :scs (sap-reg))) (:results (int :scs (sap-reg)))
...@@ -176,7 +176,7 @@ ...@@ -176,7 +176,7 @@
(:translate binding-stack-pointer-sap) (:translate binding-stack-pointer-sap)
(:policy :fast-safe) (:policy :fast-safe)
(:generator 1 (:generator 1
(load-symbol-value int lisp::*binding-stack-pointer*))) (load-symbol-value int *binding-stack-pointer*)))
(define-vop (control-stack-pointer-sap) (define-vop (control-stack-pointer-sap)
(:results (int :scs (sap-reg))) (:results (int :scs (sap-reg)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment