libstdc++-v3-dg.exp (libstdc++-v3-dg-test): Set output_file based on the name of...

2001-05-18  Angela Marie Thomas <angela@cygnus.com>

        * testsuite/lib/libstdc++-v3-dg.exp (libstdc++-v3-dg-test):  Set
        output_file based on the name of the testcase.

2001-05-18  Angela Marie Thomas <angela@cygnus.com>

        * testsuite/lib/libstdc++-v3-dg.exp (libstdc++-v3-init):  Build
        gluefile and use it if needs_status_wrapper is set.

From-SVN: r42240

diff --git a/libstdc++-v3/ChangeLog b/libstdc++-v3/ChangeLog
index a80bdc7821260711458be41c8feb09a6a85b9539..22e0793c23d1df31e4445d59f2f185a70b5980df 100644 (file)
--- a/libstdc++-v3/ChangeLog
+++ b/libstdc++-v3/ChangeLog
@@ -1,3 +1,13 @@
+2001-05-18  Angela Marie Thomas <angela@cygnus.com>
+
+        * testsuite/lib/libstdc++-v3-dg.exp (libstdc++-v3-dg-test):  Set
+        output_file based on the name of the testcase.
+
+2001-05-18  Angela Marie Thomas <angela@cygnus.com>
+
+        * testsuite/lib/libstdc++-v3-dg.exp (libstdc++-v3-init):  Build
+        gluefile and use it if needs_status_wrapper is set.
+
 2001-05-18  Alexandre Oliva  <aoliva@redhat.com>
 
        * configure.target (ATOMICITYH): Use cpu/generic code on earlier

diff --git a/libstdc++-v3/testsuite/lib/libstdc++-v3-dg.exp b/libstdc++-v3/testsuite/lib/libstdc++-v3-dg.exp
index 21729c90d8707270029784949e6919bce56e3c06..978ab0128852c5d6c8df3468427b257af3ad13ad 100644 (file)
--- a/libstdc++-v3/testsuite/lib/libstdc++-v3-dg.exp
+++ b/libstdc++-v3/testsuite/lib/libstdc++-v3-dg.exp
@@ -26,6 +26,8 @@ proc libstdc++-v3-init { args } {
     global cxx
     global includes
     global cxxflags
+    global objdir
+    global gluefile wrap_flags
 
     set blddir   [lookfor_file $outdir libstdc++-v3]
     set cxx     [exec sh ${blddir}/testsuite_flags --build-cxx]
@@ -43,6 +45,18 @@ proc libstdc++-v3-init { args } {
     foreach txt [glob -nocomplain "$srcdir/*/*.txt"] {
        file copy -force $txt $outdir
     }
+
+    if { [target_info needs_status_wrapper]!="" && ![info exists gluefile] } {
+      set gluefile ${objdir}/testglue.o;
+      set result [build_wrapper $gluefile];
+      if { $result != "" } {
+          set gluefile [lindex $result 0];
+          set wrap_flags [lindex $result 1];
+      } else {
+          unset gluefile
+      }
+    }
+
 }
 
 proc libstdc++-v3-dg-test { prog do_what extra_tool_flags } {
@@ -63,14 +77,14 @@ proc libstdc++-v3-dg-test { prog do_what extra_tool_flags } {
        }
        "link" {
            set compile_type "executable"
-           set output_file "a.out"
+           set output_file "./[file rootname [file tail $prog]]"
        }
        "run" {
            set compile_type "executable"
            # FIXME: "./" is to cope with "." not being in $PATH.
            # Should this be handled elsewhere?
            # YES.
-           set output_file "./a.out"
+           set output_file "./[file rootname [file tail $prog]]"
            # This is the only place where we care if an executable was
            # created or not.  If it was, dg.exp will try to run it.
            remote_file build delete $output_file;