From ec09945c8ead3030ccf7739a685513e64e2e3539 Mon Sep 17 00:00:00 2001 From: Kazu Hirata Date: Mon, 30 May 2005 15:03:46 +0000 Subject: [PATCH] * trans-expr.c: Remove trailing ^M. From-SVN: r100359 --- gcc/fortran/ChangeLog | 4 ++ gcc/fortran/trans-expr.c | 102 +++++++++++++++++++-------------------- 2 files changed, 55 insertions(+), 51 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 449cf7b799c..74b3a437a5d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2005-05-30 Kazu Hirata + + * trans-expr.c: Remove trailing ^M. + 2005-05-29 Janne Blomqvist Steven G. Kargl diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index c04efd276e6..9d48ed4a648 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -354,43 +354,43 @@ gfc_conv_variable (gfc_se * se, gfc_expr * expr) se->expr = gfc_build_addr_expr (NULL, se->expr); } return; - } - - - /* Dereference the expression, where needed. Since characters - are entirely different from other types, they are treated - separately. */ - if (sym->ts.type == BT_CHARACTER) - { - /* Dereference character pointer dummy arguments + } + + + /* Dereference the expression, where needed. Since characters + are entirely different from other types, they are treated + separately. */ + if (sym->ts.type == BT_CHARACTER) + { + /* Dereference character pointer dummy arguments or results. */ - if ((sym->attr.pointer || sym->attr.allocatable) - && ((sym->attr.dummy) - || (sym->attr.function - || sym->attr.result))) - se->expr = gfc_build_indirect_ref (se->expr); - } - else - { + if ((sym->attr.pointer || sym->attr.allocatable) + && ((sym->attr.dummy) + || (sym->attr.function + || sym->attr.result))) + se->expr = gfc_build_indirect_ref (se->expr); + } + else + { /* Dereference non-charcter scalar dummy arguments. */ - if ((sym->attr.dummy) && (!sym->attr.dimension)) - se->expr = gfc_build_indirect_ref (se->expr); - + if ((sym->attr.dummy) && (!sym->attr.dimension)) + se->expr = gfc_build_indirect_ref (se->expr); + /* Dereference scalar hidden result. */ - if ((gfc_option.flag_f2c && sym->ts.type == BT_COMPLEX) - && (sym->attr.function || sym->attr.result) - && (!sym->attr.dimension)) - se->expr = gfc_build_indirect_ref (se->expr); - - /* Dereference non-character pointer variables. + if ((gfc_option.flag_f2c && sym->ts.type == BT_COMPLEX) + && (sym->attr.function || sym->attr.result) + && (!sym->attr.dimension)) + se->expr = gfc_build_indirect_ref (se->expr); + + /* Dereference non-character pointer variables. These must be dummys or results or scalars. */ - if ((sym->attr.pointer || sym->attr.allocatable) - && ((sym->attr.dummy) - || (sym->attr.function || sym->attr.result) - || (!sym->attr.dimension))) - se->expr = gfc_build_indirect_ref (se->expr); - } - + if ((sym->attr.pointer || sym->attr.allocatable) + && ((sym->attr.dummy) + || (sym->attr.function || sym->attr.result) + || (!sym->attr.dimension))) + se->expr = gfc_build_indirect_ref (se->expr); + } + ref = expr->ref; } @@ -1136,8 +1136,8 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, if (se->direct_byref) { arglist = gfc_chainon_list (arglist, se->expr); - - /* Add string length to argument list. */ + + /* Add string length to argument list. */ if (sym->ts.type == BT_CHARACTER) { sym->ts.cl->backend_decl = len; @@ -1147,11 +1147,11 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, } else if (sym->result->attr.dimension) { - gcc_assert (se->loop && se->ss); + gcc_assert (se->loop && se->ss); /* Set the type of the array. */ tmp = gfc_typenode_for_spec (&sym->ts); - info->dimen = se->loop->dimen; + info->dimen = se->loop->dimen; /* Allocate a temporary to store the result. */ gfc_trans_allocate_temp_array (se->loop, info, tmp); @@ -1161,7 +1161,7 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, gfc_conv_descriptor_stride (info->descriptor, gfc_rank_cst[0]); gfc_add_modify_expr (&se->pre, tmp, convert (TREE_TYPE (tmp), integer_zero_node)); - + /* Pass the temporary as the first argument. */ tmp = info->descriptor; tmp = gfc_build_addr_expr (NULL, tmp); @@ -1178,8 +1178,8 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, } else if (sym->ts.type == BT_CHARACTER) { - - /* Pass the string length. */ + + /* Pass the string length. */ sym->ts.cl->backend_decl = len; type = gfc_get_character_type (sym->ts.kind, sym->ts.cl); type = build_pointer_type (type); @@ -1188,18 +1188,18 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, if (sym->attr.pointer || sym->attr.allocatable) { /* Build char[4] * pstr. */ - tmp = fold_build2 (MINUS_EXPR, gfc_charlen_type_node, len, - convert (gfc_charlen_type_node, integer_one_node)); - tmp = build_range_type (gfc_array_index_type, gfc_index_zero_node, tmp); - tmp = build_array_type (gfc_character1_type_node, tmp); + tmp = fold_build2 (MINUS_EXPR, gfc_charlen_type_node, len, + convert (gfc_charlen_type_node, integer_one_node)); + tmp = build_range_type (gfc_array_index_type, gfc_index_zero_node, tmp); + tmp = build_array_type (gfc_character1_type_node, tmp); var = gfc_create_var (build_pointer_type (tmp), "pstr"); - /* Provide an address expression for the function arguments. */ - var = gfc_build_addr_expr (NULL, var); + /* Provide an address expression for the function arguments. */ + var = gfc_build_addr_expr (NULL, var); } else { - var = gfc_conv_string_tmp (se, type, len); + var = gfc_conv_string_tmp (se, type, len); } arglist = gfc_chainon_list (arglist, var); arglist = gfc_chainon_list (arglist, @@ -1364,11 +1364,11 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, se->string_length = len; } else if (sym->ts.type == BT_CHARACTER) - { + { /* Dereference for character pointer results. */ if (sym->attr.pointer || sym->attr.allocatable) - se->expr = gfc_build_indirect_ref (var); - else + se->expr = gfc_build_indirect_ref (var); + else se->expr = var; se->string_length = len; @@ -2297,7 +2297,7 @@ gfc_trans_assignment (gfc_expr * expr1, gfc_expr * expr2) } else gfc_conv_expr (&lse, expr1); - + tmp = gfc_trans_scalar_assign (&lse, &rse, expr1->ts.type); gfc_add_expr_to_block (&body, tmp); -- 2.30.2