0.8.18.15:

	Fix a few problems with the AMD64 merge.
	* Fix genesis of double-floats on 32-bit little-endian platforms.
        * Remove Makefile kludge for forcing shared libraries in contribs
          to use the 32-bit mode on AMD64.
        * Remove extra argument to MY-MAKE-WIRED-TN in x86-64/c-call.lisp
          (prevented using CMUCL as host, since it gives a full warning).
        * Add a NEWS entry for the new port.

diff --git a/NEWS b/NEWS
index b788a54..c65c3af 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,4 +1,6 @@
 changes in sbcl-0.8.19 relative to sbcl-0.8.18:
+  * new port: SBCL now works in native 64-bit mode on x86-64/Linux
+    platform. The port supports 61-bit fixnums and large memory spaces.
   * enhancement: saving cores with foreign code loaded is now
     supported on ppc/Darwin in addition to the previously supported
     platforms.

diff --git a/contrib/asdf-module.mk b/contrib/asdf-module.mk
index 155988a..555546f 100644 (file)
--- a/contrib/asdf-module.mk
+++ b/contrib/asdf-module.mk
@@ -8,10 +8,6 @@ CC=gcc
 # ones as dependencies.
 
 UNAME:=$(shell uname -m)
-ifeq (x86_64,$(UNAME))
-    export EXTRA_LDFLAGS=-m32 -shared
-    export EXTRA_CFLAGS+=-m32
-endif
 
 export CC SBCL EXTRA_CFLAGS EXTRA_LDFLAGS
 

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index fd4cbfc..9b059d4 100644 (file)
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -673,7 +673,7 @@ core and return a descriptor to it."
         (ecase sb!c:*backend-byte-order*
           (:little-endian
            (write-wordindexed address index low-bits)
-           (write-wordindexed address index high-bits))
+           (write-wordindexed address (1+ index) high-bits))
           (:big-endian
            (write-wordindexed address index high-bits)
            (write-wordindexed address (1+ index) low-bits)))))

diff --git a/src/compiler/x86-64/c-call.lisp b/src/compiler/x86-64/c-call.lisp
index 9cbca95..c41a0ce 100644 (file)
--- a/src/compiler/x86-64/c-call.lisp
+++ b/src/compiler/x86-64/c-call.lisp
@@ -105,7 +105,7 @@
   (declare (ignore type))
   (let ((num-results (result-state-num-results state)))
     (setf (result-state-num-results state) (1+ num-results))
-    (my-make-wired-tn 'single-float 'single-reg num-results 2)))
+    (my-make-wired-tn 'single-float 'single-reg num-results)))
 
 (define-alien-type-method (values :result-tn) (type state)
   (let ((values (alien-values-type-values type)))

diff --git a/version.lisp-expr b/version.lisp-expr
index bdda81f..b4551f1 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.18.14"
+"0.8.18.15"