1.0.23.45: Remove superfluous register :offsets in the MIPS backend.

diff --git a/src/compiler/mips/alloc.lisp b/src/compiler/mips/alloc.lisp
index 30c1439..9d1461b 100644 (file)
--- a/src/compiler/mips/alloc.lisp
+++ b/src/compiler/mips/alloc.lisp
@@ -85,7 +85,7 @@
   (:arg-types positive-fixnum
               positive-fixnum
               positive-fixnum)
-  (:temporary (:sc non-descriptor-reg :offset nl0-offset) bytes)
+  (:temporary (:sc non-descriptor-reg) bytes)
   (:temporary (:sc non-descriptor-reg :offset nl4-offset) pa-flag)
   (:results (result :scs (descriptor-reg) :from :load))
   (:policy :fast-safe)
@@ -107,8 +107,8 @@
   (:arg-types positive-fixnum
               positive-fixnum
               positive-fixnum)
-  (:temporary (:sc non-descriptor-reg :offset nl0-offset) bytes)
-  (:temporary (:sc non-descriptor-reg :offset nl1-offset) temp)
+  (:temporary (:sc non-descriptor-reg) bytes)
+  (:temporary (:sc non-descriptor-reg) temp)
   (:temporary (:sc non-descriptor-reg :offset nl4-offset) pa-flag)
   (:results (result :scs (descriptor-reg) :from :load))
   (:policy :fast-safe)

diff --git a/src/compiler/mips/call.lisp b/src/compiler/mips/call.lisp
index efba661..5e47120 100644 (file)
--- a/src/compiler/mips/call.lisp
+++ b/src/compiler/mips/call.lisp
@@ -703,7 +703,7 @@ default-value-8
          '((:temporary (:scs (non-descriptor-reg)) temp)
            (:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)))
 
-     (:temporary (:sc interior-reg :offset lip-offset) entry-point)
+     (:temporary (:sc interior-reg) entry-point)
 
      (:generator ,(+ (if named 5 0)
                      (if variable 19 1)

diff --git a/src/compiler/mips/static-fn.lisp b/src/compiler/mips/static-fn.lisp
index f92d727..6f9cdd9 100644 (file)
--- a/src/compiler/mips/static-fn.lisp
+++ b/src/compiler/mips/static-fn.lisp
@@ -10,7 +10,7 @@
   (:temporary (:scs (non-descriptor-reg)) temp)
   (:temporary (:scs (descriptor-reg)) move-temp)
   (:temporary (:sc descriptor-reg :offset lra-offset) lra)
-  (:temporary (:sc interior-reg :offset lip-offset) entry-point)
+  (:temporary (:sc interior-reg) entry-point)
   (:temporary (:sc any-reg :offset nargs-offset) nargs)
   (:temporary (:sc any-reg :offset ocfp-offset) ocfp)
   (:temporary (:sc control-stack :offset nfp-save-offset) nfp-save))

diff --git a/version.lisp-expr b/version.lisp-expr
index e9b63bb..4ef58be 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.23.44"
+"1.0.23.45"