From 66333b2a94226852c2f23e05119e4bda928dd0a6 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Fri, 17 Jul 1987 19:33:08 +0000 Subject: [PATCH] First release of debugging information generating utilities. --- v7/src/compiler/machines/bobcat/decls.scm | 12 ++++++------ v7/src/compiler/machines/bobcat/make.scm-68040 | 11 ++++++++--- 2 files changed, 14 insertions(+), 9 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/decls.scm b/v7/src/compiler/machines/bobcat/decls.scm index 53e870ebb..14c7324a9 100644 --- a/v7/src/compiler/machines/bobcat/decls.scm +++ b/v7/src/compiler/machines/bobcat/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/decls.scm,v 1.19 1987/07/17 15:46:27 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/decls.scm,v 1.20 1987/07/17 19:30:31 mhwu Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -77,7 +77,7 @@ MIT in each case. |# (filename/append "base" "object" "cfg1" "cfg2" "cfg3" "ctypes" "dtype1" "dtype2" "dtype3" "bblock" "dfg" "rtlty1" "rtlty2" "rtlreg" "rtlcfg" - "emodel" "rtypes" "regset")) + "emodel" "rtypes" "regset" "infutl" "infgen")) (define filenames/dependency-chain/rcse (filename/append "front-end" "rcseht" "rcserq" "rcse1" "rcse2")) @@ -171,10 +171,10 @@ MIT in each case. |# (file-dependency/syntax/join (append (filename/append "base" "bblock" "cfg1" "cfg2" "cfg3" "ctypes" "dfg" "dtype1" - "dtype2" "dtype3" "emodel" "linear" "object" "pmerly" - "queue" "regset" "rtlcfg" "rtlcon" "rtlexp" "rtlreg" - "rtlty1" "rtlty2" "rtypes" "sets" "toplv1" "toplv2" - "toplv3" "utils") + "dtype2" "dtype3" "emodel" "infutl" "infgen" "linear" + "object" "pmerly" "queue" "regset" "rtlcfg" "rtlcon" + "rtlexp" "rtlreg" "rtlty1" "rtlty2" "rtypes" "sets" + "toplv1" "toplv2" "toplv3" "utils") (filename/append "alpha" "declar" "dflow1" "dflow2" "dflow3" "dflow4" "dflow5" "dflow6" "fggen1" "fggen2") (filename/append "front-end" diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040 index 1eab6bab7..bd2f6675a 100644 --- a/v7/src/compiler/machines/bobcat/make.scm-68040 +++ b/v7/src/compiler/machines/bobcat/make.scm-68040 @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.33 1987/07/17 15:42:50 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.34 1987/07/17 19:33:08 mhwu Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -46,11 +46,11 @@ MIT in each case. |# (make-environment (define :name "Liar (Bobcat 68020)") (define :version 1) - (define :modification 33) + (define :modification 34) (define :files) ; (parse-rcs-header -; "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.33 1987/07/17 15:42:50 jinx Exp $" +; "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.34 1987/07/17 19:33:08 mhwu Exp $" ; (lambda (filename version date time zone author state) ; (set! :version (car version)) ; (set! :modification (cadr version)))) @@ -95,6 +95,7 @@ MIT in each case. |# "base/regset.bin" ;RTL Register Sets "base/pmlook.bin" ;pattern matcher: lookup "base/pmpars.bin" ;pattern matcher: parser + "base/infutl.bin" ;utilities for info generation, shared "back-end/insseq.bin" ;lap instruction sequences )) @@ -140,6 +141,10 @@ MIT in each case. |# "front-end/ralloc.bin" ;RTL register allocator )) + (cons debugging-information-package + '("base/infgen.bin" ;debugging information generation + )) + (cons lap-syntax-package '("back-end/lapgn1.bin" ;LAP generator. "back-end/lapgn2.bin" -- 2.25.1