Adjust mips VOP cost for ,set-name-c.

diff --git a/src/compiler/mips/sap.lisp b/src/compiler/mips/sap.lisp
index 89527cb..ad72a85 100644 (file)
--- a/src/compiler/mips/sap.lisp
+++ b/src/compiler/mips/sap.lisp
@@ -260,7 +260,7 @@
          (:info offset)
          (:results (result :scs (,sc)))
          (:result-types ,type)
-         (:generator 5
+         (:generator 4
            ,@(ecase size
                (:byte
                 '((inst sb value object offset)

diff --git a/version.lisp-expr b/version.lisp-expr
index d135119..c620cf9 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".)
-"0.9.4.32"
+"0.9.4.33"