diff --git a/tools/cross-scripts/cross-sparc-sparc.lisp b/tools/cross-scripts/cross-sparc-sparc.lisp index 9650b4c0080a9e2c7a0c5c092343206653f11cd1..2b1a476a0705cb39aab20128fb82505a63c5fdfa 100644 --- a/tools/cross-scripts/cross-sparc-sparc.lisp +++ b/tools/cross-scripts/cross-sparc-sparc.lisp @@ -171,7 +171,11 @@ OLD-SPARC:SINGLE-FLOAT-EXPONENT-BYTE OLD-SPARC:SINGLE-FLOAT-NORMAL-EXPONENT-MAX OLD-SPARC:SINGLE-FLOAT-SIGNIFICAND-BYTE - )) + ) + #+double-double + (frob OLD-SPARC:SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE + OLD-SPARC:SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-TYPE) + ) ;; Modular arith hacks. When cross-compiling, the compiler wants to ;; constant-fold some stuff, and it needs the following functions to