From: Keith Seitz Date: Mon, 23 Jul 2001 19:02:31 +0000 (+0000) Subject: * lib/gdb.exp (_gdbtk_xvfb_init): If GDB_DISPLAY is X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=413eca6f968c5c6321e273b60b453423cf532d9e;p=binutils-gdb.git * lib/gdb.exp (_gdbtk_xvfb_init): If GDB_DISPLAY is the empty string, do not run the tests. --- diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 844e4c028b5..137be011268 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2001-07-22 Keith Seitz + + * lib/gdb.exp (_gdbtk_xvfb_init): If GDB_DISPLAY is + the empty string, do not run the tests. + 2001-07-17 Stephane Carrez * gdb.base/long_long.exp: Detect size of pointer. Take into diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 73df80f53a7..4949083de4b 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -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]