* lib/gdb.exp (_gdbtk_xvfb_init): If GDB_DISPLAY is
the empty string, do not run the tests.
This commit is contained in:
parent
9f20bf26f8
commit
413eca6f96
@ -1,3 +1,8 @@
|
||||
2001-07-22 Keith Seitz <keiths@redhat.com>
|
||||
|
||||
* lib/gdb.exp (_gdbtk_xvfb_init): If GDB_DISPLAY is
|
||||
the empty string, do not run the tests.
|
||||
|
||||
2001-07-17 Stephane Carrez <Stephane.Carrez@worldnet.fr>
|
||||
|
||||
* gdb.base/long_long.exp: Detect size of pointer. Take into
|
||||
|
@ -1698,14 +1698,19 @@ proc gdbtk_start {test} {
|
||||
|
||||
# Start xvfb when using it.
|
||||
# The precedence is:
|
||||
# 1. If GDB_DISPLAY is set, use it
|
||||
# 1. If GDB_DISPLAY is set (and not ""), use it
|
||||
# 2. If Xvfb exists, use it (not on cygwin)
|
||||
# 3. Skip tests
|
||||
proc _gdbtk_xvfb_init {} {
|
||||
global env spawn_id _xvfb_spawn_id _using_windows
|
||||
|
||||
if {[info exists env(GDB_DISPLAY)]} {
|
||||
set env(DISPLAY) $env(GDB_DISPLAY)
|
||||
if {$env(GDB_DISPLAY) != ""} {
|
||||
set env(DISPLAY) $env(GDB_DISPLAY)
|
||||
} else {
|
||||
# Suppress tests
|
||||
return 0
|
||||
}
|
||||
} elseif {!$_using_windows && [which Xvfb] != 0} {
|
||||
set screen ":[getpid]"
|
||||
set pid [spawn Xvfb $screen]
|
||||
|
Loading…
x
Reference in New Issue
Block a user