diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-15 14:52:46 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-15 14:52:46 +0000 |
| commit | e0582811ed1518fc811f46d85585cba6e29f7027 (patch) | |
| tree | 0048e16af72d2eef9bf9f9e8ac0d78574ea4bf40 /libgfortran/intrinsics | |
| parent | 4af80cde4854a2046aab66018a343345e3e19d7c (diff) | |
| download | gcc-e0582811ed1518fc811f46d85585cba6e29f7027.tar.gz | |
PR libfortran/21185
* runtime/compile_options.c (set_options): Fix typo.
* runtime/main.c (store_exe_path): If getcwd is not available,
don't use it.
* intrinsics/getcwd.c: Same thing here.
* io/unix.c (fallback_access): New fallback function for access.
(fix_fd): Don't use dup if it's not available.
* configure.ac: Check for dup and getcwd.
* configure: Regenerate.
* config.h.in: Regenerate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@128512 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/getcwd.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/getcwd.c b/libgfortran/intrinsics/getcwd.c index e0826808ec2..60ec6feb1fe 100644 --- a/libgfortran/intrinsics/getcwd.c +++ b/libgfortran/intrinsics/getcwd.c @@ -37,6 +37,8 @@ Boston, MA 02110-1301, USA. */ #include <unistd.h> #endif +#ifdef HAVE_GETCWD + extern void getcwd_i4_sub (char *, GFC_INTEGER_4 *, gfc_charlen_type); iexport_proto(getcwd_i4_sub); @@ -82,3 +84,5 @@ PREFIX(getcwd) (char *cwd, gfc_charlen_type cwd_len) getcwd_i4_sub (cwd, &status, cwd_len); return status; } + +#endif |