From f8c3ae42dee5a95aa585ef4e135cd9c85361e9a2 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 11 Aug 2006 00:28:21 +0000
Subject: [PATCH] Update to match the cross-compile script used for
 double-double support, and update *features* to :cmu19c instead of :cmu19a.

---
 tools/cross-scripts/cross-x86-x86.lisp | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/tools/cross-scripts/cross-x86-x86.lisp b/tools/cross-scripts/cross-x86-x86.lisp
index ed7f77cb9..7959b03e0 100644
--- a/tools/cross-scripts/cross-x86-x86.lisp
+++ b/tools/cross-scripts/cross-x86-x86.lisp
@@ -16,7 +16,8 @@
      :conservative-float-type
      :hash-new :random-mt19937
      :linux :glibc2 :glibc2.1
-     :cmu :cmu19 :cmu19a
+     :cmu :cmu19 :cmu19c
+     :double-double
      )
    ;; Features to remove from current *features* here
    '(:x86-bootstrap :alpha :osf1 :mips
@@ -123,8 +124,19 @@
 	OLD-X86:SIMPLE-BIT-VECTOR-TYPE
 	OLD-X86:SIMPLE-STRING-TYPE OLD-X86:SIMPLE-VECTOR-TYPE 
 	OLD-X86:SIMPLE-ARRAY-TYPE OLD-X86:VECTOR-DATA-OFFSET
+	OLD-X86:DOUBLE-FLOAT-EXPONENT-BYTE
+	OLD-X86:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX 
+	OLD-X86:DOUBLE-FLOAT-SIGNIFICAND-BYTE
+	OLD-X86:SINGLE-FLOAT-EXPONENT-BYTE
+	OLD-X86:SINGLE-FLOAT-NORMAL-EXPONENT-MAX
+	OLD-X86:SINGLE-FLOAT-SIGNIFICAND-BYTE
 	))
 
+;; Modular arith hacks
+(setf (fdefinition 'vm::ash-left-mod32) #'old-x86::ash-left-mod32)
+(setf (fdefinition 'vm::lognot-mod32) #'old-x86::lognot-mod32)
+;; End arith hacks
+
 (let ((function (symbol-function 'kernel:error-number-or-lose)))
   (let ((*info-environment* (c:backend-info-environment c:*target-backend*)))
     (setf (symbol-function 'kernel:error-number-or-lose) function)
-- 
GitLab