From 6ad16b1a26824a410c7c311321134e1c6c3d4d24 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 Jun 1987 19:48:46 +0000
Subject: [PATCH] For `move-frame-up' invocation prefix, zero frame-size does
 not indicate that nothing need be done.

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

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 7c8fecc9d..dd085e171 100644
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.178 1987/06/08 14:50:15 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.179 1987/06/10 19:48:46 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -695,7 +695,9 @@ MIT in each case. |#
 	(else (error "GENERATE-INVOCATION-PREFIX: bad prefix type" prefix)))))
 
 (define (generate-invocation-prefix:move-frame-up frame-size how-far)
-  (cond ((or (zero? frame-size) (zero? how-far)) '())
+  (cond ((zero? how-far) '())
+	((zero? frame-size)
+	 (increment-anl 7 how-far))
 	((= frame-size 1)
 	 `((MOVE L (@A+ 7) ,(offset-reference a7 (-1+ how-far)))
 	   ,@(increment-anl 7 (-1+ how-far))))
-- 
2.25.1