re PR middle-end/41713 (-O -flto -g: ICE in lto_output_tree_ref, at lto-streamer-out.c:732)

2009-10-16  Richard Guenther  <rguenther@suse.de>

	PR lto/41713
	* lto-streamer-out.c (lto_output_tree_ref): Handle DEBUG_EXPR_DECL
	the same as VAR_DECL.

	* gfortran.dg/lto/20091016-1_0.f90: New testcase.

From-SVN: r152902
This commit is contained in:
Richard Guenther 2009-10-16 14:21:05 +00:00 committed by Richard Biener
parent ac2b9bbbd5
commit 775dc6700b
4 changed files with 24 additions and 0 deletions

View File

@ -1,3 +1,9 @@
2009-10-16 Richard Guenther <rguenther@suse.de>
PR lto/41713
* lto-streamer-out.c (lto_output_tree_ref): Handle DEBUG_EXPR_DECL
the same as VAR_DECL.
2009-10-16 Richard Guenther <rguenther@suse.de>
* gimple.c (iterative_hash_gimple_type): For integer types

View File

@ -690,6 +690,7 @@ lto_output_tree_ref (struct output_block *ob, tree expr)
break;
case VAR_DECL:
case DEBUG_EXPR_DECL:
gcc_assert (decl_function_context (expr) == NULL);
output_record_start (ob, LTO_global_decl_ref);
lto_output_var_decl_index (ob->decl_state, ob->main_stream, expr);

View File

@ -1,3 +1,8 @@
2009-10-16 Richard Guenther <rguenther@suse.de>
PR lto/41713
* gfortran.dg/lto/20091016-1_0.f90: New testcase.
2009-10-15 Jakub Jelinek <jakub@redhat.com>
PR debug/41717

View File

@ -0,0 +1,12 @@
! { dg-lto-do link }
! { dg-lto-options {{-flto -g -fPIC -shared} {-O -flto -g -fPIC -shared}} }
FUNCTION makenumberstring(x)
IMPLICIT NONE
REAL, INTENT(IN) :: x
CHARACTER(len=20) :: makenumberstring
INTEGER :: xx
xx = x**2 ! << ICE
makenumberstring = ''
END FUNCTION