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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88710 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 9 insertions, 0 deletions

diff --git a/libstdc++-v3/testsuite/lib/libstdc++.exp b/libstdc++-v3/testsuite/lib/libstdc++.exp
index 2e8db1f4f5a..6394307f6b2 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.