re PR fortran/60060 (lto1: internal compiler error: in add_AT_specification, at dwarf2out.c:4096)

2014-02-12  Richard Biener  <rguenther@suse.de>

	PR lto/60060
	* lto-lang.c (lto_write_globals): Do not call
	wrapup_global_declarations or emit_debug_global_declarations
	but emit debug info for non-function scope variables
	directly.

From-SVN: r207715

gcc/lto/ChangeLog

+2014-02-12  Richard Biener  <rguenther@suse.de>
+
+	PR lto/60060
+	* lto-lang.c (lto_write_globals): Do not call
+	wrapup_global_declarations or emit_debug_global_declarations
+	but emit debug info for non-function scope variables
+	directly.
+
 2014-02-06  Jan Hubicka  <hubicka@ucw.cz>
 
 	* lto.c (unify_scc): Free CONSTRUCTOR_ELTS.

gcc/lto/lto-lang.c

@@ -1082,17 +1082,11 @@ lto_write_globals (void)
   if (flag_wpa)
     return;
 
-  /* Record the global variables.  */
-  vec<tree> lto_global_var_decls = vNULL;
+  /* Output debug info for global variables.  */  
   varpool_node *vnode;
   FOR_EACH_DEFINED_VARIABLE (vnode)
-    lto_global_var_decls.safe_push (vnode->decl);
-
-  tree *vec = lto_global_var_decls.address ();
-  int len = lto_global_var_decls.length ();
-  wrapup_global_declarations (vec, len);
-  emit_debug_global_declarations (vec, len);
-  lto_global_var_decls.release ();
+    if (!decl_function_context (vnode->decl))
+      debug_hooks->global_decl (vnode->decl);
 }
 
 static tree