X-Git-Url: http://git.boinkor.net/gitweb/sbcl.git/blobdiff_plain/5dd7646f587fe7f85509870d66b7082a93b19adc..829d76d5f12e1c1b6b21ca4c71b34719b8fed5e1:/src/compiler/x86-64/float.lisp

diff --git a/src/compiler/x86-64/float.lisp b/src/compiler/x86-64/float.lisp
index 583a7a4..601dabd 100644
--- a/src/compiler/x86-64/float.lisp
+++ b/src/compiler/x86-64/float.lisp
@@ -51,9 +51,7 @@
                       (+ (tn-offset ,tn)
                        (cond ((= (tn-offset ,base) rsp-offset)
                               sp->fp-offset)
-                             ((= (tn-offset ,base) rbp-offset)
-                              0)
-                             (t (error "Unexpected offset.")))
+                             (t 0))
                        (ecase ,kind
                          (:single
                             (ecase ,slot