diff options
Diffstat (limited to 'libstdc++-v3/testsuite/lib/libstdc++.exp')
-rw-r--r-- | libstdc++-v3/testsuite/lib/libstdc++.exp | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/libstdc++-v3/testsuite/lib/libstdc++.exp b/libstdc++-v3/testsuite/lib/libstdc++.exp index 2e8db1f4f5a..29ae62ed00c 100644 --- a/libstdc++-v3/testsuite/lib/libstdc++.exp +++ b/libstdc++-v3/testsuite/lib/libstdc++.exp @@ -29,7 +29,6 @@ # libstdc++_* callbacks we don't define, but could: # ..._option_help prints additional --help output # ..._option_proc (--foo) process our own options -# ..._exit cleanup routines (do we need any?) # ..._init (normal.exp) called once per test file # ..._finish bracketing function for libstdc++_init # ...-dg-prune removing output text, see top of system dg.exp @@ -212,6 +211,16 @@ proc libstdc++_init { testfile } { libstdc++_maybe_build_wrapper "${objdir}/testglue.o" } +# Callback for cleanup routines. +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. |