Skip to content
Snippets Groups Projects
Commit 1680d129 authored by rtoy's avatar rtoy
Browse files

Double-double float bounds don't work on ppc/darwin for some reason.

Disable them.  (This causes the build to either exit silently, or to
hang loading fndb.  Did not investigate why.)
parent 8c236b15
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.76 2008/04/03 18:10:29 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.77 2008/05/23 03:51:23 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -2416,8 +2416,11 @@
,(coerced-float-bound high 'double-float))
#+long-float ,(error "stub: no long float support yet")
#+double-double
(double-double-float ,(coerced-float-bound low 'double-double-float)
,(coerced-float-bound high 'double-double-float)))))
(double-double-float
;; For some reason, the ppc/darwin port doesn't like this. I
;; (rtoy) don't know why.
#-ppc ,(coerced-float-bound low 'double-double-float)
#-ppc ,(coerced-float-bound high 'double-double-float)))))
(defmacro define-float-format (f)
`(def-bounded-type ,f float ,f))
......
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