| Index: gdb/testsuite/gdb.python/py-prompt.exp
|
| diff --git a/gdb/testsuite/gdb.python/py-prompt.exp b/gdb/testsuite/gdb.python/py-prompt.exp
|
| index 4d710905bf84c7a77f9daf5176be0134a63d9119..b5d9368d0d5dc0aa46f4801f2397ea4d52582ddb 100644
|
| --- a/gdb/testsuite/gdb.python/py-prompt.exp
|
| +++ b/gdb/testsuite/gdb.python/py-prompt.exp
|
| @@ -16,14 +16,12 @@
|
| # This file is part of the GDB testsuite. It tests the mechanism
|
| # for defining the prompt in Python.
|
|
|
| -if $tracelevel then {
|
| - strace $tracelevel
|
| -}
|
| -
|
| -set testfile "py-prompt"
|
| -set srcfile ${testfile}.c
|
| -set binfile ${objdir}/${subdir}/${testfile}
|
| +standard_testfile
|
|
|
| +# We need to use TCL's exec to get the pid.
|
| +if [is_remote target] then {
|
| + return 0
|
| +}
|
|
|
| load_lib gdb-python.exp
|
| load_lib prompt.exp
|
| @@ -38,8 +36,7 @@ gdb_reinitialize_dir $srcdir/$subdir
|
| if { [skip_python_tests] } { continue }
|
| gdb_exit
|
|
|
| -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
|
| - untested py-prompt.exp
|
| +if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
|
| return -1
|
| }
|
|
|
|
|