init

diff --git a/bin/diffgdb b/bin/diffgdb
new file mode 100755 (executable)
index 0000000..c6b89e1
--- /dev/null
+++ b/bin/diffgdb
@@ -0,0 +1,45 @@
+#! /bin/sh
+exec diff \
+       -I '^Test Run By ' \
+       -I '^gnatbind ' \
+       -I '^gnatlink ' \
+       -I '^gnatlink: ' \
+       -I '^gnatmake: ' \
+       -I '^gcc ' \
+       -I '^/usr/bin/ld: .* architecture of input file .* is incompatible with .* output$' \
+       -I '^collect2: ' \
+       -I '^UNSUPPORTED: ' \
+       -I '^UNTESTED: ' \
+       -I '^UNRESOLVED: ' \
+       -I '^ERROR: ' \
+       -I '^WARNING: ' \
+       -I '^Running ' \
+       -I '^[^:]*[.]ad[sb]:[0-9]' \
+       -I '^\(PASS\|FAIL\): gdb.server/ext-run.exp: get process list$' \
+       -I '^\(PASS\|FAIL\): gdb.base/checkpoint.exp: info checkpoints with at least 600 checkpoints$' \
+       -I '^\(PASS\|FAIL\): gdb.base/checkpoint.exp: break2 with many checkpoints$' \
+       -I '^\(PASS\|FAIL\): gdb.base/interrupt.exp: ' \
+       -I '^\(PASS\|FAIL\): gdb.base/gdb1250.exp: ' \
+       -I '^KFAIL: gdb.threads/watchthreads2.exp: gdb can drop watchpoints in multithreaded app (PRMS: gdb/10116)$' \
+       -I '^PASS: gdb.threads/watchthreads2.exp: all threads incremented x$' \
+       -I '^FAIL: gdb.base/sigbpt.exp: Verify that SIGSEGV occurs at the last STEPI insn (none 0x[a-f0-9]*)$' \
+       -I '^PASS: gdb.threads/threadcrash.exp: core file: ' \
+       -I '^PASS: gdb.threads/watchthreads.exp: disable [0-9]*$' \
+       -I '^FAIL: gdb.mi/mi-nsmoribund.exp: unexpected stop$' \
+       -I '^PASS: gdb.mi/mi-nsmoribund.exp: resume all, program exited normally$' \
+       -I '^gdb compile failed, ' \
+       -I '^gdb compile failed, /usr/bin/ld: /tmp/[a-zA-Z0-9]*.o: relocation R_X86_64_32S against `a local symbol. can not be used when making a shared object; recompile with -fPIC$' \
+       -I '^/tmp/[a-zA-Z0-9]*.o: could not read symbols: Bad value$' \
+       -I '^# of ' \
+       -I '^/home/' \
+       -I '^PASS: gdb.arch/i386-biarch-core.exp: core-file /home/.*/i386-biarch-core.core$' \
+       -I '^\.\./as-new [0-9.]*$' \
+       -I '^ld/ld-new [0-9.]*$' \
+       -I '^\(PASS\|FAIL\): gdb.mi/mi-break.exp: test hitting breakpoint with commands$' \
+       -I '^\(PASS\|FAIL\): gdb.threads/attach-stopped.exp: threaded: attach2, exit leaves process sleeping$' \
+       -I '^\(PASS\|FAIL\): gdb.threads/attachstop-mt.exp: attach4 stop by interrupt\(\| (timeout)\)$' \
+       -I '^\(PASS\|FAIL\): gdb.threads/attachstop-mt.exp: attach4, exit leaves process sleeping$' \
+       -I '^\(PASS\|FAIL\): gdb.threads/manythreads.exp: info threads$' \
+       -I 'gdb version  [0-9][^ ]* -nw -nx $' \
+       -I '^\(PASS\|FAIL\): gdb.threads/attach-stopped.exp: threaded: attach1, exit leaves process stopped$' \
+-ru "$@" | grep -v '^diff '

diff --git a/bin/diffgdbdir b/bin/diffgdbdir
new file mode 100755 (executable)
index 0000000..861ba02
--- /dev/null
+++ b/bin/diffgdbdir
@@ -0,0 +1,43 @@
+#! /bin/sh
+
+x="*.log"
+if [ "$1" = "log" ];then
+       x="*.sum"
+       shift
+fi
+
+if [ $# != 2 ];then
+       echo >&2 "$0 hammock/xxxxyyzzname hammock/XXXXYYZZothername"
+       exit 1
+fi
+
+diffed=false
+function diffit
+{
+       dir1=$1/out
+       dir2=$2/out
+       if [ ! -e "$dir2" ];then
+               echo "MISSING: $dir1 $dir2"
+               return
+       fi
+       diffgdb -x "$x" $dir1 $dir2
+       diffed=true
+}
+
+for arch in x86_64 i386;do
+       if [ -d $1-$arch ];then
+               diffit $1-$arch $2-$arch
+       fi
+       if [ -d $1$arch ];then
+               diffit $1$arch $2$arch
+       fi
+       if [ -d $1/*-$arch ];then
+               diffit $1/*-$arch $2/*-$arch
+       fi
+done
+if [ -d $1/out ];then
+       diffit $1 $2
+fi
+if ! $diffed;then
+       echo "NOT FOUND: $1 $2"
+fi