Skip to content
Snippets Groups Projects
Commit 9109f29c authored by wlott's avatar wlott
Browse files

Gee, if you supply an keyword as (), it shows up as nil. Therefore, added

unsafe attributes to the various array :set-known (they should have been
there anyway).
parent ece4bdc0
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.31 1990/03/21 23:29:44 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.32 1990/03/22 06:46:31 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
...@@ -367,29 +367,29 @@ ...@@ -367,29 +367,29 @@
:header t) :header t)
(fill-pointer :type index (fill-pointer :type index
:ref-trans lisp::%array-fill-pointer :ref-trans lisp::%array-fill-pointer
:ref-known (c::flushable) :ref-known (c::flushable c::foldable)
:set-trans (setf lisp::%array-fill-pointer) :set-trans (setf lisp::%array-fill-pointer)
:set-known ()) :set-known (c::unsafe))
(elements :type index (elements :type index
:ref-trans lisp::%array-available-elements :ref-trans lisp::%array-available-elements
:ref-known (c::flushable) :ref-known (c::flushable c::foldable)
:set-trans (setf lisp::%array-available-elements) :set-trans (setf lisp::%array-available-elements)
:set-known ()) :set-known (c::unsafe))
(data :type array (data :type array
:ref-trans lisp::%array-data-vector :ref-trans lisp::%array-data-vector
:ref-known (c::flushable) :ref-known (c::flushable c::foldable)
:set-trans (setf lisp::%array-data-vector) :set-trans (setf lisp::%array-data-vector)
:set-known ()) :set-known (c::unsafe))
(displacement :type (or index null) (displacement :type (or index null)
:ref-trans lisp::%array-displacement :ref-trans lisp::%array-displacement
:ref-known (c::flushable) :ref-known (c::flushable c::foldable)
:set-trans (setf lisp::%array-displacement) :set-trans (setf lisp::%array-displacement)
:set-known ()) :set-known (c::unsafe))
(displaced-p :type (member t nil) (displaced-p :type (member t nil)
:ref-trans lisp::%array-displaced-p :ref-trans lisp::%array-displaced-p
:ref-known (c::flushable) :ref-known (c::flushable c::foldable)
:set-trans (setf lisp::%array-displaced-p) :set-trans (setf lisp::%array-displaced-p)
:set-known ()) :set-known (c::unsafe))
(dimensions :rest-p t)) (dimensions :rest-p t))
(define-primitive-object (vector :lowtag other-pointer-type :header t) (define-primitive-object (vector :lowtag other-pointer-type :header t)
......
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