langhooks.c (lang_hook_default_clear_binding_stack): New.

[thirdparty/gcc.git] / gcc / toplev.c

diff --git a/gcc/toplev.c b/gcc/toplev.c
index 1320013cb476407a23207034bc0490b4c7757de6..818da6fc47ba896c48339971599abfd5953d1e19 100644 (file)
--- a/gcc/toplev.c
+++ b/gcc/toplev.c
@@ -2334,8 +2334,7 @@ compile_file (name)
 
   /* In case there were missing block closers,
      get us back to the global binding level.  */
-  while (! global_bindings_p ())
-    poplevel (0, 0, 0);
+  (*lang_hooks.clear_binding_stack) ();
 
   /* Compilation is now finished except for writing
      what's left of the symbol table output.  */