diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-09-24 18:51:25 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-09-24 18:51:25 +0200 |
| commit | 2124d608c637046fa39d48cef129c6bd45f68812 (patch) | |
| tree | 818b590776dd3a2ca045d976acec868f5d4bfd09 | |
| parent | c03c696f6b37560041de8cc6a2b5c3310be4c7ef (diff) | |
| download | gcc-2124d608c637046fa39d48cef129c6bd45f68812.zip gcc-2124d608c637046fa39d48cef129c6bd45f68812.tar.gz gcc-2124d608c637046fa39d48cef129c6bd45f68812.tar.bz2 | |
intrinsic.h (gfc_resolve_getcwd): Update prototype.
* intrinsic.h (gfc_resolve_getcwd): Update prototype.
* iresolve.c (gfc_resolve_getcwd): Add second argument to function.
From-SVN: r88055
| -rw-r--r-- | gcc/fortran/intrinsic.h | 2 | ||||
| -rw-r--r-- | gcc/fortran/iresolve.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index f1b11b0..839f750 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -257,7 +257,7 @@ void gfc_resolve_exponent (gfc_expr *, gfc_expr *); void gfc_resolve_floor (gfc_expr *, gfc_expr *, gfc_expr *); void gfc_resolve_fraction (gfc_expr *, gfc_expr *); void gfc_resolve_g77_math1 (gfc_expr *, gfc_expr *); -void gfc_resolve_getcwd (gfc_expr *); +void gfc_resolve_getcwd (gfc_expr *, gfc_expr *); void gfc_resolve_getgid (gfc_expr *); void gfc_resolve_getpid (gfc_expr *); void gfc_resolve_getuid (gfc_expr *); diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index ed8bc56..201b3f9 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -572,7 +572,7 @@ gfc_resolve_g77_math1 (gfc_expr * f, gfc_expr * x) void -gfc_resolve_getcwd (gfc_expr * f) +gfc_resolve_getcwd (gfc_expr * f, gfc_expr * n ATTRIBUTE_UNUSED) { f->ts.type = BT_INTEGER; f->ts.kind = 4; |