trans-expr.c (get_proc_ptr_comp): Restore initial expression type before calling...

2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>

	* trans-expr.c (get_proc_ptr_comp): Restore initial expression type
	before calling gfc_free_expr.

From-SVN: r165047

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4c8cec42321186380724fe7627e019483e7d6a23..dc0bfbb1e38a3aee73418a72f8f6e3436d5a2c81 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-expr.c (get_proc_ptr_comp): Restore initial expression type
+       before calling gfc_free_expr.
+
 2010-10-06  Mikael Morin  <mikael@gcc.gnu.org>
 
        * trans-array.c (gfc_conv_tmp_array_ref): Add factorized call to

diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index d662d20020840121f5e9c83ed96fdbf3f2caf7c9..c1588f8c74956072eff5dad6b7998309148c0a08 100644 (file)
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -1612,10 +1612,17 @@ get_proc_ptr_comp (gfc_expr *e)
 {
   gfc_se comp_se;
   gfc_expr *e2;
+  expr_t old_type;
+
   gfc_init_se (&comp_se, NULL);
   e2 = gfc_copy_expr (e);
+  /* We have to restore the expr type later so that gfc_free_expr frees
+     the exact same thing that was allocated.
+     TODO: This is ugly.  */
+  old_type = e2->expr_type;
   e2->expr_type = EXPR_VARIABLE;
   gfc_conv_expr (&comp_se, e2);
+  e2->expr_type = old_type;
   gfc_free_expr (e2);
   return build_fold_addr_expr_loc (input_location, comp_se.expr);
 }