From ae1f0b8c09a7984e19faa4ee7902da83846a5893 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 21 Mar 1990 19:58:26 +0000
Subject: [PATCH] Use ``lbu'' instead of ``lb'' to load the type byte.  That
 way it won't get sign extended.

---
 compiler/mips/macros.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/mips/macros.lisp b/compiler/mips/macros.lisp
index 5afdb3061..57668c673 100644
--- a/compiler/mips/macros.lisp
+++ b/compiler/mips/macros.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.24 1990/03/12 23:47:15 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.25 1990/03/21 19:58:26 wlott Exp $
 ;;;
 ;;;    This file contains various useful macros for generating MIPS code.
 ;;;
@@ -114,9 +114,9 @@
 	      (n-offset offset))
     (ecase vm:target-byte-order
       (:little-endian
-       `(inst lb ,n-target ,n-source ,n-offset ))
+       `(inst lbu ,n-target ,n-source ,n-offset ))
       (:big-endian
-       `(inst lb ,n-target ,n-source (+ ,n-offset 3))))))
+       `(inst lbu ,n-target ,n-source (+ ,n-offset 3))))))
 
 
 ;;; Macros to handle the fact that we cannot use the machine native call and
-- 
GitLab