diff options
Diffstat (limited to 'libf2c/libU77/getcwd_.c')
| -rw-r--r-- | libf2c/libU77/getcwd_.c | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/libf2c/libU77/getcwd_.c b/libf2c/libU77/getcwd_.c index e757803896a..4b1c8a98fbc 100644 --- a/libf2c/libU77/getcwd_.c +++ b/libf2c/libU77/getcwd_.c @@ -37,14 +37,8 @@ Boston, MA 02111-1307, USA. */ extern char *getcwd (); #endif -#ifdef KR_headers -extern void s_copy (); -integer G77_getcwd_0 (str, Lstr) - char *str; ftnlen Lstr; -#else extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); integer G77_getcwd_0 (char *str, const ftnlen Lstr) -#endif { int i; char *ret; @@ -62,14 +56,8 @@ integer G77_getcwd_0 (char *str, const ftnlen Lstr) # include <sys/param.h> extern char *getwd (); -#ifdef KR_headers -extern VOID s_copy (); -integer G77_getcwd_0 (str, Lstr) - char *str; ftnlen Lstr; -#else extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); integer G77_getcwd_0 (char *str, const ftnlen Lstr) -#endif { char pathname[MAXPATHLEN]; size_t l; @@ -84,14 +72,8 @@ integer G77_getcwd_0 (char *str, const ftnlen Lstr) #else /* !HAVE_GETWD && !HAVE_GETCWD */ -#ifdef KR_headers -extern VOID s_copy (); -integer G77_getcwd_0 (str, Lstr) - char *str; ftnlen Lstr; -#else extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); integer G77_getcwd_0 (char *str, const ftnlen Lstr) -#endif { return errno = ENOSYS; } |
