X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=4bff9138ec930355e661f8ef21ae575027282da3;hb=4ae1b794a5d6a90794468cf8017f5307f2c30dfe;hp=6ef6c4a63aee438882bd77cb27dd6a4fbc69cdf7;hpb=6e64d0c249f53f4d41fd7a75f80dfd10a1c89f06;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 6ef6c4a..4bff913 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -1740,7 +1740,23 @@
 		  (logior (ash bits 3)
 			  (logand (bvref-32 gspace-bytes gspace-byte-offset)
 				  #xffe0e002)))))))
-      (:ppc
+      (:mips
+       (ecase kind
+	 (:jump
+	  (assert (zerop (ash value -28)))
+	  (setf (ldb (byte 26 0) 
+		     (bvref-32 gspace-bytes gspace-byte-offset))
+		(ash value -2)))
+	 (:lui
+	  (setf (bvref-32 gspace-bytes gspace-byte-offset)
+		(logior (mask-field (byte 16 16) (bvref-32 gspace-bytes gspace-byte-offset))
+			(+ (ash value -16)
+			   (if (logbitp 15 value) 1 0)))))
+	 (:addi
+	  (setf (bvref-32 gspace-bytes gspace-byte-offset)
+		(logior (mask-field (byte 16 16) (bvref-32 gspace-bytes gspace-byte-offset))
+			(ldb (byte 16 0) value))))))
+       (:ppc
        (ecase kind
          (:ba
           (setf (bvref-32 gspace-bytes gspace-byte-offset)