* trans-common.c (build_field): Fix comment typo.

	(create_common): Set backend_decl of COMMON or EQUIVALENCEd
	variables to a VAR_DECL with the COMPONENT_REF in
	DECL_HAS_VALUE_EXPR rather than COMPONENT_REF directly.
	* f95-lang.c (gfc_expand_function): Emit debug info for
	EQUIVALENCEd variables if the equiv union is going to be output.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@105288 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 85b6ce8..74e74af 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,7 +1,16 @@
-2005-10-11  Steven G. Kargl <kargls@comcast.net>
+2005-10-12  Jakub Jelinek  <jakub@redhat.com>
+
+       * trans-common.c (build_field): Fix comment typo.
+       (create_common): Set backend_decl of COMMON or EQUIVALENCEd
+       variables to a VAR_DECL with the COMPONENT_REF in
+       DECL_HAS_VALUE_EXPR rather than COMPONENT_REF directly.
+       * f95-lang.c (gfc_expand_function): Emit debug info for
+       EQUIVALENCEd variables if the equiv union is going to be output.
+
+2005-10-11  Steven G. Kargl  <kargls@comcast.net>
 
        PR fortran/20786
-       *iresolve.c (gfc_resolve_aint, gfc_resolve_anint ): Type conversion 
+       * iresolve.c (gfc_resolve_aint, gfc_resolve_anint): Type conversion
        of the argument.
 
 2005-10-11  Jakub Jelinek  <jakub@redhat.com>
@@ -707,7 +716,7 @@
        * scanner.c (preprocessor_line): Don't write beyond the end of flag
        buffer.
 
-2005-08-07   Janne Blomqvist <jblomqvi@cc.hut.fi>
+2005-08-07   Janne Blomqvist  <jblomqvi@cc.hut.fi>
 
        PR fortran/22390 
        * dump-parse-tree.c (gfc_show_code_node): Add case for FLUSH.
@@ -998,7 +1007,7 @@
 
        * all files: Update FSF address in copyright headers.
 
-2005-06-24  Jerry DeLisle <jvdelisle@verizon.net>
+2005-06-24  Jerry DeLisle  <jvdelisle@verizon.net>
 
        PR fortran/21915
        * gfortran.h: Add symbols for new intrinsic functions.
@@ -1055,7 +1064,7 @@
        in a warning message.
 
 2005-06-18  Erik Edelman  <eedelman@acclab.helsinki.fi>
-           Steven G. Kargl <kargls@comast.net>
+           Steven G. Kargl  <kargls@comast.net>
 
        PR fortran/19926
        * primary.c (gfc_match_rvalue):  expr_type can be EXPR_CONSTANT
@@ -1127,7 +1136,7 @@
        * trans-decl.c (gfc_build_builtin_function_decls): update declaration
        * trans-stmt.c (gfc_trans_deallocate): Implement STAT= feature.
 
-2005-06-07  Jerry DeLisle <jvdelisle@verizon.net>
+2005-06-07  Jerry DeLisle  <jvdelisle@verizon.net>
 
        * intrinsic.texi: Add documentation for dcmplx, digits,
        dim, idim, ddim, dot_product, dprod, dreal, and dtime.
@@ -1160,7 +1169,7 @@
        * array.c (gfc_match_array_constructor): Disallow empty array
        constructor.
 
-2005-06-03  Jerry DeLisle <jvdelisle@verizon.net>
+2005-06-03  Jerry DeLisle  <jvdelisle@verizon.net>
 
        * fortran/intrinsic.texi: Add documentation for
        command_argument_count, conjg, dconjg, count,
@@ -1312,7 +1321,7 @@
        gfc_type_letter (BT_COMPLEX) for complex to
        to resolved function name.
 
-2005-05-18 Erik Edelmann <erik.edelmann@iki.fi>
+2005-05-18  Erik Edelmann  <erik.edelmann@iki.fi>
 
        * array.c (gfc_match_array_constructor): Support [ ... ]
        style array constructors.
@@ -1367,8 +1376,8 @@
        (gfc_trans_where_2): Initialize mask indexes before calling
        gfc_trans_nested_forall_loop.
 
-2005-05-15  Feng Wang <fengwang@nudt.edu.cn>
-       Jerry DeLisle <jvdelisle@verizon.net>
+2005-05-15  Feng Wang  <fengwang@nudt.edu.cn>
+       Jerry DeLisle  <jvdelisle@verizon.net>
 
        PR fortran/17432
        * trans-stmt.c (gfc_trans_label_assign): fix pointer type, to 
@@ -1563,7 +1572,7 @@
        * resolve.c (resolve_variable): If e->symtree is not set, this
        ought to be a FAILURE, and not a segfault.
 
-2005-04-17  Paul Thomas <pault@gcc.gnu.org>
+2005-04-17  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/17472
        PR fortran/18209
@@ -2986,7 +2995,7 @@
 
        * gfortran.texi: Fix a typo.
 
-2004-09-15  Aaron W. LaFramboise <aaronavay62@aaronwl.com>
+2004-09-15  Aaron W. LaFramboise  <aaronavay62@aaronwl.com>
 
        * parse.c (eof_buf): Rename eof to eof_buf.
        (unexpected_eof): Same.
@@ -4379,7 +4388,7 @@
        unused variables if they're use associated.
 
 2004-06-14  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
-       Andrew Vaught <andyv@firstinter.net>
+       Andrew Vaught  <andyv@firstinter.net>
 
        PR fortran/14928
        * gfortran.h (gfc_check_f): Add new field f3ml.
@@ -4746,7 +4755,7 @@
 
        * arith.c: Fix comment typos.
 
-2004-05-15  Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+2004-05-15  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
        PR fortran/13742
        * decl.c (add_init_expr_to_sym): Verify that COMMON variable is
@@ -4849,7 +4858,7 @@
 
        * decl.c (variable_decl): Always apply default initializer.
 
-2004-05-08  Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
+2004-05-08  Tobias Schlüter  <tobias.schlueter@physik.uni-muenchen.de>
 
        PR fortran/15206
        * trans-intrinsic.c (gfc_conv_intrinsic_rrspacing): Fixed to
@@ -4933,20 +4942,20 @@
        * primary.c (match_digits, match_integer_constant): Add comment
        explaining signflag.
 
-2004-05-01  Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
+2004-05-01  Tobias Schlüter  <tobias.schlueter@physik.uni-muenchen.de>
 
        PR fortran/13940
        * primary.c: Include system.h and flags.h, needed for pedantic.
        (match_boz_constant): Allow "x" for hexadecimal constants, warn if
        pedantic is set.
 
-2004-05-01  Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
+2004-05-01  Tobias Schlüter  <tobias.schlueter@physik.uni-muenchen.de>
 
        PR fortran/13940
        * match.c (match_data_constant): Handle case where
        gfc_find_symbol sets sym to NULL
 
-2004-04-28  Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
+2004-04-28  Tobias Schlüter  <tobias.schlueter@physik.uni-muenchen.de>
 
        * Make-lang.in (f95-lang.o, trans-intrinsic.o): Add missing
        dependency on mathbuiltins.def
@@ -5257,7 +5266,7 @@
 
        * resolve.c (resolve_branch): Get error message right way round.
 
-2004-01-10  Canqun Yang <canqun@nudt.edu.cn>
+2004-01-10  Canqun Yang  <canqun@nudt.edu.cn>
 
        * trans-array (gfc_conv_loop_setup): Adjust comment to track
        reality.
@@ -5346,7 +5355,7 @@
        (GFC_DECL_ASSIGN_ADDR(node)): New macro to access this.
        (GFC_DECL_ASSIGN(node)): New macro to access flag.
 
-2003-12-31  Huang Chun <chunhuang73@hotmail.com>
+2003-12-31  Huang Chun  <chunhuang73@hotmail.com>
 
        PR fortran/13434
        * trans-intrinsic.c (gfc_conv_intrinsic_minmaxval): Fixed bug in
@@ -5363,7 +5372,7 @@
        * trans-expr.c (gfc_conv_expr_op): Fold the result expression.
        * trans.c (gfc_add_modify_expr, gfc_add_expr_to_block): Likewise.
 
-2003-12-12  Huang Chun <chunhuang73@hotmail.com>
+2003-12-12  Huang Chun  <chunhuang73@hotmail.com>
 
        * primary.c (match_substring): Fix substring bug for start point
        or end point is NULL.
@@ -5408,7 +5417,7 @@
 
        * io.c (gfc_match_format): Check for missing format label.
 
-2003-11-30 Huang Chun <chunhuang73@hotmail.com>
+2003-11-30 Huang Chun  <chunhuang73@hotmail.com>
 
        PR fortran/13155
        * trans-decl.c (gfc_sym_mangled_function_id): Don't mangle symbols
@@ -5444,7 +5453,7 @@
 
        * trans.c (gfc_create_var_np): Use create_tmp_var_raw.
 
-2003-11-28 Huang Chun <chunhuang73@hotmail.com>
+2003-11-28 Huang Chun  <chunhuang73@hotmail.com>
 
        * trans.h (has_alternate_specifier): New global variable.
        * match.c (gfc_match_call): Handle actual arguments associated with
@@ -7865,7 +7874,7 @@
        NON_LVALUE_EXPR.
        * trans-stmt.c (g95_trans_arithmetic_if): Implement this.
 
-2002-09-18  Steven Bosscher <s.bosscher@student.tudelft.nl>
+2002-09-18  Steven Bosscher  <s.bosscher@student.tudelft.nl>
 
        * Make-lang.in (F95_ADDITIONAL_OBJS): Add tree-ssa-dce.o
 
@@ -7943,7 +7952,7 @@
        * trans-intrinsic.c: Implement PRODUCT, COUNT. MINLOC and MAXLOC
        intrinsics.
 
-2002-09-02  Steven Bosscher <s.bosscher@student.tudelft.nl>
+2002-09-02  Steven Bosscher  <s.bosscher@student.tudelft.nl>
 
        * trans-array.c, trans-types.c: Add rank information to descriptor.
 
@@ -7960,7 +7969,7 @@
        * trans-types.c (g95_init_types): Always name integer and char types.
        (g95_get_array_type_bounds): TYPE_NAME may be a TYPE_DECL.
 
-2002-09-02  Steven Bosscher <s.bosscher@student.tudelft.nl>
+2002-09-02  Steven Bosscher  <s.bosscher@student.tudelft.nl>
 
        * Make-lang.in: Add options.c to F95_PARSER_OBJS
 

diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index 9056cd2..d7bc19b 100644 (file)
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -187,6 +187,36 @@ tree *ridpointers = NULL;
 static void
 gfc_expand_function (tree fndecl)
 {
+  tree t;
+
+  if (DECL_INITIAL (fndecl)
+      && BLOCK_SUBBLOCKS (DECL_INITIAL (fndecl)))
+    {
+      /* Local static equivalenced variables are never seen by
+        check_global_declarations, so we need to output debug
+        info by hand.  */
+
+      t = BLOCK_SUBBLOCKS (DECL_INITIAL (fndecl));
+      for (t = BLOCK_VARS (t); t; t = TREE_CHAIN (t))
+       if (TREE_CODE (t) == VAR_DECL && DECL_HAS_VALUE_EXPR_P (t)
+           && TREE_STATIC (t))
+         {
+           tree expr = DECL_VALUE_EXPR (t);
+
+           if (TREE_CODE (expr) == COMPONENT_REF
+               && TREE_CODE (TREE_OPERAND (expr, 0)) == VAR_DECL
+               && TREE_CODE (TREE_TYPE (TREE_OPERAND (expr, 0)))
+                  == UNION_TYPE
+               && cgraph_varpool_node (TREE_OPERAND (expr, 0))->needed
+               && errorcount == 0 && sorrycount == 0)
+             {
+               timevar_push (TV_SYMOUT);
+               (*debug_hooks->global_decl) (t);
+               timevar_pop (TV_SYMOUT);
+             }
+         }
+    }
+
   tree_rest_of_compilation (fndecl);
 }
 \f

diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c
index de47f90..ebd7f52 100644 (file)
--- a/gcc/fortran/trans-common.c
+++ b/gcc/fortran/trans-common.c
@@ -241,7 +241,7 @@ build_field (segment_info *h, tree union_type, record_layout_info rli)
                                         DECL_FIELD_OFFSET (field),
                                         DECL_SIZE_UNIT (field)));
   /* If this field is assigned to a label, we create another two variables.
-     One will hold the address of taget label or format label. The other will
+     One will hold the address of target label or format label. The other will
      hold the length of format label string.  */
   if (h->sym->attr.assign)
     {
@@ -471,8 +471,38 @@ create_common (gfc_common_head *com, segment_info * head, bool saw_equiv)
   /* Build component reference for each variable.  */
   for (s = head; s; s = next_s)
     {
-      s->sym->backend_decl = build3 (COMPONENT_REF, TREE_TYPE (s->field),
-                               decl, s->field, NULL_TREE);
+      tree var_decl;
+
+      var_decl = build_decl (VAR_DECL, DECL_NAME (s->field),
+                            TREE_TYPE (s->field));
+      gfc_set_decl_location (var_decl, &s->sym->declared_at);
+      TREE_PUBLIC (var_decl) = TREE_PUBLIC (decl);
+      TREE_STATIC (var_decl) = TREE_STATIC (decl);
+      TREE_USED (var_decl) = TREE_USED (decl);
+      if (s->sym->attr.target)
+       TREE_ADDRESSABLE (var_decl) = 1;
+      /* This is a fake variable just for debugging purposes.  */
+      TREE_ASM_WRITTEN (var_decl) = 1;
+
+      if (com)
+       var_decl = pushdecl_top_level (var_decl);
+      else
+       gfc_add_decl_to_function (var_decl);
+
+      SET_DECL_VALUE_EXPR (var_decl,
+                          build3 (COMPONENT_REF, TREE_TYPE (s->field),
+                                  decl, s->field, NULL_TREE));
+      DECL_HAS_VALUE_EXPR_P (var_decl) = 1;
+
+      if (s->sym->attr.assign)
+       {
+         gfc_allocate_lang_decl (var_decl);
+         GFC_DECL_ASSIGN (var_decl) = 1;
+         GFC_DECL_STRING_LEN (var_decl) = GFC_DECL_STRING_LEN (s->field);
+         GFC_DECL_ASSIGN_ADDR (var_decl) = GFC_DECL_ASSIGN_ADDR (s->field);
+       }
+
+      s->sym->backend_decl = var_decl;
 
       next_s = s->next;
       gfc_free (s);