Skip to content
Snippets Groups Projects
Commit 4fb70b40 authored by wlott's avatar wlott
Browse files

Added *interrupts-enabled* and *interrupt-pending* to the static symbols.

parent c77672f2
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.68 1990/09/06 17:46:11 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.69 1990/09/09 20:39:02 wlott Exp $
;;; ;;;
;;; This file contains some parameterizations of various VM ;;; This file contains some parameterizations of various VM
;;; attributes for the MIPS. This file is separate from other stuff so ;;; attributes for the MIPS. This file is separate from other stuff so
...@@ -544,13 +544,44 @@ ...@@ -544,13 +544,44 @@
;; Static functions. ;; Static functions.
two-arg-+ two-arg-- two-arg-* two-arg-/ two-arg-< two-arg-> two-arg-= two-arg-+ two-arg-- two-arg-* two-arg-/ two-arg-< two-arg-> two-arg-=
two-arg-<= two-arg->= two-arg-/= %negate two-arg-and two-arg-ior two-arg-xor two-arg-<= two-arg->= two-arg-/= %negate
two-arg-and two-arg-ior two-arg-xor
length two-arg-gcd two-arg-lcm length two-arg-gcd two-arg-lcm
;; Stuff for without interrupts. ### Should be with free-interrupt-context
;; above, but we don't want to have to recompile everything just right now.
mach::*interrupts-enabled* mach::*interrupt-pending*
)) ))
(defparameter exported-static-symbols (defparameter exported-static-symbols
(subseq static-symbols 0 (1+ (position 'lisp::*free-interrupt-context-index* '(t
static-symbols))))
;; Random stuff needed for initialization.
lisp::lisp-environment-list
lisp::lisp-command-line-list
lisp::*initial-symbols*
lisp::*lisp-initialization-functions*
lisp::%initial-function
lisp::*the-undefined-function*
;; Free Pointers
lisp::*read-only-space-free-pointer*
lisp::*static-space-free-pointer*
lisp::*initial-dynamic-space-free-pointer*
;; Things needed for non-local-exit.
lisp::*current-catch-block*
lisp::*current-unwind-protect-block*
*eval-stack-top*
;; Interrupt Handling
lisp::*free-interrupt-context-index*
mach::*interrupts-enabled*
mach::*interrupt-pending*
))
(defun static-symbol-p (symbol) (defun static-symbol-p (symbol)
(member symbol static-symbols)) (member symbol static-symbols))
......
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