Skip to content
Snippets Groups Projects
Commit 118a7b35 authored by rtoy's avatar rtoy
Browse files

Oops. Really enable the type predicates for simple-arrays of

double-double floats and complex double-double floats.
parent d01310f2
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-typetran.lisp,v 1.17 2006/06/30 18:41:23 rtoy Rel $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-typetran.lisp,v 1.18 2009/11/04 01:28:47 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -67,7 +67,7 @@ ...@@ -67,7 +67,7 @@
#+long-float #+long-float
(define-type-predicate simple-array-long-float-p (define-type-predicate simple-array-long-float-p
(simple-array long-float (*))) (simple-array long-float (*)))
#+(and t double-double) #+double-double
(define-type-predicate simple-array-double-double-float-p (define-type-predicate simple-array-double-double-float-p
(simple-array double-double-float (*))) (simple-array double-double-float (*)))
...@@ -78,7 +78,7 @@ ...@@ -78,7 +78,7 @@
#+long-float #+long-float
(define-type-predicate simple-array-complex-long-float-p (define-type-predicate simple-array-complex-long-float-p
(simple-array (complex long-float) (*))) (simple-array (complex long-float) (*)))
#+(and t double-double) #+double-double
(define-type-predicate simple-array-complex-double-double-float-p (define-type-predicate simple-array-complex-double-double-float-p
(simple-array (complex double-double-float) (*))) (simple-array (complex double-double-float) (*)))
(define-type-predicate system-area-pointer-p system-area-pointer) (define-type-predicate system-area-pointer-p system-area-pointer)
......
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