From b04ec3715344830b9529f996e1b7cbe8c9734357 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 10 Jan 1993 17:27:09 +0000
Subject: [PATCH] Changed FUNCTION_HEADER_CODE_OFFSET to FUNCTION_CODE_OFFSET.

---
 lisp/hppa-assem.S  | 2 +-
 lisp/hppa-assem.s  | 2 +-
 lisp/mips-assem.S  | 4 ++--
 lisp/sparc-assem.S | 6 +++---
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/hppa-assem.S b/lisp/hppa-assem.S
index 3374f1246..6221dfc0e 100644
--- a/lisp/hppa-assem.S
+++ b/lisp/hppa-assem.S
@@ -257,7 +257,7 @@ closure_tramp
 	/* reg_FDEFN holds the fdefn object. */
 	ldw	FDEFN_FUNCTION_OFFSET(0,reg_FDEFN),reg_LEXENV
 	ldw	CLOSURE_FUNCTION_OFFSET(0,reg_LEXENV),reg_L0
-	addi	FUNCTION_HEADER_CODE_OFFSET, reg_L0, reg_LIP
+	addi	FUNCTION_CODE_OFFSET, reg_L0, reg_LIP
 	bv,n	0(reg_LIP)
 
 	.EXPORT undefined_tramp
diff --git a/lisp/hppa-assem.s b/lisp/hppa-assem.s
index 3374f1246..6221dfc0e 100644
--- a/lisp/hppa-assem.s
+++ b/lisp/hppa-assem.s
@@ -257,7 +257,7 @@ closure_tramp
 	/* reg_FDEFN holds the fdefn object. */
 	ldw	FDEFN_FUNCTION_OFFSET(0,reg_FDEFN),reg_LEXENV
 	ldw	CLOSURE_FUNCTION_OFFSET(0,reg_LEXENV),reg_L0
-	addi	FUNCTION_HEADER_CODE_OFFSET, reg_L0, reg_LIP
+	addi	FUNCTION_CODE_OFFSET, reg_L0, reg_LIP
 	bv,n	0(reg_LIP)
 
 	.EXPORT undefined_tramp
diff --git a/lisp/mips-assem.S b/lisp/mips-assem.S
index f2ad86a2f..df9b7f53f 100644
--- a/lisp/mips-assem.S
+++ b/lisp/mips-assem.S
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.2 1992/08/16 13:41:50 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.3 1993/01/10 17:27:07 wlott Exp $ */
 #include <machine/regdef.h>
 
 #include "internals.h"
@@ -262,7 +262,7 @@ undefined_tramp:
 closure_tramp:
         lw      reg_LEXENV, FDEFN_FUNCTION_OFFSET(reg_FDEFN)
         lw      reg_L0, CLOSURE_FUNCTION_OFFSET(reg_LEXENV)
-        addu    reg_LIP, reg_L0, FUNCTION_HEADER_CODE_OFFSET
+        addu    reg_LIP, reg_L0, FUNCTION_CODE_OFFSET
         j       reg_LIP
         .end    closure_tramp
 
diff --git a/lisp/sparc-assem.S b/lisp/sparc-assem.S
index 85e5c0e9f..4e22039bf 100644
--- a/lisp/sparc-assem.S
+++ b/lisp/sparc-assem.S
@@ -76,7 +76,7 @@ _call_into_lisp:
         /* Indirect closure */
         ld      [reg_LEXENV+CLOSURE_FUNCTION_OFFSET], reg_CODE
 
-        jmp     reg_CODE+FUNCTION_HEADER_CODE_OFFSET
+        jmp     reg_CODE+FUNCTION_CODE_OFFSET
         nop
 
         .align  8
@@ -201,7 +201,7 @@ _undefined_tramp:
 	.align	4
 1:
 	ld	[reg_FDEFN+FDEFN_RAW_ADDR_OFFSET], reg_CODE
-	jmp	reg_CODE+FUNCTION_HEADER_CODE_OFFSET
+	jmp	reg_CODE+FUNCTION_CODE_OFFSET
 	nop
 
 	.global	_closure_tramp
@@ -217,7 +217,7 @@ _closure_tramp:
 
 	ld	[reg_FDEFN+FDEFN_FUNCTION_OFFSET], reg_LEXENV
 	ld	[reg_LEXENV+CLOSURE_FUNCTION_OFFSET], reg_CODE
-	jmp	reg_CODE+FUNCTION_HEADER_CODE_OFFSET
+	jmp	reg_CODE+FUNCTION_CODE_OFFSET
 	nop
 
 
-- 
GitLab