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