aboutsummaryrefslogtreecommitdiff
path: root/lib/dg.exp
diff options
context:
space:
mode:
authorRob Savoye <rob@welcomehome.org>2003-03-17 02:25:05 +0000
committerRob Savoye <rob@welcomehome.org>2003-03-17 02:25:05 +0000
commit4306dace39d6628ca4105c672b1497c3c75ee745 (patch)
treef5a8e016dc94c65d51f49b16cfeb7ccf44f353fe /lib/dg.exp
parentfcec39f2fe9f5a28065086273464e7a589194969 (diff)
downloaddejagnu-4306dace39d6628ca4105c672b1497c3c75ee745.zip
dejagnu-4306dace39d6628ca4105c672b1497c3c75ee745.tar.gz
dejagnu-4306dace39d6628ca4105c672b1497c3c75ee745.tar.bz2
2003-03-16 Rob Savoye <rob@direwolf.welcomehome.org>
* lib/unix.exp: Preservce the value of LD_LIBRARY_PATH, rather than stomp on it. This is based on a patch from Brendan Conoboy <blc@redhat.com>. * Most files: Update copyright dates. 2003-03-13 Mike Stump <mrs@apple.com> * lib/dg.exp(dg-test): Add compiler flags to testcase name, to help ensure uniqueness. 2003-03-05 Alexandre Oliva <aoliva@redhat.com> * lib/remote.exp (standard_download, standard_upload): Support nfsdir and nfsroot_server. 2001-11-12 Andrew Cagney <ac131313@redhat.com> * lib/remote.exp (local_exec, standard_close): Use SHELL background instead of tcl background to background the kill processes. Work around problem found by Nick Duffek in older CYGWINs. (migrated from Redhat's sources kind late, sorry)
Diffstat (limited to 'lib/dg.exp')
-rw-r--r--lib/dg.exp10
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/dg.exp b/lib/dg.exp
index 4f6e300..3bcc514 100644
--- a/lib/dg.exp
+++ b/lib/dg.exp
@@ -1,5 +1,5 @@
# `dg' general purpose testcase driver.
-# Copyright (C) 1994 - 2002 Free Software Foundation, Inc.
+# Copyright (C) 1994 - 2002, 2003 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -653,8 +653,14 @@ proc dg-test { args } {
set name "[file tail [file dirname $prog]]/[file tail $prog]"
}
+ # We append the compilation flags, if any, to ensure that the test case
+ # names are unique.
+ if { "$tool_flags" != "" } {
+ set name "$name $tool_flags"
+ }
+
# Process any embedded dg options in the testcase.
-
+
# Use "" for the second element of dg-do-what so we can tell if it's been
# explicitly set to "S".
set dg-do-what [list ${dg-do-what-default} "" P]