From: Richard Earnshaw <rearnsha@arm.com>
Date: Thu, 7 Oct 2004 22:00:29 +0000 (+0000)
Subject: * testsuite/lib/libstdc++.exp (libstdc++_exit): New proc.
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=446e8778259f7495567358b8d3d98ca7c910ab80;p=platform%2Fupstream%2Fgcc.git

* 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
--- 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
--- 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.