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

Added float arrays to the list of unboxed arrays.

parent 4340ac4b
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/generic/vm-type.lisp,v 1.20 1990/11/05 20:03:15 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.21 1990/11/10 18:42:05 wlott Exp $
;;; ;;;
;;; This file contains implementation-dependent parts of the type support ;;; This file contains implementation-dependent parts of the type support
;;; code. This is stuff which deals with the mapping from types defined in ;;; code. This is stuff which deals with the mapping from types defined in
...@@ -104,14 +104,14 @@ ...@@ -104,14 +104,14 @@
(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)) (when (subtypep type '(or integer character 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)) (when (subtypep type '(or integer character 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