From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Thu, 28 Jul 2005 13:47:32 +0000 (+0000)
Subject: 0.9.3.6:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3de8e43b16a0af26eff5da797193d92b35a0e139;p=sbcl.git

0.9.3.6:
	merge "Fix mips inst syscall definition" (THS sbcl-devel 2005-07-15)
---

diff --git a/src/compiler/mips/insts.lisp b/src/compiler/mips/insts.lisp
index bebd739..d0a705c 100644
--- a/src/compiler/mips/insts.lisp
+++ b/src/compiler/mips/insts.lisp
@@ -1012,10 +1012,6 @@
 (define-instruction-macro entry-point ()
   nil)
 
-#+nil
-(define-bitfield-emitter emit-break-inst 32
-  (byte 6 26) (byte 10 16) (byte 10 6) (byte 6 0))
-
 (defun snarf-error-junk (sap offset &optional length-only)
   (let* ((length (sb!sys:sap-ref-8 sap offset))
          (vector (make-array length :element-type '(unsigned-byte 8))))
@@ -1084,12 +1080,12 @@
    (emit-break-inst segment special-op code subcode #b001101)))
 
 (define-instruction syscall (segment)
-  (:printer register ((op special-op) (rd 0) (rt 0) (rs 0) (funct #b001100))
+  (:printer register ((op special-op) (rd 0) (rt 0) (rs 0) (funct #b001110))
             '(:name))
   :pinned
   (:delay 0)
   (:emitter
-   (emit-register-inst segment special-op 0 0 0 0 #b001100)))
+   (emit-register-inst segment special-op 0 0 0 0 #b001110)))
 
 (define-instruction nop (segment)
   (:printer register ((op 0) (rd 0) (rd 0) (rs 0) (funct 0)) '(:name))
diff --git a/version.lisp-expr b/version.lisp-expr
index 16442c0..5344861 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.3.5"
+"0.9.3.6"