From fd5ef6f63660cc0afbc312f885231f87154c847c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 Jun 1987 18:23:52 +0000
Subject: [PATCH] Generate frame-pointer assignment for IC procedures.

---
 v7/src/compiler/rtlgen/rgproc.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/compiler/rtlgen/rgproc.scm b/v7/src/compiler/rtlgen/rgproc.scm
index ea2c76b6f..17001593a 100644
--- a/v7/src/compiler/rtlgen/rgproc.scm
+++ b/v7/src/compiler/rtlgen/rgproc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgproc.scm,v 1.2 1987/06/13 03:01:28 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgproc.scm,v 1.3 1987/06/22 18:23:52 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -40,8 +40,10 @@ MIT in each case. |#
 
 (define-export (generate/procedure-header procedure body)
   (if (procedure/ic? procedure)
-      (scfg*scfg->scfg!
+      (scfg-append!
        (rtl:make-procedure-heap-check procedure)
+       (rtl:make-assignment register:frame-pointer
+			    (rtl:make-fetch register:stack-pointer))
        body)
       (scfg-append!
        ((if (or (procedure-rest procedure)
-- 
2.25.1