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.

diff --git a/v7/src/compiler/rtlbase/rtlobj.scm b/v7/src/compiler/rtlbase/rtlobj.scm
index 754842bc5b05879803f263d8b81f48e838f5830a..2f539588a6a541b6527436ae051f7794421a1952 100644 (file)
--- 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 c5ffa4c52b5d66dbdb0e1ef1d402b4d70417f682..490afe140908c76afc3dcd7740438f6532506a5a 100644 (file)
--- 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)))))