Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -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/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 ;;; This file contains the virtual machine independent parts of the code
;;; which does the actual translation of nodes to VOPs. ;;; which does the actual translation of nodes to VOPs.
...@@ -662,7 +662,7 @@ ...@@ -662,7 +662,7 @@
(this-1env (node-environment node))) (this-1env (node-environment node)))
(vop current-fp node block old-fp) (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)) (let* ((args (reference-tn old-fp nil))
(tail args)) (tail args))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment