From 25b1689b3ef6e2562e5a4b34e7434f4a260a7e03 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 5 Nov 1988 02:59:48 +0000
Subject: [PATCH] Must adjust stack pointer for special primitive invocations.

---
 v7/src/compiler/rtlopt/rcse1.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/compiler/rtlopt/rcse1.scm b/v7/src/compiler/rtlopt/rcse1.scm
index 04265b394..96b6a6c38 100644
--- a/v7/src/compiler/rtlopt/rcse1.scm
+++ b/v7/src/compiler/rtlopt/rcse1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 4.13 1988/11/03 06:33:23 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 4.14 1988/11/05 02:59:48 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -302,6 +302,7 @@ MIT in each case. |#
 (define-cse-method 'INVOCATION:SPECIAL-PRIMITIVE
   (lambda (statement)
     statement
+    (stack-pointer-adjust! (rtl:invocation:special-primitive-pushed statement))
     (expression-invalidate! (interpreter-value-register))
     (expression-invalidate! (interpreter-free-pointer))))
 
-- 
2.25.1