1.0.7.38: Fix the MIPS single-stepper break instruction.

diff --git a/src/compiler/mips/call.lisp b/src/compiler/mips/call.lisp
index 8ceb602..7b318e4 100644 (file)
--- a/src/compiler/mips/call.lisp
+++ b/src/compiler/mips/call.lisp
@@ -798,9 +798,9 @@ default-value-8
                     ;; Construct a trap code with the low bits from
                     ;; SINGLE-STEP-AROUND-TRAP and the high bits from
                     ;; the register number of CALLABLE-TN.
-                    (inst break (logior single-step-around-trap
-                                        (ash (reg-tn-encoding callable-tn)
-                                             5)))
+                    (inst break 0 (logior single-step-around-trap
+                                          (ash (reg-tn-encoding callable-tn)
+                                               5)))
                     (emit-label step-done-label))))
 
            ,@(if named

diff --git a/version.lisp-expr b/version.lisp-expr
index 3223755..a64e467 100644 (file)
--- 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.7.37"
+"1.0.7.38"