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