From 3e091dff1aec43e4451e39d9e0522257a8837df9 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 17 Dec 1992 09:40:58 +0000
Subject: [PATCH] Changed function-header-code-offset to function-code-offset.

---
 compiler/sparc/call.lisp   | 6 +++---
 compiler/sparc/macros.lisp | 7 +++----
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/compiler/sparc/call.lisp b/compiler/sparc/call.lisp
index aee7661d0..9c09b581a 100644
--- a/compiler/sparc/call.lisp
+++ b/compiler/sparc/call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.20 1992/10/20 23:37:53 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.21 1992/12/17 09:39:14 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -175,7 +175,7 @@
     (emit-label start-lab)
     ;; Allocate function header.
     (inst function-header-word)
-    (dotimes (i (1- vm:function-header-code-offset))
+    (dotimes (i (1- vm:function-code-offset))
       (inst word 0))
     ;; The start of the actual code.
     ;; Fix CODE, cause the function object was passed in.
@@ -821,7 +821,7 @@ default-value-8
 	   
 	   (note-this-location vop :call-site)
 	   (inst j function
-		 (- (ash vm:function-header-code-offset vm:word-shift)
+		 (- (ash vm:function-code-offset vm:word-shift)
 		    vm:function-pointer-type))
 	   (inst move code-tn function))
 
diff --git a/compiler/sparc/macros.lisp b/compiler/sparc/macros.lisp
index 8993ac74e..baa516348 100644
--- a/compiler/sparc/macros.lisp
+++ b/compiler/sparc/macros.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.8 1992/12/05 21:56:59 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.9 1992/12/17 09:40:58 wlott Exp $
 ;;;
 ;;; This file contains various useful macros for generating SPARC code.
 ;;;
@@ -81,9 +81,8 @@
 (defmacro lisp-jump (function)
   "Jump to the lisp function FUNCTION.  LIP is an interior-reg temporary."
   `(progn
-     (inst j ,function (- (ash function-header-code-offset
-			       word-shift)
-			  function-pointer-type))
+     (inst j ,function
+	   (- (ash function-code-offset word-shift) function-pointer-type))
      (move code-tn ,function)))
 
 (defmacro lisp-return (return-pc &key (offset 0) (frob-code t))
-- 
GitLab