From: Tobias Schlüter <tobi@gcc.gnu.org>
Date: Fri, 24 Sep 2004 16:51:25 +0000 (+0200)
Subject: intrinsic.h (gfc_resolve_getcwd): Update prototype.
X-Git-Tag: releases/gcc-4.0.0~4624
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=2124d608c637046fa39d48cef129c6bd45f68812;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h
index f1b11b042641..839f750791b4 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 ed8bc569bcfa..201b3f962e27 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;