GDB support: add frame annotators and filters

[bpt/guile.git] / benchmark-guile.in

diff --git a/benchmark-guile.in b/benchmark-guile.in
index af1ade6..8378e9d 100644 (file)
--- a/benchmark-guile.in
+++ b/benchmark-guile.in
@@ -1,6 +1,6 @@
 #! /bin/sh
 # Usage: benchmark-guile [-i GUILE-INTERPRETER] [GUILE-BENCHMARK-ARGS]
-# If `-i GUILE-INTERPRETER' is omitted, use ${top_builddir}/pre-inst-guile.
+# If `-i GUILE-INTERPRETER' is omitted, use ${top_builddir}/meta/guile.
 # See ${top_srcdir}/benchmark-suite/guile-benchmark for documentation on GUILE-BENCHMARK-ARGS.
 #
 # Example invocations:
@@ -21,10 +21,10 @@ if [ x"$1" = x-i ] ; then
     shift
     shift
 else
-    guile=${top_builddir}/pre-inst-guile
+    guile=${top_builddir}/meta/guile
 fi
 
-GUILE_LOAD_PATH=$BENCHMARK_SUITE_DIR
+GUILE_LOAD_PATH="$BENCHMARK_SUITE_DIR${GUILE_LOAD_PATH:+:}$GUILE_LOAD_PATH"
 export GUILE_LOAD_PATH
 
 if [ -f "$guile" -a -x "$guile" ] ; then
@@ -41,6 +41,7 @@ if [ ! -f guile-procedures.txt ] ; then
 fi
 
 exec $guile \
+    -L "$BENCHMARK_SUITE_DIR" \
     -e main -s "$BENCHMARK_SUITE_DIR/guile-benchmark" \
     --benchmark-suite "$BENCHMARK_SUITE_DIR/benchmarks" \
     --log-file benchmark-guile.log "$@"