From 026015c47ecf03c7213a62d19916790a12f0f914 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 5 Feb 2008 02:31:13 +0000
Subject: [PATCH] o frob
 OLD-SPARC:SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE  
 OLD-SPARC:SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-TYPE.  Removes a few  
 warnings/issues during cross-compile. o Update EXTERN-ALIEN-NAME to match the
 actual definition.  No   supported x86 system needs anything special.  (The
 previous version   was causing failures on x86/darwin.)

---
 tools/cross-scripts/cross-x86-x86.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tools/cross-scripts/cross-x86-x86.lisp b/tools/cross-scripts/cross-x86-x86.lisp
index f71abe928..a7131b88b 100644
--- a/tools/cross-scripts/cross-x86-x86.lisp
+++ b/tools/cross-scripts/cross-x86-x86.lisp
@@ -130,7 +130,10 @@
 	OLD-X86:SINGLE-FLOAT-EXPONENT-BYTE
 	OLD-X86:SINGLE-FLOAT-NORMAL-EXPONENT-MAX
 	OLD-X86: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
 (setf (fdefinition 'vm::ash-left-mod32) #'old-x86::ash-left-mod32)
@@ -166,9 +169,6 @@
 (in-package :vm)
 (defun extern-alien-name (name)
   (declare (type simple-string name))
-  #+(and bsd (not elf))
-  (concatenate 'string "_" name)
-  #-(and bsd (not elf))
   name)
 (export 'extern-alien-name)
 (export 'fixup-code-object)
-- 
GitLab