From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Tue, 28 Jul 2009 18:25:18 +0000 (+0000)
Subject: 1.0.30.7: refactor debugging cruft in definition of FXCH
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0e92abc181338bb9eec15eeb06f4b830ea54d746;p=sbcl.git

1.0.30.7: refactor debugging cruft in definition of FXCH

 * Change a call to BREAK into an AVER. Thanks to Tobias Rittweiler.

 * Also fix topy in GET-TIME-OF-DAY dogstring.
---

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index fb70a51..5776803 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -926,7 +926,7 @@ corresponds to NAME, or NIL if there is none."
 
   #!-sb-fluid (declaim (inline get-time-of-day))
   (defun get-time-of-day ()
-    "Return the number of seconds and microseconds since the beginning og
+    "Return the number of seconds and microseconds since the beginning of
 the UNIX epoch (January 1st 1970.)"
     #!+darwin
     (with-alien ((tv (struct timeval)))
diff --git a/src/code/win32.lisp b/src/code/win32.lisp
index fb3d5c1..3aef593 100644
--- a/src/code/win32.lisp
+++ b/src/code/win32.lisp
@@ -564,7 +564,7 @@
 #!-sb-fluid
 (declaim (inline get-time-of-day))
 (defun get-time-of-day ()
-  "Return the number of seconds and microseconds since the beginning og the
+  "Return the number of seconds and microseconds since the beginning of the
 UNIX epoch: January 1st 1970."
   (with-alien ((system-time filetime))
     (syscall (("GetSystemTimeAsFileTime" 4) void (* filetime))
diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index 6ed33ad..2479299 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -2642,9 +2642,8 @@
 (define-instruction fxch (segment source)
   (:printer floating-point-fp ((op '(#b001 #b001))))
   (:emitter
-    (unless (and (tn-p source)
-                 (eq (sb-name (sc-sb (tn-sc source))) 'float-registers))
-      (cl:break))
+    (aver (and (tn-p source)
+               (eq (sb-name (sc-sb (tn-sc source))) 'float-registers)))
     (emit-byte segment #b11011001)
     (emit-fp-op segment source #b001)))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index a54376b..e5d5a8b 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.30.6"
+"1.0.30.7"