diff options
| author | Volker Reichelt <reichelt@igpm.rwth-aachen.de> | 2005-02-24 21:59:24 +0000 |
|---|---|---|
| committer | Volker Reichelt <reichelt@gcc.gnu.org> | 2005-02-24 21:59:24 +0000 |
| commit | 2054fc29c2be48c512dbad766bca3dc8da790d09 (patch) | |
| tree | 08a4a82c4314b5e9909c84a8514a3fecae8c718e | |
| parent | 78dcd41a317d983e376790610471bdcb4967fc93 (diff) | |
| download | gcc-2054fc29c2be48c512dbad766bca3dc8da790d09.zip gcc-2054fc29c2be48c512dbad766bca3dc8da790d09.tar.gz gcc-2054fc29c2be48c512dbad766bca3dc8da790d09.tar.bz2 | |
* decl.c, resolve.c, trans-array.c, trans.h: Fix comment typo(s).
From-SVN: r95518
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 4 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 2 | ||||
| -rw-r--r-- | 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 <reichelt@igpm.rwth-aachen.de> + + * decl.c, resolve.c, trans-array.c, trans.h: Fix comment typo(s). + 2005-02-24 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> 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, |