* testsuite/lib/libstdc++.exp (libstdc++_exit): New proc.

From-SVN: r88710

diff --git a/libstdc++-v3/ChangeLog b/libstdc++-v3/ChangeLog
index dd5eb2f..4ff8dcd 100644 (file)
--- a/libstdc++-v3/ChangeLog
+++ b/libstdc++-v3/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-07  Richard Earnshaw  <rearnsha@arm.com>
+
+       * testsuite/lib/libstdc++.exp (libstdc++_exit): New proc.
+
 2004-10-07  Roger Sayle  <roger@eyesopen.com>
 
        PR libstdc++/17850

diff --git a/libstdc++-v3/testsuite/lib/libstdc++.exp b/libstdc++-v3/testsuite/lib/libstdc++.exp
index 2e8db1f..6394307 100644 (file)
--- a/libstdc++-v3/testsuite/lib/libstdc++.exp
+++ b/libstdc++-v3/testsuite/lib/libstdc++.exp
@@ -212,6 +212,15 @@ proc libstdc++_init { testfile } {
     libstdc++_maybe_build_wrapper "${objdir}/testglue.o"
 }
 
+proc libstdc++_exit { } {
+    global gluefile;
+
+    if [info exists gluefile] {
+       file_on_build delete $gluefile;
+       unset gluefile;
+    }
+}
+
 # Callback from system dg-test.
 proc libstdc++-dg-test { prog do_what extra_tool_flags } {
     # Set up the compiler flags, based on what we're going to do.