From be1e5af7c08b77038b9c90c838b1b1d946210170 Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Wed, 7 Feb 1990 00:25:45 +0000
Subject: [PATCH] Started to add LRA-HEADER-WORD and FUNCTION-HEADER-WORD.

---
 compiler/mips/insts.lisp | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/compiler/mips/insts.lisp b/compiler/mips/insts.lisp
index cac9ad5cd..06897ed52 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.3 1990/02/07 00:13:31 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.4 1990/02/07 00:25:45 ch Exp $
 ;;; 
 ;;; Assembler instruction definitions for the MIPS R2000.
 ;;;
@@ -350,11 +350,11 @@
 ;;;
 ;;; code = fn - fn-tag - header - label-offset + other-pointer-tag
 ;;; 
-(def-instruction-format (compute-code-from-fn-format 4) (rt rs immed)
+(def-instruction-format (compute-code-from-fn-format 4) (rt rs label)
   (op :unsigned 6 :instruction-constant)
   (rs :unsigned 5 :register)
   (rt :unsigned 5 :register)
-  (immed :signed 16
+  (label :signed 16
 	 :label #'(lambda (label-offset instr-offset)
 		    (declare (ignore instr-offset))
 		    (- other-pointer-type function-pointer-type label-offset
@@ -371,11 +371,11 @@
 ;;;
 ;;; code = lra - other-pointer-tag - header - label-offset + other-pointer-tag
 ;;; 
-(def-instruction-format (compute-code-from-lra-format 4) (rt rs immed)
+(def-instruction-format (compute-code-from-lra-format 4) (rt rs label)
   (op :unsigned 6 :instruction-constant)
   (rs :unsigned 5 :register)
   (rt :unsigned 5 :register)
-  (immed :signed 16
+  (label :signed 16
 	 :label #'(lambda (label-offset instr-offset)
 		    (declare (ignore instr-offset))
 		    (- (+ label-offset (component-header-length))))))
@@ -391,11 +391,11 @@
 ;;;
 ;;; lra = code + other-pointer-tag + header + label-offset - other-pointer-tag
 ;;; 
-(def-instruction-format (compute-lra-from-code-format 4) (rt rs immed)
+(def-instruction-format (compute-lra-from-code-format 4) (rt rs label)
   (op :unsigned 6 :instruction-constant)
   (rs :unsigned 5 :register)
   (rt :unsigned 5 :register)
-  (immed :signed 16
+  (label :signed 16
 	 :label #'(lambda (label-offset instr-offset)
 		    (declare (ignore instr-offset))
 		    (+ label-offset (component-header-length)))))
@@ -405,3 +405,10 @@
 
 (def-label-ref compute-lra-from-code (rt rs label) label
   compute-lra-from-code-inst)
+
+;;;
+;;; ###  LRA-HEADER-WORD, FUNCTION-HEADER-WORD
+;;; 
+;;; More hacks here.
+;;;
+
-- 
GitLab