From f888a3fbbbd3a36235de36669410e6ea2d485e13 Mon Sep 17 00:00:00 2001 From: tobi Date: Sun, 22 Aug 2004 20:01:22 +0000 Subject: * trans-const.c, trans-decl.c, trans-expr.c: Spelling fixes. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86385 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/trans-const.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'gcc/fortran/trans-const.c') 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))); -- cgit v1.2.1