gdb/testsuite/

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / jit-so.exp

diff --git a/gdb/testsuite/gdb.base/jit-so.exp b/gdb/testsuite/gdb.base/jit-so.exp
index 8807a65dd8c229a7acdf578fba79adebbc8e98c5..e3a37283ee709905ef572f967b0cd68a7942db57 100644 (file)
--- a/gdb/testsuite/gdb.base/jit-so.exp
+++ b/gdb/testsuite/gdb.base/jit-so.exp
@@ -1,4 +1,4 @@
-# Copyright 2011-2012 Free Software Foundation, Inc.
+# Copyright 2011-2013 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -16,16 +16,12 @@
 # The same tests as in jit.exp, but loading JITer itself from a shared
 # library.
 
-if $tracelevel {
-    strace $tracelevel
-}
-
 if {[skip_shlib_tests]} {
     untested jit-so.exp
     return -1
 }
 
-if {[get_compiler_info not-used]} {
+if {[get_compiler_info]} {
     warning "Could not get compiler info"
     untested jit-so.exp
     return 1
@@ -68,57 +64,55 @@ if { [gdb_compile_shlib ${solib_srcfile} ${solib_binfile} {}] != "" } {
 set solib_binfile_target [gdb_download ${solib_binfile}]
 
 proc one_jit_test {count match_str} {
-    global verbose testfile srcfile2 binfile2 binfile2_dlopen solib_binfile_target solib_binfile_test_msg pf_prefix
-
-    set old_pf_prefix $pf_prefix
-    lappend pf_prefix "one_jit_test-$count:"
-
-    clean_restart $testfile
-    gdb_load_shlibs $binfile2
-
-    # This is just to help debugging when things fail
-    if {$verbose > 0} {
-       gdb_test "set debug jit 1"
-    }
-
-    if { ![runto_main] } {
-       fail "Can't run to main"
-       return
-    }
-
-    gdb_breakpoint [gdb_get_line_number "break here before-dlopen" ]
-    gdb_continue_to_breakpoint "break here before-dlopen"
-    # Poke desired values directly into inferior instead of using "set args"
-    # because "set args" does not work under gdbserver.
-    gdb_test_no_output "set var jit_libname = \"$binfile2_dlopen\""
-
-    gdb_breakpoint [gdb_get_line_number "break here after-dlopen" ]
-    gdb_continue_to_breakpoint "break here after-dlopen"
-
-    gdb_breakpoint "$srcfile2:[gdb_get_line_number {break here 0} $srcfile2]"
-    gdb_continue_to_breakpoint "break here 0"
-
-    gdb_test_no_output "set var argc = 2"
-    gdb_test_no_output "set var libname = \"$solib_binfile_target\"" "set var libname = \"$solib_binfile_test_msg\""
-    gdb_test_no_output "set var count = $count"
-
-    gdb_breakpoint "$srcfile2:[gdb_get_line_number {break here 1} $srcfile2]"
-    gdb_continue_to_breakpoint "break here 1"
-
-    gdb_test "info function jit_function" "$match_str"
-
-    # This is just to help debugging when things fail
-    if {$verbose > 0} {
-       gdb_test "maintenance print objfiles"
-       gdb_test "maintenance info break"
+    with_test_prefix "one_jit_test-$count" {
+       global verbose testfile srcfile2 binfile2 binfile2_dlopen solib_binfile_target solib_binfile_test_msg
+
+       clean_restart $testfile
+       gdb_load_shlibs $binfile2
+
+       # This is just to help debugging when things fail
+       if {$verbose > 0} {
+           gdb_test "set debug jit 1"
+       }
+
+       if { ![runto_main] } {
+           fail "Can't run to main"
+           return
+       }
+
+       gdb_breakpoint [gdb_get_line_number "break here before-dlopen" ]
+       gdb_continue_to_breakpoint "break here before-dlopen"
+       # Poke desired values directly into inferior instead of using "set args"
+       # because "set args" does not work under gdbserver.
+       gdb_test_no_output "set var jit_libname = \"$binfile2_dlopen\""
+
+       gdb_breakpoint [gdb_get_line_number "break here after-dlopen" ]
+       gdb_continue_to_breakpoint "break here after-dlopen"
+
+       gdb_breakpoint "$srcfile2:[gdb_get_line_number {break here 0} $srcfile2]"
+       gdb_continue_to_breakpoint "break here 0"
+
+       gdb_test_no_output "set var argc = 2"
+       gdb_test_no_output "set var libname = \"$solib_binfile_target\"" "set var libname = \"$solib_binfile_test_msg\""
+       gdb_test_no_output "set var count = $count"
+
+       gdb_breakpoint "$srcfile2:[gdb_get_line_number {break here 1} $srcfile2]"
+       gdb_continue_to_breakpoint "break here 1"
+
+       gdb_test "info function jit_function" "$match_str"
+
+       # This is just to help debugging when things fail
+       if {$verbose > 0} {
+           gdb_test "maintenance print objfiles"
+           gdb_test "maintenance info break"
+       }
+
+       gdb_breakpoint "$srcfile2:[gdb_get_line_number {break here 2} $srcfile2]"
+       gdb_continue_to_breakpoint "break here 2"
+       # All jit librares must have been unregistered
+       gdb_test "info function jit_function" \
+           "All functions matching regular expression \"jit_function\":"
     }
-
-    gdb_breakpoint "$srcfile2:[gdb_get_line_number {break here 2} $srcfile2]"
-    gdb_continue_to_breakpoint "break here 2"
-    # All jit librares must have been unregistered
-    gdb_test "info function jit_function" \
-       "All functions matching regular expression \"jit_function\":"
-    set pf_prefix $old_pf_prefix
 }
 
 one_jit_test 1 "${hex}  jit_function_0000"