Skip to content
Snippets Groups Projects
Commit 3e091dff authored by wlott's avatar wlott
Browse files

Changed function-header-code-offset to function-code-offset.

parent 2c8199b8
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -175,7 +175,7 @@
(emit-label start-lab) (emit-label start-lab)
;; Allocate function header. ;; Allocate function header.
(inst function-header-word) (inst function-header-word)
(dotimes (i (1- vm:function-header-code-offset)) (dotimes (i (1- vm:function-code-offset))
(inst word 0)) (inst word 0))
;; The start of the actual code. ;; The start of the actual code.
;; Fix CODE, cause the function object was passed in. ;; Fix CODE, cause the function object was passed in.
...@@ -821,7 +821,7 @@ default-value-8 ...@@ -821,7 +821,7 @@ default-value-8
(note-this-location vop :call-site) (note-this-location vop :call-site)
(inst j function (inst j function
(- (ash vm:function-header-code-offset vm:word-shift) (- (ash vm:function-code-offset vm:word-shift)
vm:function-pointer-type)) vm:function-pointer-type))
(inst move code-tn function)) (inst move code-tn function))
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; This file contains various useful macros for generating SPARC code.
;;; ;;;
...@@ -81,9 +81,8 @@ ...@@ -81,9 +81,8 @@
(defmacro lisp-jump (function) (defmacro lisp-jump (function)
"Jump to the lisp function FUNCTION. LIP is an interior-reg temporary." "Jump to the lisp function FUNCTION. LIP is an interior-reg temporary."
`(progn `(progn
(inst j ,function (- (ash function-header-code-offset (inst j ,function
word-shift) (- (ash function-code-offset word-shift) function-pointer-type))
function-pointer-type))
(move code-tn ,function))) (move code-tn ,function)))
(defmacro lisp-return (return-pc &key (offset 0) (frob-code t)) (defmacro lisp-return (return-pc &key (offset 0) (frob-code t))
......
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