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