This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[PATCH] dejagnu runtest.exp cleanup
- To: gdb-patches at sourceware dot cygnus dot com
- Subject: [PATCH] dejagnu runtest.exp cleanup
- From: Jimmy Guo <guo at cup dot hp dot com>
- Date: Mon, 31 Jul 2000 16:59:12 -0700 (PDT)
Mon Jul 31 16:45:29 Jimmy Guo <guo@cup.hp.com>
* runtest.exp: Cleanup reference to $env(MULTIPASS) and
$env(PASS). These were added by HP but unused since.
Index: runtest.exp
/usr/local/bin/diff -c -L runtest.exp runtest.exp@@/main/cygnus/6 runtest.exp
*** runtest.exp
--- runtest.exp Mon Jul 31 16:43:59 2000
***************
*** 1604,1623 ****
if { [info exists MULTIPASS] } {
set multipass $MULTIPASS
- } elseif {[info exists env(MULTIPASS)]} {
- set multipass $env(MULTIPASS)
}
if { $multipass == "" } {
set multipass { "" }
}
! # If PASS is specified, either as a TCL variable or in environment, we
! # want to run only the tests specified. Its value should be a number
! # or a list of numbers that specify the passes that we want to run.
if [info exists PASS] {
set pass $PASS
- } elseif [info exists env(PASS)] {
- set pass $env(PASS)
} else {
set pass ""
}
--- 1604,1619 ----
if { [info exists MULTIPASS] } {
set multipass $MULTIPASS
}
if { $multipass == "" } {
set multipass { "" }
}
! # If PASS is specified, we want to run only the tests specified.
! # Its value should be a number or a list of numbers that specify
! # the passes that we want to run.
if [info exists PASS] {
set pass $PASS
} else {
set pass ""
}