* lib/gdb.exp (standard_output_file): Use "file join".

* gdb.go/chan.exp: Use standard_testfile.
	* gdb.go/handcall.exp: Use standard_testfile.
	* gdb.go/hello.exp: Use standard_testfile.
	* gdb.integers/chan.exp: Use standard_testfile.
	* gdb.go/methods.exp: Use standard_testfile.
	* gdb.go/package.exp: Use standard_testfile.
	* gdb.go/strings.exp: Use standard_testfile.
	* gdb.go/types.exp: Use standard_testfile.
	* gdb.go/unsafe.exp: Use standard_testfile.
This commit is contained in:
Tom Tromey 2012-06-25 19:13:25 +00:00
parent adb4fe3b30
commit 8a3e1f8d52
11 changed files with 27 additions and 29 deletions

View File

@ -1,3 +1,16 @@
2012-06-25 Tom Tromey <tromey@redhat.com>
* lib/gdb.exp (standard_output_file): Use "file join".
* gdb.go/chan.exp: Use standard_testfile.
* gdb.go/handcall.exp: Use standard_testfile.
* gdb.go/hello.exp: Use standard_testfile.
* gdb.integers/chan.exp: Use standard_testfile.
* gdb.go/methods.exp: Use standard_testfile.
* gdb.go/package.exp: Use standard_testfile.
* gdb.go/strings.exp: Use standard_testfile.
* gdb.go/types.exp: Use standard_testfile.
* gdb.go/unsafe.exp: Use standard_testfile.
2012-06-25 Greta Yorsh <greta.yorsh@arm.com>
* gdb.arch/arm-disp-step.S: Fix use of .global directives.

View File

@ -22,8 +22,7 @@ load_lib "go.exp"
if { [skip_go_tests] } { continue }
set testfile "chan"
set srcfile ${testfile}.go
standard_testfile .go
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug go}] } {
return -1

View File

@ -21,8 +21,7 @@ load_lib "go.exp"
if { [skip_go_tests] } { continue }
set testfile "handcall"
set srcfile ${testfile}.go
standard_testfile .go
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug go}] } {
return -1

View File

@ -21,8 +21,7 @@ load_lib "go.exp"
if { [skip_go_tests] } { continue }
set testfile "hello"
set srcfile ${testfile}.go
standard_testfile .go
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug go}] } {
return -1

View File

@ -21,8 +21,7 @@ load_lib "go.exp"
if { [skip_go_tests] } { continue }
set testfile "integers"
set srcfile ${testfile}.go
standard_testfile .go
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug go}] } {
return -1

View File

@ -21,8 +21,7 @@ load_lib "go.exp"
if { [skip_go_tests] } { continue }
set testfile "methods"
set srcfile ${testfile}.go
standard_testfile .go
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug go}] } {
return -1

View File

@ -21,21 +21,13 @@ load_lib "go.exp"
if { [skip_go_tests] } { continue }
set testfile "package"
set binfile ${objdir}/${subdir}/${testfile}
standard_testfile package1.go package2.go
if { [gdb_compile "${srcdir}/${subdir}/${testfile}2.go" "${binfile}2.o" object {debug go}] != "" } {
untested $testfile
if {[prepare_for_testing $testfile.exp $testfile [list $srcfile $srcfile2] \
[list debug go libdir=[standard_output_file {}]]]} {
return -1
}
if { [gdb_compile "${srcdir}/${subdir}/${testfile}1.go ${binfile}2.o" "${binfile}" executable "debug go libdir=${objdir}/${subdir}"] != "" } {
untested $testfile
return -1
}
clean_restart $testfile
if { [go_runto_main] < 0 } {
untested methods
return -1

View File

@ -19,8 +19,7 @@ load_lib "go.exp"
if { [skip_go_tests] } { continue }
set testfile "strings"
set srcfile ${testfile}.go
standard_testfile .go
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug go}] } {
return -1

View File

@ -21,8 +21,7 @@ load_lib "go.exp"
if { [skip_go_tests] } { continue }
set testfile "types"
set srcfile ${testfile}.go
standard_testfile .go
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug go}] } {
return -1

View File

@ -21,8 +21,7 @@ load_lib "go.exp"
if { [skip_go_tests] } { continue }
set testfile "unsafe"
set srcfile ${testfile}.go
standard_testfile .go
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug go}] } {
return -1

View File

@ -3067,12 +3067,13 @@ proc default_gdb_init { args } {
}
# Turn BASENAME into a full file name in the standard output
# directory.
# directory. It is ok if BASENAME is the empty string; in this case
# the directory is returned.
proc standard_output_file {basename} {
global objdir subdir
return $objdir/$subdir/$basename
return [file join $objdir $subdir $basename]
}
# Set 'testfile', 'srcfile', and 'binfile'.