From 7237edab7118e2a355180f2f07bc978b579fe386 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 30 Nov 1989 16:03:27 +0000
Subject: [PATCH] New compiled code interface written in C.

rtl-procedures now included a field that specifies whether they
need a dynamic link so that the interrupt handler can be determined at
compile time.
---
 v7/src/compiler/rtlbase/rtlobj.scm | 6 ++++--
 v7/src/compiler/rtlgen/rtlgen.scm  | 6 +++++-
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/v7/src/compiler/rtlbase/rtlobj.scm b/v7/src/compiler/rtlbase/rtlobj.scm
index 754842bc5..2f539588a 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.7 1989/08/21 19:34:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlobj.scm,v 4.8 1989/11/30 16:02:28 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -56,7 +56,8 @@ MIT in each case. |#
 		   (conc-name rtl-procedure/)
 		   (constructor make-rtl-procedure
 				(rgraph label entry-edge name n-required
-					n-optional rest? closure? type
+					n-optional rest? closure?
+					dynamic-link? type
 					debugging-info))
 		   (print-procedure
 		    (standard-unparser (symbol->string 'RTL-PROCEDURE)
@@ -71,6 +72,7 @@ MIT in each case. |#
   (n-optional false read-only true)
   (rest? false read-only true)
   (closure? false read-only true)
+  (dynamic-link? false read-only true)
   (type false read-only true)
   (%external-label false)
   (debugging-info false read-only true))
diff --git a/v7/src/compiler/rtlgen/rtlgen.scm b/v7/src/compiler/rtlgen/rtlgen.scm
index c5ffa4c52..490afe140 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.21 1989/10/26 07:39:15 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.22 1989/11/30 16:03:27 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -119,6 +119,10 @@ MIT in each case. |#
        (length (procedure-original-optional procedure))
        (and (procedure-original-rest procedure) true)
        (and (procedure/closure? procedure) true)
+       (let ((block (procedure-block procedure)))
+	 (and (stack-block? block)
+	      (stack-block/dynamic-link? block)
+	      true))
        (procedure/type procedure)
        (procedure-debugging-info procedure)))))
 
-- 
2.25.1