Skip to content
Snippets Groups Projects
Commit e6da7db1 authored by Raymond Toy's avatar Raymond Toy
Browse files

Wrap the entire file in double-double conditional.

This is so that we can always compile and load this file, even if
double-double isn't supported. (But all currently supported
architectures support double-doubles.)
parent 268309ac
No related branches found
No related tags found
No related merge requests found
...@@ -19,6 +19,8 @@ ...@@ -19,6 +19,8 @@
(in-package "C") (in-package "C")
(intl:textdomain "cmucl") (intl:textdomain "cmucl")
#+double-double
(progn
(defknown %double-double-float (real) (defknown %double-double-float (real)
double-double-float double-double-float
(movable foldable flushable)) (movable foldable flushable))
...@@ -685,3 +687,4 @@ ...@@ -685,3 +687,4 @@
(kernel:double-double-lo a) (kernel:double-double-lo a)
(kernel:double-double-hi b) (kernel:double-double-hi b)
(kernel:double-double-lo b))) (kernel:double-double-lo b)))
) ; end progn
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