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

Include the complex-float array types within the unboxed-array and

simple-unboxed-array types. Fixes the dumping of constant complex
float arrays.
parent ecb039fe
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.34 1997/11/01 22:58:39 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.35 1998/01/25 15:11:21 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -97,14 +97,16 @@ ...@@ -97,14 +97,16 @@
(deftype unboxed-array (&optional dims) (deftype unboxed-array (&optional dims)
(collect ((types (list 'or))) (collect ((types (list 'or)))
(dolist (type specialized-array-element-types) (dolist (type specialized-array-element-types)
(when (subtypep type '(or integer character float)) (when (subtypep type '(or integer character float
#+complex-float (complex float)))
(types `(array ,type ,dims)))) (types `(array ,type ,dims))))
(types))) (types)))
(deftype simple-unboxed-array (&optional dims) (deftype simple-unboxed-array (&optional dims)
(collect ((types (list 'or))) (collect ((types (list 'or)))
(dolist (type specialized-array-element-types) (dolist (type specialized-array-element-types)
(when (subtypep type '(or integer character float)) (when (subtypep type '(or integer character float
#+complex-float (complex float)))
(types `(simple-array ,type ,dims)))) (types `(simple-array ,type ,dims))))
(types))) (types)))
......
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