diff --git a/tools/cross-scripts/cross-x86-x86.lisp b/tools/cross-scripts/cross-x86-x86.lisp index f71abe9287239cbac0aa4e57b72f0f6c6a137f4f..a7131b88b89ad5e43eb46e01fe7ca077c7ab1422 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)