diff --git a/compiler/mips/macros.lisp b/compiler/mips/macros.lisp index 5afdb3061620cd27f0cc098f5a09474fb3d56a41..57668c673233fe6bae3637de131090c4168dd2f5 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