From: Tobias Schlüter Date: Sun, 22 Aug 2004 20:01:22 +0000 (+0200) Subject: * trans-const.c, trans-decl.c, trans-expr.c: Spelling fixes. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f8d0aee5c105df1c5d073a9a91fb467cd603f600;p=gcc.git * trans-const.c, trans-decl.c, trans-expr.c: Spelling fixes. From-SVN: r86385 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d9c4d5fb332..623a8d0916b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-08-22 Tobias Schlueter + + * trans-const.c, trans-decl.c, trans-expr.c: Spelling fixes. + 2004-08-22 Tobias Schlueter * check.c (gfc_check_reduction): Rename to ... diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c index 68b8d59ffd9..9f03f2ed2e3 100644 --- a/gcc/fortran/trans-const.c +++ b/gcc/fortran/trans-const.c @@ -46,6 +46,7 @@ tree gfc_strconst_current_filename; tree gfc_rank_cst[GFC_MAX_DIMENSIONS + 1]; /* Build a constant with given type from an int_cst. */ + tree gfc_build_const (tree type, tree intval) { @@ -175,7 +176,7 @@ gfc_conv_mpz_to_tree (mpz_t i, int kind) char *q; int n; - /* TODO: could be wrong if sizeof(HOST_WIDE_INT) |= SIZEOF (int). */ + /* TODO: could be wrong if sizeof(HOST_WIDE_INT) != SIZEOF (int). */ if (mpz_fits_slong_p (i)) { val = mpz_get_si (i); @@ -229,6 +230,7 @@ gfc_conv_mpz_to_tree (mpz_t i, int kind) /* Converts a real constant into backend form. Uses an intermediate string representation. */ + tree gfc_conv_mpfr_to_tree (mpfr_t f, int kind) { @@ -343,7 +345,7 @@ gfc_conv_constant_to_tree (gfc_expr * expr) } -/* Like gfc_conv_contrant_to_tree, but for a simplified expression. +/* Like gfc_conv_constant_to_tree, but for a simplified expression. We can handle character literal constants here as well. */ void @@ -366,7 +368,7 @@ gfc_conv_constant (gfc_se * se, gfc_expr * expr) /* Translate the constant and put it in the simplifier structure. */ se->expr = gfc_conv_constant_to_tree (expr); - /* If this is a CHARACTER string, set it's length in the simplifier + /* If this is a CHARACTER string, set its length in the simplifier structure, too. */ if (expr->ts.type == BT_CHARACTER) se->string_length = TYPE_MAX_VALUE (TYPE_DOMAIN (TREE_TYPE (se->expr))); diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 9dfcc186f0f..344966358fa 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -238,7 +238,7 @@ gfc_get_label_decl (gfc_st_label * lp) label_decl = gfc_build_label_decl (get_identifier (label_name)); /* Tell the debugger where the label came from. */ - if (lp->value <= MAX_LABEL_VALUE) /* An internal label */ + if (lp->value <= MAX_LABEL_VALUE) /* An internal label. */ { DECL_SOURCE_LINE (label_decl) = lp->where.lb->linenum; DECL_SOURCE_FILE (label_decl) = lp->where.lb->file->filename; @@ -258,6 +258,7 @@ gfc_get_label_decl (gfc_st_label * lp) static tree gfc_sym_identifier (gfc_symbol * sym) { + return (get_identifier (sym->name)); } @@ -375,7 +376,7 @@ gfc_finish_decl (tree decl, tree init) static void gfc_finish_var_decl (tree decl, gfc_symbol * sym) { - /* TREE_ADDRESSABLE means the address of this variable is acualy needed. + /* TREE_ADDRESSABLE means the address of this variable is actually needed. This is the equivalent of the TARGET variables. We also need to set this if the variable is passed by reference in a CALL statement. */ @@ -427,6 +428,7 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym) void gfc_allocate_lang_decl (tree decl) { + DECL_LANG_SPECIFIC (decl) = (struct lang_decl *) ggc_alloc_cleared (sizeof (struct lang_decl)); } @@ -555,7 +557,7 @@ gfc_build_dummy_array_decl (gfc_symbol * sym, tree dummy) assert (TREE_CODE (dummy) == PARM_DECL && POINTER_TYPE_P (type)); - /* Do we know the element size. */ + /* Do we know the element size? */ known_size = sym->ts.type != BT_CHARACTER || INTEGER_CST_P (sym->ts.cl->backend_decl); @@ -758,7 +760,7 @@ gfc_get_symbol_decl (gfc_symbol * sym) /* Create the decl for the variable. */ decl = build_decl (VAR_DECL, gfc_sym_identifier (sym), gfc_sym_type (sym)); - /* Symbols from modules have its assembler name should be mangled. + /* Symbols from modules should have their assembler names mangled. This is done here rather than in gfc_finish_var_decl because it is different for string length variables. */ if (sym->module[0]) @@ -931,13 +933,13 @@ gfc_get_extern_function_decl (gfc_symbol * sym) } else { - /* Global declaration, eg. intrinsic subroutine. */ + /* Global declaration, e.g. intrinsic subroutine. */ DECL_CONTEXT (fndecl) = NULL_TREE; } DECL_EXTERNAL (fndecl) = 1; - /* This specifies if a function is globaly addressable, ie. it is + /* This specifies if a function is globally addressable, i.e. it is the opposite of declaring static in C. */ TREE_PUBLIC (fndecl) = 1; @@ -991,7 +993,7 @@ build_function_decl (gfc_symbol * sym) SET_DECL_ASSEMBLER_NAME (fndecl, gfc_sym_mangled_function_id (sym)); /* Figure out the return type of the declared function, and build a - RESULT_DECL for it. If this is subroutine with alternate + RESULT_DECL for it. If this is a subroutine with alternate returns, build a RESULT_DECL for it. */ attr = sym->attr; @@ -1035,7 +1037,7 @@ build_function_decl (gfc_symbol * sym) DECL_RESULT (fndecl) = result_decl; /* Don't call layout_decl for a RESULT_DECL. - layout_decl (result_decl, 0); */ + layout_decl (result_decl, 0); */ /* If the return type is a pointer, avoid alias issues by setting DECL_IS_MALLOC to nonzero. This means that the function should be @@ -1048,7 +1050,7 @@ build_function_decl (gfc_symbol * sym) DECL_CONTEXT (fndecl) = current_function_decl; DECL_EXTERNAL (fndecl) = 0; - /* This specifies if a function is globaly visible, ie. it is + /* This specifies if a function is globaly visible, i.e. it is the opposite of declaring static in C. */ if (DECL_CONTEXT (fndecl) == NULL_TREE && !sym->attr.entry_master) @@ -1057,7 +1059,7 @@ build_function_decl (gfc_symbol * sym) /* TREE_STATIC means the function body is defined here. */ TREE_STATIC (fndecl) = 1; - /* Set attributes for PURE functions. A call to PURE function in the + /* Set attributes for PURE functions. A call to a PURE function in the Fortran 95 sense is both pure and without side effects in the C sense. */ if (attr.pure || attr.elemental) @@ -1153,7 +1155,7 @@ create_function_arglist (gfc_symbol * sym) for (f = sym->formal; f; f = f->next) { - if (f->sym != NULL) /* ignore alternate returns. */ + if (f->sym != NULL) /* ignore alternate returns. */ { length = NULL_TREE; @@ -1284,22 +1286,22 @@ trans_function_start (gfc_symbol * sym) fndecl = sym->backend_decl; - /* let GCC know the current scope is this function */ + /* Let GCC know the current scope is this function. */ current_function_decl = fndecl; - /* Let the world know what e're about to do. */ + /* Let the world know what we're about to do. */ announce_function (fndecl); if (DECL_CONTEXT (fndecl) == NULL_TREE) { - /* create RTL for function declaration */ + /* Create RTL for function declaration. */ rest_of_decl_compilation (fndecl, 1, 0); } - /* create RTL for function definition */ + /* Create RTL for function definition. */ make_decl_rtl (fndecl); - /* Set the line and filename. sym->decalred_at seems to point to the + /* Set the line and filename. sym->declared_at seems to point to the last statement for subroutines, but it'll do for now. */ gfc_set_backend_locus (&sym->declared_at); @@ -1311,7 +1313,7 @@ trans_function_start (gfc_symbol * sym) not safe to try to expand expressions involving them. */ cfun->x_dont_save_pending_sizes_p = 1; - /* function.c requires a push at the start of the function */ + /* function.c requires a push at the start of the function. */ pushlevel (0); } @@ -1333,7 +1335,7 @@ build_entry_thunks (gfc_namespace * ns) /* This should always be a toplevel function. */ assert (current_function_decl == NULL_TREE); - /* Remeber the master function argument decls. */ + /* Remember the master function argument decls. */ for (formal = ns->proc_name->formal; formal; formal = formal->next) { } @@ -1351,7 +1353,7 @@ build_entry_thunks (gfc_namespace * ns) gfc_start_block (&body); - /* Pass extra parater identifying this entry point. */ + /* Pass extra parameter identifying this entry point. */ tmp = build_int_cst (gfc_array_index_type, el->id, 0); args = tree_cons (NULL_TREE, tmp, NULL_TREE); string_args = NULL_TREE; @@ -1448,7 +1450,7 @@ gfc_create_function_decl (gfc_namespace * ns) /* Create a declaration for the master function. */ build_function_decl (ns->proc_name); - /* Compile teh entry thunks. */ + /* Compile the entry thunks. */ if (ns->entries) build_entry_thunks (ns); @@ -1873,7 +1875,7 @@ gfc_trans_auto_character_variable (gfc_symbol * sym, tree fnbody) /* Generate function entry and exit code, and add it to the function body. This includes: - Allocation and initialisation of array variables. + Allocation and initialization of array variables. Allocation of character string variables. Initialization and possibly repacking of dummy arrays. */ @@ -2088,7 +2090,7 @@ generate_local_decl (gfc_symbol * sym) if (warn_unused_parameter) warning ("unused parameter `%s'", sym->name); } - /* warn for unused variables, but not if they're inside a common + /* Warn for unused variables, but not if they're inside a common block or are use_associated. */ else if (warn_unused_variable && !(sym->attr.in_common || sym->attr.use_assoc)) @@ -2239,7 +2241,7 @@ gfc_generate_function_code (gfc_namespace * ns) warning ("Function return value not set"); else { - /* Set the return value to the the dummy result variable. */ + /* Set the return value to the dummy result variable. */ tmp = build (MODIFY_EXPR, TREE_TYPE (result), DECL_RESULT (fndecl), result); tmp = build_v (RETURN_EXPR, tmp); diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 554cf1daf3c..127a820754f 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -55,7 +55,7 @@ gfc_copy_se_loopvars (gfc_se * dest, gfc_se * src) } -/* Initialise a simple expression holder. +/* Initialize a simple expression holder. Care must be taken when multiple se are created with the same parent. The child se must be kept in sync. The easiest way is to delay creation @@ -76,7 +76,7 @@ gfc_init_se (gfc_se * se, gfc_se * parent) /* Advances to the next SS in the chain. Use this rather than setting - se->ss = se->ss->next because all the parent needs to be kept in sync. + se->ss = se->ss->next because all the parents needs to be kept in sync. See gfc_init_se. */ void @@ -90,7 +90,7 @@ gfc_advance_se_ss_chain (gfc_se * se) /* Walk down the parent chain. */ while (p != NULL) { - /* Simple consistancy check. */ + /* Simple consistency check. */ assert (p->parent == NULL || p->parent->ss == p->ss); p->ss = p->ss->next; @@ -111,7 +111,7 @@ gfc_make_safe_expr (gfc_se * se) if (TREE_CODE_CLASS (TREE_CODE (se->expr)) == 'c') return; - /* we need a temporary for this result */ + /* We need a temporary for this result. */ var = gfc_create_var (TREE_TYPE (se->expr), NULL); gfc_add_modify_expr (&se->pre, var, se->expr); se->expr = var; @@ -158,6 +158,7 @@ gfc_trans_init_string_length (gfc_charlen * cl, stmtblock_t * pblock) gfc_add_modify_expr (pblock, tmp, se.expr); } + static void gfc_conv_substring (gfc_se * se, gfc_ref * ref, int kind) { @@ -345,7 +346,7 @@ gfc_conv_variable (gfc_se * se, gfc_expr * expr) ref = ref->next; } /* Pointer assignment, allocation or pass by reference. Arrays are handled - seperately. */ + separately. */ if (se->want_pointer) { if (expr->ts.type == BT_CHARACTER) @@ -376,7 +377,7 @@ gfc_conv_unary_op (enum tree_code code, gfc_se * se, gfc_expr * expr) /* TRUTH_NOT_EXPR is not a "true" unary operator in GCC. We must convert it to a compare to 0 (e.g. EQ_EXPR (op1, 0)). - All other unary operators have an equivalent GIMPLE unary operator */ + All other unary operators have an equivalent GIMPLE unary operator. */ if (code == TRUTH_NOT_EXPR) se->expr = build (EQ_EXPR, type, operand.expr, convert (type, integer_zero_node)); @@ -386,7 +387,7 @@ gfc_conv_unary_op (enum tree_code code, gfc_se * se, gfc_expr * expr) } /* Expand power operator to optimal multiplications when a value is raised - to an constant integer n. See section 4.6.3, "Evaluation of Powers" of + to a constant integer n. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ @@ -397,7 +398,7 @@ gfc_conv_unary_op (enum tree_code code, gfc_se * se, gfc_expr * expr) with the first node being one. */ #define POWI_TABLE_SIZE 256 -/* The table is from Builtins.c. */ +/* The table is from builtins.c. */ static const unsigned char powi_table[POWI_TABLE_SIZE] = { 0, 1, 1, 2, 2, 3, 3, 4, /* 0 - 7 */ @@ -434,11 +435,12 @@ static const unsigned char powi_table[POWI_TABLE_SIZE] = 124, 166, 125, 214, 126, 138, 127, 153, /* 248 - 255 */ }; -/* If n is larger than lookup table's max index, we use "window method". */ +/* If n is larger than lookup table's max index, we use the "window + method". */ #define POWI_WINDOW_SIZE 3 -/* Recursive function to expand power operator. The temporary values are put - in tmpvar. The function return tmpvar[1] ** n. */ +/* Recursive function to expand the power operator. The temporary + values are put in tmpvar. The function returns tmpvar[1] ** n. */ static tree gfc_conv_powi (gfc_se * se, int n, tree * tmpvar) { @@ -476,8 +478,10 @@ gfc_conv_powi (gfc_se * se, int n, tree * tmpvar) return tmp; } -/* Expand lhs ** rhs. rhs is an constant integer. If expand successfully, - return 1. Else return 0 and will call runtime library functions. */ + +/* Expand lhs ** rhs. rhs is a constant integer. If it expands successfully, + return 1. Else return 0 and a call to runtime library functions + will have to be built. */ static int gfc_conv_cst_int_power (gfc_se * se, tree lhs, tree rhs) { @@ -509,7 +513,7 @@ gfc_conv_cst_int_power (gfc_se * se, tree lhs, tree rhs) cond = build (EQ_EXPR, boolean_type_node, lhs, convert (TREE_TYPE (lhs), integer_one_node)); - /* If rhs is an even, + /* If rhs is even, result = (lhs == 1 || lhs == -1) ? 1 : 0. */ if ((n & 1) == 0) { @@ -519,7 +523,7 @@ gfc_conv_cst_int_power (gfc_se * se, tree lhs, tree rhs) convert (type, integer_zero_node)); return 1; } - /* If rhs is an odd, + /* If rhs is odd, result = (lhs == 1) ? 1 : (lhs == -1) ? -1 : 0. */ tmp = build (COND_EXPR, type, tmp, convert (type, integer_minus_one_node), @@ -777,9 +781,9 @@ gfc_conv_concat_op (gfc_se * se, gfc_expr * expr) /* Translates an op expression. Common (binary) cases are handled by this function, others are passed on. Recursion is used in either case. We use the fact that (op1.ts == op2.ts) (except for the power - operand **). + operator **). Operators need no special handling for scalarized expressions as long as - they call gfc_conv_siple_val to get their operands. + they call gfc_conv_simple_val to get their operands. Character strings get special handling. */ static void @@ -900,7 +904,7 @@ gfc_conv_expr_op (gfc_se * se, gfc_expr * expr) return; } - /* The only exception to this is **, which is handled seperately anyway. */ + /* The only exception to this is **, which is handled separately anyway. */ assert (expr->op1->ts.type == expr->op2->ts.type); if (checkstring && expr->op1->ts.type != BT_CHARACTER) @@ -946,12 +950,12 @@ gfc_conv_expr_op (gfc_se * se, gfc_expr * expr) else se->expr = fold (build (code, type, lse.expr, rse.expr)); - /* Add the post blocks. */ gfc_add_block_to_block (&se->post, &rse.post); gfc_add_block_to_block (&se->post, &lse.post); } + static void gfc_conv_function_val (gfc_se * se, gfc_symbol * sym) { @@ -1125,11 +1129,13 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, } else { - /* If the procedure requires explicit interface, actual argument - is passed according to corresponing formal argument. We - do not use g77 method and the address of array descriptor - is passed if corresponing formal is pointer or - assumed-shape, Otherwise use g77 method. */ + /* If the procedure requires an explicit interface, the + actual argument is passed according to the + corresponding formal argument. If the corresponding + formal argument is a POINTER or assumed shape, we do + not use g77's calling aonvention, and pass the + address of the array descriptor instead. Otherwise we + use g77's calling convention. */ int f; f = (formal != NULL) && !formal->sym->attr.pointer @@ -1164,8 +1170,8 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, se->expr = build (CALL_EXPR, TREE_TYPE (fntype), se->expr, arglist, NULL_TREE); -/* A pure function may still have side-effects - it may modify its - parameters. */ + /* A pure function may still have side-effects - it may modify its + parameters. */ TREE_SIDE_EFFECTS (se->expr) = 1; #if 0 if (!sym->attr.pure) @@ -1324,7 +1330,7 @@ gfc_conv_statement_function (gfc_se * se, gfc_expr * expr) se->string_length = sym->ts.cl->backend_decl; } - /* Resore the original variables. */ + /* Restore the original variables. */ for (fargs = sym->formal, n = 0; fargs; fargs = fargs->next, n++) gfc_restore_sym (fargs->sym, &saved_vars[n]); gfc_free (saved_vars); @@ -1344,7 +1350,7 @@ gfc_conv_function_expr (gfc_se * se, gfc_expr * expr) return; } - /* We distinguish the statement function from general function to improve + /* We distinguish statement functions from general functions to improve runtime performance. */ if (expr->symtree->n.sym->attr.proc == PROC_ST_FUNCTION) { @@ -1360,6 +1366,7 @@ gfc_conv_function_expr (gfc_se * se, gfc_expr * expr) gfc_conv_function_call (se, sym, expr->value.function.actual); } + static void gfc_conv_array_constructor_expr (gfc_se * se, gfc_expr * expr) { @@ -1372,8 +1379,8 @@ gfc_conv_array_constructor_expr (gfc_se * se, gfc_expr * expr) /* Build a static initializer. EXPR is the expression for the initial value. - The other parameters describe the variable of component being initialized. - EXPR may be null. */ + The other parameters describe the variable of the component being + initialized. EXPR may be null. */ tree gfc_conv_initializer (gfc_expr * expr, gfc_typespec * ts, tree type, @@ -1673,7 +1680,7 @@ gfc_conv_structure (gfc_se * se, gfc_expr * expr, int init) } -/*translate a substring expression */ +/* Translate a substring expression. */ static void gfc_conv_substring_expr (gfc_se * se, gfc_expr * expr) @@ -1780,7 +1787,7 @@ gfc_conv_expr_type (gfc_se * se, gfc_expr * expr, tree type) } -/* Converts an expression so that it can be passed by refernece. Scalar +/* Converts an expression so that it can be passed by reference. Scalar values only. */ void