Skip to content
Snippets Groups Projects
Commit 487a53a0 authored by ram's avatar ram
Browse files

function-header-code-offset => function-header-code-offset

parent 43f10df6
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/call.lisp,v 1.52.1.2 1993/01/23 14:48:04 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.52.1.3 1993/02/08 22:13:08 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -178,7 +178,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.
......@@ -844,7 +844,7 @@ default-value-8
vm:function-pointer-type))
(do-next-filler)
(inst addu lip function
(- (ash vm:function-header-code-offset
(- (ash vm:function-code-offset
vm:word-shift)
vm:function-pointer-type))))
(loop
......
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