Skip to content
Snippets Groups Projects
Commit f8c3ae42 authored by rtoy's avatar rtoy
Browse files

Update to match the cross-compile script used for double-double

support, and update *features* to :cmu19c instead of :cmu19a.
parent e51764d0
No related branches found
No related tags found
No related merge requests found
...@@ -16,7 +16,8 @@ ...@@ -16,7 +16,8 @@
:conservative-float-type :conservative-float-type
:hash-new :random-mt19937 :hash-new :random-mt19937
:linux :glibc2 :glibc2.1 :linux :glibc2 :glibc2.1
:cmu :cmu19 :cmu19a :cmu :cmu19 :cmu19c
:double-double
) )
;; Features to remove from current *features* here ;; Features to remove from current *features* here
'(:x86-bootstrap :alpha :osf1 :mips '(:x86-bootstrap :alpha :osf1 :mips
...@@ -123,8 +124,19 @@ ...@@ -123,8 +124,19 @@
OLD-X86:SIMPLE-BIT-VECTOR-TYPE OLD-X86:SIMPLE-BIT-VECTOR-TYPE
OLD-X86:SIMPLE-STRING-TYPE OLD-X86:SIMPLE-VECTOR-TYPE OLD-X86:SIMPLE-STRING-TYPE OLD-X86:SIMPLE-VECTOR-TYPE
OLD-X86:SIMPLE-ARRAY-TYPE OLD-X86:VECTOR-DATA-OFFSET 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 ((function (symbol-function 'kernel:error-number-or-lose)))
(let ((*info-environment* (c:backend-info-environment c:*target-backend*))) (let ((*info-environment* (c:backend-info-environment c:*target-backend*)))
(setf (symbol-function 'kernel:error-number-or-lose) function) (setf (symbol-function 'kernel:error-number-or-lose) function)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment