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