From: Juho Snellman <jsnell@iki.fi>
Date: Mon, 9 Jan 2006 23:13:19 +0000 (+0000)
Subject: 0.9.8.29:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=842dd588e08f08677fa245734d392196e5410c24;p=sbcl.git

0.9.8.29:
        Kill a couple of obsolete x86 instructions (illegal in 64-bit
        mode).  Patch from sbcl-devel "Tidying up
        src/compiler/x86-64/insts.lisp" by Lutz Euler on 2006-01-08.
---

diff --git a/src/compiler/x86-64/insts.lisp b/src/compiler/x86-64/insts.lisp
index eed676b..c1d3910 100644
--- a/src/compiler/x86-64/insts.lisp
+++ b/src/compiler/x86-64/insts.lisp
@@ -2787,21 +2787,6 @@
       (emit-byte segment #b11001101)
       (emit-byte segment number)))))
 
-(define-instruction into (segment)
-  (:printer byte ((op #b11001110)))
-  (:emitter
-   (emit-byte segment #b11001110)))
-
-(define-instruction bound (segment reg bounds)
-  (:emitter
-   (let ((size (matching-operand-size reg bounds)))
-     (when (eq size :byte)
-       (error "can't bounds-test bytes: ~S" reg))
-     (maybe-emit-operand-size-prefix segment size)
-     (maybe-emit-rex-for-ea segment bounds reg)
-     (emit-byte segment #b01100010)
-     (emit-ea segment bounds (reg-tn-encoding reg)))))
-
 (define-instruction iret (segment)
   (:printer byte ((op #b11001111)))
   (:emitter
diff --git a/version.lisp-expr b/version.lisp-expr
index 1de21b7..216445e 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".)
-"0.9.8.28"
+"0.9.8.29"