diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 85b6ce8fafed..74e74afe32c8 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,7 +1,16 @@ -2005-10-11 Steven G. Kargl +2005-10-12 Jakub Jelinek + + * 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 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 @@ -707,7 +716,7 @@ * scanner.c (preprocessor_line): Don't write beyond the end of flag buffer. -2005-08-07 Janne Blomqvist +2005-08-07 Janne Blomqvist 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 +2005-06-24 Jerry DeLisle PR fortran/21915 * gfortran.h: Add symbols for new intrinsic functions. @@ -1055,7 +1064,7 @@ in a warning message. 2005-06-18 Erik Edelman - Steven G. Kargl + Steven G. Kargl 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 +2005-06-07 Jerry DeLisle * 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 +2005-06-03 Jerry DeLisle * 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 +2005-05-18 Erik Edelmann * 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 - Jerry DeLisle +2005-05-15 Feng Wang + Jerry DeLisle 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 +2005-04-17 Paul Thomas PR fortran/17472 PR fortran/18209 @@ -2986,7 +2995,7 @@ * gfortran.texi: Fix a typo. -2004-09-15 Aaron W. LaFramboise +2004-09-15 Aaron W. LaFramboise * 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 - Andrew Vaught + Andrew Vaught 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 +2004-05-15 Tobias Schlueter 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 +2004-05-08 Tobias Schlüter 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 +2004-05-01 Tobias Schlüter 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 +2004-05-01 Tobias Schlüter PR fortran/13940 * match.c (match_data_constant): Handle case where gfc_find_symbol sets sym to NULL -2004-04-28 Tobias Schlüter +2004-04-28 Tobias Schlüter * 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 +2004-01-10 Canqun Yang * 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 +2003-12-31 Huang Chun 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 +2003-12-12 Huang Chun * 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 +2003-11-30 Huang Chun 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 +2003-11-28 Huang Chun * 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 +2002-09-18 Steven Bosscher * 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 +2002-09-02 Steven Bosscher * 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 +2002-09-02 Steven Bosscher * 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 9056cd29ca49..d7bc19b0b4f2 100644 --- 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); } diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index de47f9063059..ebd7f52627ec 100644 --- 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);