From 1e509a326af394f6971202c70296cedae02bda07 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 21 Aug 1990 19:12:18 +0000 Subject: [PATCH] Someone (probably me) used hard-wired constants for the function-header and lra-header instructions instead of the correct symbols from the vm package. --- compiler/mips/insts.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/mips/insts.lisp b/compiler/mips/insts.lisp index 63e82fe42..a5479ea57 100644 --- a/compiler/mips/insts.lisp +++ b/compiler/mips/insts.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.23 1990/07/05 10:59:15 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.24 1990/08/21 19:12:18 wlott Exp $ ;;; ;;; Description of the MIPS architecture. ;;; @@ -650,10 +650,10 @@ (data (byte 24 8) :default 0 :function header-data)) (define-instruction (function-header-word) - (header-object (type :constant #x5e))) + (header-object (type :constant vm:function-header-type))) (define-instruction (lra-header-word) - (header-object (type :constant #x66))) + (header-object (type :constant vm:return-pc-header-type))) (defmacro define-compute-instruction (name calculation) -- GitLab