First release of debugging information generating utilities.

diff --git a/v7/src/compiler/machines/bobcat/decls.scm b/v7/src/compiler/machines/bobcat/decls.scm
index 53e870ebb7fb6cce0827b807d089577c254d71d2..14c7324a92379eb0d29ca3e73779acbab2acdc4d 100644 (file)
--- 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 1eab6bab7f089d0de051a6b503ca10d7d4eaa536..bd2f6675a52381b855bf2efdcd37ab4bd6a8a198 100644 (file)
--- 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"