1.0.4.71: x86 backend cleanup

  * Make botched calls of make-ea-for-symbol-value amd
    make-ea-for-symbol-tls-index cause the build to fail early and
    obviously (this would have saved me two hours of debugging).

diff --git a/src/compiler/x86/macros.lisp b/src/compiler/x86/macros.lisp
index 7df414a..af95da2 100644 (file)
--- a/src/compiler/x86/macros.lisp
+++ b/src/compiler/x86/macros.lisp
@@ -73,6 +73,7 @@
   `(inst mov ,reg (+ nil-value (static-symbol-offset ,symbol))))
 
 (defmacro make-ea-for-symbol-value (symbol)
+  (declare (type symbol symbol))
   `(make-ea :dword
     :disp (+ nil-value
            (static-symbol-offset ',symbol)
@@ -87,6 +88,7 @@
 
 #!+sb-thread
 (defmacro make-ea-for-symbol-tls-index (symbol)
+  (declare (type symbol symbol))
   `(make-ea :dword
     :disp (+ nil-value
            (static-symbol-offset ',symbol)

diff --git a/version.lisp-expr b/version.lisp-expr
index 2897c50..90121ff 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".)
-"1.0.4.70"
+"1.0.4.71"