From: lisphacker <lisphacker>
Date: Thu, 12 Apr 2007 03:24:22 +0000 (+0000)
Subject: 1.0.4.71: x86 backend cleanup
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a896de94d2219804415afd6a41822069b047d71c;p=sbcl.git

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
--- 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
--- 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"