From 78f7087b0a3539686f461292b7b67e10c7638fab Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 21 Nov 1993 00:41:49 +0000 Subject: [PATCH] Add code to handle the load/purification-root of blocks produced by the C back end. --- v7/src/runtime/infutl.scm | 10 ++++++++-- v8/src/runtime/infutl.scm | 10 ++++++++-- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm index 6568cbf53..ae4687670 100644 --- a/v7/src/runtime/infutl.scm +++ b/v7/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: infutl.scm,v 1.50 1993/11/18 01:33:22 cph Exp $ +$Id: infutl.scm,v 1.51 1993/11/21 00:41:49 gjr Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -242,7 +242,13 @@ MIT in each case. |# (set-car! (compiled-code-block/debugging-info (vector-ref blocks index)) binf-filename) - (loop (1+ index))))))))))) + (loop (1+ index)))))))) + ((vector? value) + (for-each-vector-element + value + (lambda (el) + (if (compiled-code-block? el) + (process-block el)))))))) (define (process-binf-filename binf-filename com-pathname) (and binf-filename diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm index 6568cbf53..ae4687670 100644 --- a/v8/src/runtime/infutl.scm +++ b/v8/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: infutl.scm,v 1.50 1993/11/18 01:33:22 cph Exp $ +$Id: infutl.scm,v 1.51 1993/11/21 00:41:49 gjr Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -242,7 +242,13 @@ MIT in each case. |# (set-car! (compiled-code-block/debugging-info (vector-ref blocks index)) binf-filename) - (loop (1+ index))))))))))) + (loop (1+ index)))))))) + ((vector? value) + (for-each-vector-element + value + (lambda (el) + (if (compiled-code-block? el) + (process-block el)))))))) (define (process-binf-filename binf-filename com-pathname) (and binf-filename -- 2.25.1