From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jimmy Guo To: gdb-patches@sourceware.cygnus.com Subject: Re: [PATCH] dejagnu runtest.exp cleanup Date: Wed, 02 Aug 2000 15:22:00 -0000 Message-id: References: X-SW-Source: 2000-08/msg00051.html FYI I've committed this. - Jimmy On Mon, 31 Jul 2000, Jimmy Guo wrote: >Mon Jul 31 16:45:29 Jimmy Guo > > * 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 "" > } > > Jimmy Guo, guo@cup.hp.com ADO eDL WDB Voice: 800-477-6111 ext. 7451 Hewlett-Packard Company (HP T-447-5229) 11000 Wolfe Road, MS 42UD Fax: 408-447-4629 Cupertino, CA 95014-0678