From 82735df0fab9682352f981ae8940e525c0328f76 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Dec 1988 06:23:16 +0000
Subject: [PATCH] Add `next-continuation-offset' slot, which is either the
 stack offset to the next continuation, or false indicating that a dynamic
 link is in use.

---
 v7/src/compiler/rtlbase/rtlobj.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/v7/src/compiler/rtlbase/rtlobj.scm b/v7/src/compiler/rtlbase/rtlobj.scm
index ef7c76d3d..2c8bc1851 100644
--- a/v7/src/compiler/rtlbase/rtlobj.scm
+++ b/v7/src/compiler/rtlbase/rtlobj.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlobj.scm,v 4.4 1988/12/16 13:36:19 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlobj.scm,v 4.5 1988/12/23 06:23:16 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -86,7 +86,9 @@ MIT in each case. |#
 (define-structure (rtl-continuation
 		   (conc-name rtl-continuation/)
 		   (constructor make-rtl-continuation
-				(rgraph label entry-edge debugging-info))
+				(rgraph label entry-edge
+					next-continuation-offset
+					debugging-info))
 		   (print-procedure
 		    (standard-unparser "RTL-CONTINUATION"		      (lambda (state continuation)
 			(unparse-object
@@ -95,6 +97,7 @@ MIT in each case. |#
   (rgraph false read-only true)
   (label false read-only true)
   (entry-edge false read-only true)
+  (next-continuation-offset false read-only true)
   (debugging-info false read-only true))
 
 (define-integrable (rtl-continuation/entry-node continuation)
-- 
2.25.1