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

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

parent 8b4ca808
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.48 1993/01/13 16:08:25 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.49 1993/02/04 13:39:40 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -92,8 +92,7 @@
(defmacro lisp-jump (function lip)
"Jump to the lisp function FUNCTION. LIP is an interior-reg temporary."
`(progn
(inst addu ,lip ,function (- (ash vm:function-header-code-offset
vm:word-shift)
(inst addu ,lip ,function (- (ash vm:function-code-offset vm:word-shift)
vm:function-pointer-type))
(inst j ,lip)
(move code-tn ,function)))
......
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