From 84fc1880a5974f5f6b6d5195de2888cf4f926bce Mon Sep 17 00:00:00 2001
From: "Michael R. Blair" <edu/mit/csail/zurich/ziggy>
Date: Sat, 3 Jun 2006 08:10:10 +0000
Subject: [PATCH] Resurrect the `ppband' fasdump/band parser and heap
 pretty-print tool.

This tool is very useful for perusing the heap (think GC debugging).
I'm not its original author but I am its most loyal fan!

Stay tuned for more clean up before giving it a spin.  For those who
just cannot wait, try:  ./ppband < runtime.com > /usr/tmp/runtime.txt
---
 v7/src/microcode/makegen/Makefile.in.in  | 16 ++++++++++++++--
 v7/src/microcode/makegen/files-other.scm |  3 ++-
 2 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/v7/src/microcode/makegen/Makefile.in.in b/v7/src/microcode/makegen/Makefile.in.in
index 57ae7ed09..bbeb2aad3 100644
--- a/v7/src/microcode/makegen/Makefile.in.in
+++ b/v7/src/microcode/makegen/Makefile.in.in
@@ -1,4 +1,6 @@
-# $Id: Makefile.in.in,v 1.25 2005/06/26 05:36:52 cph Exp $
+# -*-Makefile-*-
+#
+# $Id: Makefile.in.in,v 1.26 2006/06/03 08:10:10 ihtfisp Exp $
 #
 # Copyright 2000,2001,2002,2003 Massachusetts Institute of Technology
 #
@@ -123,7 +125,7 @@ SHARED_OBJECTS = $(CORE_OBJECTS) $(OS_PRIM_OBJECTS) $(UNIX_OBJECTS) \
 # **** Program definitions ****
 
 bin_PROGRAMS = scheme bchscheme
-aux_PROGRAMS = gcdrone
+aux_PROGRAMS = gcdrone ppband
 aux_LIBS = $(MODULE_TARGETS)
 aux_DATA = utabmd.bin
 EXTRA_PROGRAMS = findprim bintopsb psbtobin
@@ -164,6 +166,12 @@ psbtobin_DEPENDENCIES =
 psbtobin_LDFLAGS = 
 psbtobin_LIBS = $(LIBS)
 
+ppband_SOURCES = ppband.c outf.c load.c
+ppband_OBJECTS = ppband.o outf.o
+ppband_DEPENDENCIES = 
+ppband_LDFLAGS = 
+ppband_LIBS = $(LIBS)
+
 ALL_PROGRAMS = $(bin_PROGRAMS) $(aux_PROGRAMS)
 ALL_LIBS = $(aux_LIBS)
 ALL_DATA = $(aux_DATA)
@@ -229,6 +237,10 @@ psbtobin: $(psbtobin_OBJECTS) $(psbtobin_DEPENDENCIES)
 	-rm -f $@
 	$(LINK) $(psbtobin_LDFLAGS) $(psbtobin_OBJECTS) $(psbtobin_LIBS)
 
+ppband: $(ppband_OBJECTS) $(ppband_DEPENDENCIES)
+	-rm -f $@
+	$(LINK) $(ppband_LDFLAGS) $(ppband_OBJECTS) $(ppband_LIBS)
+
 utabmd.bin: utabmd.scm
 	./utabmd.sh
 
diff --git a/v7/src/microcode/makegen/files-other.scm b/v7/src/microcode/makegen/files-other.scm
index fcf3ffc66..fd8521b3c 100644
--- a/v7/src/microcode/makegen/files-other.scm
+++ b/v7/src/microcode/makegen/files-other.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: files-other.scm,v 1.4 2003/02/14 18:28:31 cph Exp $
+$Id: files-other.scm,v 1.5 2006/06/03 08:10:10 ihtfisp Exp $
 
 Copyright (c) 2000 Massachusetts Institute of Technology
 
@@ -29,3 +29,4 @@ USA.
 "bintopsb"
 "findprim"
 "psbtobin"
+"ppband"
-- 
2.25.1