OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans-decl.c: Fix comment typos.

Browse Source 
2013-07-21   Ondřej Bílka  <neleai@seznam.cz>

        * trans-decl.c: Fix comment typos.
        * trans-expr.c: Ditto.

2013-07-21   Ondřej Bílka  <neleai@seznam.cz>

        * io/transfer.c: Fix comment typos.

From-SVN: r201107
This commit is contained in:
Ondřej Bílka 2013-07-21 19:57:23 +02:00 committed by Tobias Burnus
parent c65cb8d1f0
commit 9b110be230
5 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2013-07-21 Ondřej Bílka <neleai@seznam.cz>
* trans-decl.c: Fix comment typos.
* trans-expr.c: Ditto.
2013-07-21 Thomas Koenig <tkoenig@gcc.gnu.org> 2013-07-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/56937 PR fortran/56937

2
gcc/fortran/trans-decl.c
View File

@ -2157,7 +2157,7 @@ create_function_arglist (gfc_symbol * sym)
} }
} }
/* For noncharacter scalar intrinsic types, VALUE passes the value, /* For noncharacter scalar intrinsic types, VALUE passes the value,
hence, the optional status cannot be transfered via a NULL pointer. hence, the optional status cannot be transferred via a NULL pointer.
Thus, we will use a hidden argument in that case. */ Thus, we will use a hidden argument in that case. */
else if (f->sym->attr.optional && f->sym->attr.value else if (f->sym->attr.optional && f->sym->attr.value
&& !f->sym->attr.dimension && f->sym->ts.type != BT_CLASS && !f->sym->attr.dimension && f->sym->ts.type != BT_CLASS

4
gcc/fortran/trans-expr.c
View File

@ -1235,7 +1235,7 @@ gfc_conv_expr_present (gfc_symbol * sym)
as actual argument to denote absent dummies. For array descriptors, as actual argument to denote absent dummies. For array descriptors,
we thus also need to check the array descriptor. For BT_CLASS, it we thus also need to check the array descriptor. For BT_CLASS, it
can also occur for scalars and F2003 due to type->class wrapping and can also occur for scalars and F2003 due to type->class wrapping and
class->class wrapping. Note futher that BT_CLASS always uses an class->class wrapping. Note further that BT_CLASS always uses an
array descriptor for arrays, also for explicit-shape/assumed-size. */ array descriptor for arrays, also for explicit-shape/assumed-size. */
if (!sym->attr.allocatable if (!sym->attr.allocatable
@ -2829,7 +2829,7 @@ gfc_build_compare_string (tree len1, tree str1, tree len2, tree str2, int kind,
/* We can compare via memcpy if the strings are known to be equal /* We can compare via memcpy if the strings are known to be equal
in length and they are in length and they are
- kind=1 - kind=1
- kind=4 and the comparision is for (in)equality. */ - kind=4 and the comparison is for (in)equality. */
if (INTEGER_CST_P (len1) && INTEGER_CST_P (len2) if (INTEGER_CST_P (len1) && INTEGER_CST_P (len2)
&& tree_int_cst_equal (len1, len2) && tree_int_cst_equal (len1, len2)

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
2013-07-21 Ondřej Bílka <neleai@seznam.cz>
* io/transfer.c: Fix comment typos.
2013-07-21 Tobias Burnus <burnus@net-b.de> 2013-07-21 Tobias Burnus <burnus@net-b.de>
PR fortran/35862 PR fortran/35862

6
libgfortran/io/transfer.c
View File

@ -233,7 +233,7 @@ read_sf_internal (st_parameter_dt *dtp, int * length)
{ {
*length = 0; *length = 0;
/* Just return something that isn't a NULL pointer, otherwise the /* Just return something that isn't a NULL pointer, otherwise the
caller thinks an error occured. */ caller thinks an error occurred. */
return (char*) empty_string; return (char*) empty_string;
} }
@ -292,7 +292,7 @@ read_sf (st_parameter_dt *dtp, int * length)
{ {
*length = 0; *length = 0;
/* Just return something that isn't a NULL pointer, otherwise the /* Just return something that isn't a NULL pointer, otherwise the
caller thinks an error occured. */ caller thinks an error occurred. */
return (char*) empty_string; return (char*) empty_string;
} }
@ -512,7 +512,7 @@ read_block_form4 (st_parameter_dt *dtp, int * nbytes)
{ {
*nbytes = 0; *nbytes = 0;
/* Just return something that isn't a NULL pointer, otherwise the /* Just return something that isn't a NULL pointer, otherwise the
caller thinks an error occured. */ caller thinks an error occurred. */
return empty_string; return empty_string;
} }