Skip to content
Snippets Groups Projects
Commit 003e450e authored by wlott's avatar wlott
Browse files

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.
parent f74a7020
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU). ;;; 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. ;;; Assembler instruction definitions for the MIPS R2000.
;;; ;;;
...@@ -343,7 +343,7 @@ ...@@ -343,7 +343,7 @@
(let* ((2comp (component-info component)) (let* ((2comp (component-info component))
(constants (ir2-component-constants 2comp)) (constants (ir2-component-constants 2comp))
(num-consts (length constants))) (num-consts (length constants)))
(* 4 num-consts))) ; ### need constant offset here (ash num-consts word-shift)))
;;; COMPUTE-CODE-FROM-FN ;;; COMPUTE-CODE-FROM-FN
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment