diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-22 20:01:22 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-22 20:01:22 +0000 |
| commit | f888a3fbbbd3a36235de36669410e6ea2d485e13 (patch) | |
| tree | d8756e9d59b2bfdd8c7bea29dc44580fc4330896 /gcc/fortran/trans-const.c | |
| parent | bdb308868d0122cbe761014c3f865c822b213d3a (diff) | |
| download | gcc-f888a3fbbbd3a36235de36669410e6ea2d485e13.tar.gz | |
* 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
Diffstat (limited to 'gcc/fortran/trans-const.c')
| -rw-r--r-- | gcc/fortran/trans-const.c | 8 |
1 files changed, 5 insertions, 3 deletions
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))); |