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

[sbcl.git] / src / code / mips-vm.lisp

diff --git a/src/code/mips-vm.lisp b/src/code/mips-vm.lisp
index a378b89..ec9f919 100644 (file)
--- 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")
 
 \f
@@ -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