From 9b110be230335f0b0bc3cf676b42f0280225a784 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ond=C5=99ej=20B=C3=ADlka?= Date: Sun, 21 Jul 2013 19:57:23 +0200 Subject: [PATCH] trans-decl.c: Fix comment typos. MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 2013-07-21 Ondřej Bílka * trans-decl.c: Fix comment typos. * trans-expr.c: Ditto. 2013-07-21 Ondřej Bílka * io/transfer.c: Fix comment typos. From-SVN: r201107 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-decl.c | 2 +- gcc/fortran/trans-expr.c | 4 ++-- libgfortran/ChangeLog | 4 ++++ libgfortran/io/transfer.c | 6 +++--- 5 files changed, 15 insertions(+), 6 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f1f2437c3e3d..85dc3c84e210 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2013-07-21 Ondřej Bílka + + * trans-decl.c: Fix comment typos. + * trans-expr.c: Ditto. + 2013-07-21 Thomas Koenig PR fortran/56937 diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 2224830a95a5..0d7d9c577c1e 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -2157,7 +2157,7 @@ create_function_arglist (gfc_symbol * sym) } } /* 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. */ else if (f->sym->attr.optional && f->sym->attr.value && !f->sym->attr.dimension && f->sym->ts.type != BT_CLASS diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index de1e51b2aa69..e0cdd49dfa24 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -1235,7 +1235,7 @@ gfc_conv_expr_present (gfc_symbol * sym) as actual argument to denote absent dummies. For array descriptors, 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 - 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. */ 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 in length and they are - 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) && tree_int_cst_equal (len1, len2) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e5f7eb7fdb22..0a035ebb2385 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2013-07-21 Ondřej Bílka + + * io/transfer.c: Fix comment typos. + 2013-07-21 Tobias Burnus PR fortran/35862 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 52b1da6330a5..0b1540ce2af6 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -233,7 +233,7 @@ read_sf_internal (st_parameter_dt *dtp, int * length) { *length = 0; /* 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; } @@ -292,7 +292,7 @@ read_sf (st_parameter_dt *dtp, int * length) { *length = 0; /* 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; } @@ -512,7 +512,7 @@ read_block_form4 (st_parameter_dt *dtp, int * nbytes) { *nbytes = 0; /* Just return something that isn't a NULL pointer, otherwise the - caller thinks an error occured. */ + caller thinks an error occurred. */ return empty_string; } -- 2.47.2