From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 Apr 1991 00:51:09 +0000 (+0000)
Subject: `block/next-continuation-offset', when it found that the next thing up
X-Git-Tag: 20090517-FFI~10785
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0729ff1953757180b9038e916d8a85dea4c26f6d;p=mit-scheme.git

`block/next-continuation-offset', when it found that the next thing up
on the stack was an "always-known" continuation, failed to take that
continuation's offset into account when determining the distance to
the continuation above that.
---

diff --git a/v7/src/compiler/rtlgen/rtlgen.scm b/v7/src/compiler/rtlgen/rtlgen.scm
index e0d3051ab..537f7434b 100644
--- a/v7/src/compiler/rtlgen/rtlgen.scm
+++ b/v7/src/compiler/rtlgen/rtlgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.25 1991/04/02 00:05:04 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.26 1991/04/03 00:51:09 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -233,7 +233,8 @@ MIT in each case. |#
 			 (block-procedure stack-link)))
 		   (block/next-continuation-offset
 		    (block-parent stack-link)
-		    offset)
+		    (+ (continuation/offset (block-procedure stack-link))
+		       offset))
 		   (let ((continuation
 			  (lvalue-known-value
 			   (stack-block/continuation-lvalue popping-limit))))
@@ -242,7 +243,7 @@ MIT in each case. |#
 			       continuation))
 			 (block/next-continuation-offset
 			  (continuation/closing-block continuation)
-			  offset)
+			  (+ (continuation/offset continuation) offset))
 			 offset))))))
       offset))