From f888a3fbbbd3a36235de36669410e6ea2d485e13 Mon Sep 17 00:00:00 2001
From: tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
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