From 003e450e57b8a3db0b5f781963d0d304f7154903 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 9 Feb 1990 12:56:53 +0000
Subject: [PATCH] Removed wrong comment from COMPONENT-HEADER-LENGTH.  The
 comment asserted that we needed to add the constant header size, but
 num-const already includes that.

---
 compiler/mips/insts.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/mips/insts.lisp b/compiler/mips/insts.lisp
index 06897ed52..e81055068 100644
--- a/compiler/mips/insts.lisp
+++ b/compiler/mips/insts.lisp
@@ -7,7 +7,7 @@
 ;;; contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU).
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.4 1990/02/07 00:25:45 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.5 1990/02/09 12:56:53 wlott Exp $
 ;;; 
 ;;; Assembler instruction definitions for the MIPS R2000.
 ;;;
@@ -343,7 +343,7 @@
   (let* ((2comp (component-info component))
 	 (constants (ir2-component-constants 2comp))
 	 (num-consts (length constants)))
-    (* 4 num-consts))) ; ### need constant offset here
+    (ash num-consts word-shift)))
 
 
 ;;; COMPUTE-CODE-FROM-FN
-- 
GitLab