diff mbox

[1/8] gen-perf-test: clean_restart

Message ID 047d7bd9037c9e961c051b5a848d@google.com
State New
Headers show

Commit Message

Doug Evans July 21, 2015, 3:47 a.m. UTC
Hi.

This patch just makes the executable arg to clean_restart optional.

2015-07-20  Doug Evans  <dje@google.com>

	* lib/gdb.exp (clean_restart): Make executable optional.

  # Prepares for testing by calling build_executable_full, then
diff mbox

Patch

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 0805de9..6ee609b 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -4869,18 +4869,27 @@  proc build_executable { testname executable  
{sources ""} {options {debug}} } {
      return [eval build_executable_from_specs $arglist]
  }

-# Starts fresh GDB binary and loads EXECUTABLE into GDB. EXECUTABLE is
-# the basename of the binary.
-# The return value is 0 for success, -1 for failure.
-proc clean_restart { executable } {
+# Starts fresh GDB binary and loads an optional executable into GDB.
+# Usage: clean_restart [executable]
+# EXECUTABLE is the basename of the binary.
+
+proc clean_restart { args } {
      global srcdir
      global subdir
-    set binfile [standard_output_file ${executable}]
+
+    if { [llength $args] > 1 } {
+	error "bad number of args: [llength $args]"
+    }

      gdb_exit
      gdb_start
      gdb_reinitialize_dir $srcdir/$subdir
-    return [gdb_load ${binfile}]
+
+    if { [llength $args] >= 1 } {
+	set executable [lindex $args 0]
+	set binfile [standard_output_file ${executable}]
+	gdb_load ${binfile}
+    }
  }