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

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.)
parent eb29d877
No related branches found
No related tags found
No related merge requests found
...@@ -130,7 +130,10 @@ ...@@ -130,7 +130,10 @@
OLD-X86:SINGLE-FLOAT-EXPONENT-BYTE OLD-X86:SINGLE-FLOAT-EXPONENT-BYTE
OLD-X86:SINGLE-FLOAT-NORMAL-EXPONENT-MAX OLD-X86:SINGLE-FLOAT-NORMAL-EXPONENT-MAX
OLD-X86:SINGLE-FLOAT-SIGNIFICAND-BYTE 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 ;; Modular arith hacks
(setf (fdefinition 'vm::ash-left-mod32) #'old-x86::ash-left-mod32) (setf (fdefinition 'vm::ash-left-mod32) #'old-x86::ash-left-mod32)
...@@ -166,9 +169,6 @@ ...@@ -166,9 +169,6 @@
(in-package :vm) (in-package :vm)
(defun extern-alien-name (name) (defun extern-alien-name (name)
(declare (type simple-string name)) (declare (type simple-string name))
#+(and bsd (not elf))
(concatenate 'string "_" name)
#-(and bsd (not elf))
name) name)
(export 'extern-alien-name) (export 'extern-alien-name)
(export 'fixup-code-object) (export 'fixup-code-object)
......
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