From: Thiemo Seufer <ths@networkno.de>
Date: Thu, 8 Sep 2005 07:23:06 +0000 (+0000)
Subject: Small mips-vm.lisp improvement, lifted from the ppc version.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=50f15995a86506f1ae666722f2af541a824eef1d;p=sbcl.git

Small mips-vm.lisp improvement, lifted from the ppc version.
---

diff --git a/src/code/mips-vm.lisp b/src/code/mips-vm.lisp
index a378b89..ec9f919 100644
--- a/src/code/mips-vm.lisp
+++ b/src/code/mips-vm.lisp
@@ -1,3 +1,5 @@
+;;; This file contains the MIPS specific runtime stuff.
+;;;
 (in-package "SB!VM")
 
 
@@ -19,6 +21,7 @@
 ;;;; FIXUP-CODE-OBJECT
 
 (defun fixup-code-object (code offset value kind)
+  (declare (type index offset))
   (unless (zerop (rem offset n-word-bytes))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (sb!sys:without-gcing
diff --git a/version.lisp-expr b/version.lisp-expr
index 210cfe6..384871d 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.4.44"
+"0.9.4.45"