diff options
author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-06 20:28:19 +0000 |
---|---|---|
committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-06 20:28:19 +0000 |
commit | 1b38192d61001d9cd1b15baf233a9e8847d06889 (patch) | |
tree | b1524410fd6446ec23279297dd12e314c683846c | |
parent | 37a2dc427065f2947e60b941300c042b4c36b388 (diff) | |
download | gcc-1b38192d61001d9cd1b15baf233a9e8847d06889.zip gcc-1b38192d61001d9cd1b15baf233a9e8847d06889.tar.gz gcc-1b38192d61001d9cd1b15baf233a9e8847d06889.tar.bz2 |
simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1, [...]): Mark arguments with ATTRIBUTE_UNUSED.
* simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1,
gfc_simplify_bessel_jn,gfc_simplify_bessel_y0,
gfc_simplify_bessel_y1,gfc_simplify_bessel_yn): Mark arguments
with ATTRIBUTE_UNUSED.
From-SVN: r134998
-rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
-rw-r--r-- | gcc/fortran/simplify.c | 14 |
2 files changed, 15 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b67a5b8..083a1de 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,12 @@ 2008-05-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + * simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1, + gfc_simplify_bessel_jn,gfc_simplify_bessel_y0, + gfc_simplify_bessel_y1,gfc_simplify_bessel_yn): Mark arguments + with ATTRIBUTE_UNUSED. + +2008-05-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + * check.c (gfc_check_sizeof): Switch to ATTRIBUTE_UNUSED. * simplify.c (gfc_simplify_lgamma): Likewise. diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index d7fafec..5de686f 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -637,7 +637,7 @@ gfc_simplify_atan2 (gfc_expr *y, gfc_expr *x) gfc_expr * -gfc_simplify_bessel_j0 (gfc_expr *x) +gfc_simplify_bessel_j0 (gfc_expr *x ATTRIBUTE_UNUSED) { #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0) gfc_expr *result; @@ -657,7 +657,7 @@ gfc_simplify_bessel_j0 (gfc_expr *x) gfc_expr * -gfc_simplify_bessel_j1 (gfc_expr *x) +gfc_simplify_bessel_j1 (gfc_expr *x ATTRIBUTE_UNUSED) { #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0) gfc_expr *result; @@ -677,7 +677,8 @@ gfc_simplify_bessel_j1 (gfc_expr *x) gfc_expr * -gfc_simplify_bessel_jn (gfc_expr *order, gfc_expr *x) +gfc_simplify_bessel_jn (gfc_expr *order ATTRIBUTE_UNUSED, + gfc_expr *x ATTRIBUTE_UNUSED) { #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0) gfc_expr *result; @@ -699,7 +700,7 @@ gfc_simplify_bessel_jn (gfc_expr *order, gfc_expr *x) gfc_expr * -gfc_simplify_bessel_y0 (gfc_expr *x) +gfc_simplify_bessel_y0 (gfc_expr *x ATTRIBUTE_UNUSED) { #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0) gfc_expr *result; @@ -719,7 +720,7 @@ gfc_simplify_bessel_y0 (gfc_expr *x) gfc_expr * -gfc_simplify_bessel_y1 (gfc_expr *x) +gfc_simplify_bessel_y1 (gfc_expr *x ATTRIBUTE_UNUSED) { #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0) gfc_expr *result; @@ -739,7 +740,8 @@ gfc_simplify_bessel_y1 (gfc_expr *x) gfc_expr * -gfc_simplify_bessel_yn (gfc_expr *order, gfc_expr *x) +gfc_simplify_bessel_yn (gfc_expr *order ATTRIBUTE_UNUSED, + gfc_expr *x ATTRIBUTE_UNUSED) { #if MPFR_VERSION >= MPFR_VERSION_NUM(2,3,0) gfc_expr *result; |