From cc102b0a8e0ee77ae4613062dd341ae049edbdf2 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 14 Jul 2006 14:24:00 +0000 Subject: [PATCH] Minor change so we can cross-compile a Cheney GC version from a gencgc version. --- tools/cross-scripts/cross-sparc-sparc.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/tools/cross-scripts/cross-sparc-sparc.lisp b/tools/cross-scripts/cross-sparc-sparc.lisp index 9650b4c00..2b1a476a0 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 -- GitLab