Commit 4800f322 authored by ram's avatar ram
Browse files

Pass the callee into ALLOCATE-FRAME so that it can tell whether to allocate a

NFP.
parent 9ffd0212
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.8 1990/04/19 14:27:06 ram Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.9 1990/04/19 15:28:43 ram Exp $
;;;
;;; This file contains the virtual machine independent parts of the code
;;; which does the actual translation of nodes to VOPs.
......@@ -662,7 +662,7 @@
(this-1env (node-environment node)))
(vop current-fp node block old-fp)
(vop allocate-frame node block fp nfp)
(vop allocate-frame node block fp nfp env)
(let* ((args (reference-tn old-fp nil))
(tail args))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment