From 84c9566def9d0a5c592739210e5d8a42f914752d Mon Sep 17 00:00:00 2001
From: Linas Vepstas <linas@linas.org>
Date: Sun, 17 Aug 2003 17:23:20 +0000
Subject: [PATCH] scripts to run the valgrind memory debugger

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@9108 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/bin/overrides/Makefile.am      |  1 +
 src/bin/overrides/gnucash-valgrind | 16 ++++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100755 src/bin/overrides/gnucash-valgrind

diff --git a/src/bin/overrides/Makefile.am b/src/bin/overrides/Makefile.am
index b40f9cf95f..a4cc747220 100644
--- a/src/bin/overrides/Makefile.am
+++ b/src/bin/overrides/Makefile.am
@@ -14,6 +14,7 @@ EXTRA_DIST = \
   gnucash-build-env.in \
   gnucash-make-guids \
   gnucash-run-script \
+  gnucash-valgrind \
   guile.in 
 
 noinst_DATA = gnucash-build-env
diff --git a/src/bin/overrides/gnucash-valgrind b/src/bin/overrides/gnucash-valgrind
new file mode 100755
index 0000000000..2e09be9ce7
--- /dev/null
+++ b/src/bin/overrides/gnucash-valgrind
@@ -0,0 +1,16 @@
+#!/bin/sh
+exec ./src/bin/overrides/gnucash-build-env valgrind -v --suppressions=./src/valgrind-gnucash.supp guile -e main -s "$0" "$@"
+!#
+
+(use-modules (gnucash main))
+
+(define (main args)
+  ;; UGLY HACK -- FIXME -- code should be rewritten to not need this.
+  ;; In particular, we should be using gnc_scm_lookup where we're using
+  ;; gh_lookup or gh_eval_str now.
+  (set-current-module (resolve-module '(gnucash main)))
+  (gnc:main))
+
+;; Local Variables:
+;; mode: scheme
+;; End: