(finish_decl_top_level): New function.

From-SVN: r9499

diff --git a/gcc/c-decl.c b/gcc/c-decl.c
index 06dff74c57cb416d64c9347e1580d39a58831361..91565a8f12bf7c831ff27aef0c8de9c20fd26113 100644 (file)
--- a/gcc/c-decl.c
+++ b/gcc/c-decl.c
@@ -2303,6 +2303,20 @@ pushdecl_top_level (x)
   current_binding_level = b;
   return t;
 }
+
+
+/* Invoke finish_decl at the global binding level.  */
+
+void
+finish_decl_top_level (d, i, a)
+     tree d, i, a;
+{
+  register struct binding_level *b = current_binding_level;
+
+  current_binding_level = global_binding_level;
+  finish_decl (d, i, a);
+  current_binding_level = b;
+}
 \f
 /* Generate an implicit declaration for identifier FUNCTIONID
    as a function of type int ().  Print a warning if appropriate.  */