From 2054fc29c2be48c512dbad766bca3dc8da790d09 Mon Sep 17 00:00:00 2001 From: Volker Reichelt Date: Thu, 24 Feb 2005 21:59:24 +0000 Subject: * decl.c, resolve.c, trans-array.c, trans.h: Fix comment typo(s). From-SVN: r95518 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/decl.c | 2 +- gcc/fortran/resolve.c | 4 ++-- gcc/fortran/trans-array.c | 2 +- gcc/fortran/trans.h | 2 +- 5 files changed, 9 insertions(+), 5 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 349a535..846186a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2005-02-24 Volker Reichelt + + * decl.c, resolve.c, trans-array.c, trans.h: Fix comment typo(s). + 2005-02-24 Tobias Schl"uter Revert yesterday's patch: diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 9ad5ef1..b3114ca 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -27,7 +27,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA #include "parse.h" -/* This flag is set if a an old-style length selector is matched +/* This flag is set if an old-style length selector is matched during a type-declaration statement. */ static int old_char_selector; diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index ecbd89d..4d98f46 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -884,8 +884,8 @@ set_type: } -/* Figure out if if a function reference is pure or not. Also sets the name - of the function for a potential error message. Returns nonzero if the +/* Figure out if a function reference is pure or not. Also set the name + of the function for a potential error message. Return nonzero if the function is PURE, zero if not. */ static int diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 2ed83e6..a97bcc5 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -1271,7 +1271,7 @@ gfc_conv_ss_descriptor (stmtblock_t * block, gfc_ss * ss, int base) /* Also the data pointer. */ tmp = gfc_conv_array_data (se.expr); /* If this is a variable or address of a variable we use it directly. - Otherwise we must evaluate it now to to avoid break dependency + Otherwise we must evaluate it now to avoid breaking dependency analysis by pulling the expressions for elemental array indices inside the loop. */ if (!(DECL_P (tmp) diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index b670f7a..f16e23c 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -118,7 +118,7 @@ typedef enum scalarization loop. */ GFC_SS_SCALAR, - /* Like GFC_SS_SCALAR except it evaluates a pointer the the expression. + /* Like GFC_SS_SCALAR except it evaluates a pointer to the expression. Used for elemental function parameters. */ GFC_SS_REFERENCE, -- cgit v1.1