From 6b1ed41efd681e89cbecfd8655e7af0eee6e1b2f Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 15 Jun 1988 18:24:01 +0000 Subject: [PATCH] Added compiler-info package. --- v7/src/runtime/runtime.pkg | 44 +++++++++++++++++++++++++++++++++++++- v8/src/runtime/runtime.pkg | 44 +++++++++++++++++++++++++++++++++++++- 2 files changed, 86 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index fabf1abb8..e09f93576 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.1 1988/06/13 12:07:50 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.2 1988/06/15 18:24:01 jrm Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -204,6 +204,48 @@ MIT in each case. |# predicate->char-set) (initialization (initialize-package!))) +(define-package (runtime compiler-info) + (files "infutl") + (parent ()) + (export () + compiler-info? + make-compiler-info + compiler-info-procedures + compiler-info-continuations + compiler-info-labels + + label-info? + make-label-info + label-info-name + label-info-offset + label-info-external? + + *compiler-info/load-on-demand?* + compiler-info/with-on-demand-loading + compiler-info/without-on-demand-loading + flush-compiler-info! + + make-sorted-vector + sorted-vector/vector + sorted-vector/find-element + sorted-vector/lookup + sorted-vector/find-indices + sorted-vector/there-exists? + sorted-vector/for-each + + block-symbol-table + compiled-code-block->pathstring + compiled-code-block->info + + compiled-entry->name + compiled-entry->pathname + compiled-entry->compiler-info + compiled-entry->block-and-offset + compiled-entry->block-and-offset-indirect + info-file + ) + (initialization (initialize-package!))) + (define-package (runtime console-input) (files "ttyin") (parent ()) diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index 509ce6674..47a9da9cf 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.1 1988/06/13 12:07:50 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.2 1988/06/15 18:24:01 jrm Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -204,6 +204,48 @@ MIT in each case. |# predicate->char-set) (initialization (initialize-package!))) +(define-package (runtime compiler-info) + (files "infutl") + (parent ()) + (export () + compiler-info? + make-compiler-info + compiler-info-procedures + compiler-info-continuations + compiler-info-labels + + label-info? + make-label-info + label-info-name + label-info-offset + label-info-external? + + *compiler-info/load-on-demand?* + compiler-info/with-on-demand-loading + compiler-info/without-on-demand-loading + flush-compiler-info! + + make-sorted-vector + sorted-vector/vector + sorted-vector/find-element + sorted-vector/lookup + sorted-vector/find-indices + sorted-vector/there-exists? + sorted-vector/for-each + + block-symbol-table + compiled-code-block->pathstring + compiled-code-block->info + + compiled-entry->name + compiled-entry->pathname + compiled-entry->compiler-info + compiled-entry->block-and-offset + compiled-entry->block-and-offset-indirect + info-file + ) + (initialization (initialize-package!))) + (define-package (runtime console-input) (files "ttyin") (parent ()) -- 2.25.1