Imported Upstream version 7.1.614
[packages/dc3dd.git] / m4 / getcwd-abort-bug.m4
1 #serial 1
2 # Determine whether getcwd aborts when the length of the working directory
3 # name is unusually large.  Any length between 4k and 16k trigger the bug
4 # when using glibc-2.4.90-9 or older.
5
6 # Copyright (C) 2006 Free Software Foundation, Inc.
7 # This file is free software; the Free Software Foundation
8 # gives unlimited permission to copy and/or distribute it,
9 # with or without modifications, as long as this notice is preserved.
10
11 # From Jim Meyering
12
13 # gl_FUNC_GETCWD_ABORT_BUG([ACTION-IF-FOUND[, ACTION-IF-NOT-FOUND]])
14 AC_DEFUN([gl_FUNC_GETCWD_ABORT_BUG],
15 [
16   AC_CHECK_DECLS_ONCE(getcwd)
17   AC_CHECK_FUNCS(getpagesize)
18   AC_CACHE_CHECK([whether getcwd aborts when 4k < cwd_length < 16k],
19     gl_cv_func_getcwd_abort_bug,
20     [# Remove any remnants of a previous test.
21      rm -rf confdir-14B---
22      # Arrange for deletion of the temporary directory this test creates.
23      ac_clean_files="$ac_clean_files confdir-14B---"
24      AC_RUN_IFELSE(
25        [AC_LANG_SOURCE(
26           [[
27 #include <stdlib.h>
28 #include <unistd.h>
29 #include <limits.h>
30 #include <string.h>
31 #include <sys/stat.h>
32
33 /* Don't get link errors because mkdir is redefined to rpl_mkdir.  */
34 #undef mkdir
35
36 #ifndef S_IRWXU
37 # define S_IRWXU 0700
38 #endif
39
40 /* FIXME: skip the run-test altogether on systems without getpagesize.  */
41 #if ! HAVE_GETPAGESIZE
42 # define getpagesize() 0
43 #endif
44
45 /* This size is chosen to be larger than PATH_MAX (4k), yet smaller than
46    the 16kB pagesize on ia64 linux.  Those conditions make the code below
47    trigger a bug in glibc's getcwd implementation before 2.4.90-10.  */
48 #define TARGET_LEN (5 * 1024)
49
50 int
51 main ()
52 {
53   char const *dir_name = "confdir-14B---";
54   char *cwd;
55   size_t initial_cwd_len;
56   int fail = 0;
57   size_t desired_depth;
58   size_t d;
59
60   /* The bug is triggered when PATH_MAX < getpagesize (), so skip
61      this relative expensive and invasive test if that's not true.  */
62   if (getpagesize () <= PATH_MAX)
63     return 0;
64
65   cwd = getcwd (NULL, 0);
66   if (cwd == NULL)
67     return 0;
68
69   initial_cwd_len = strlen (cwd);
70   free (cwd);
71   desired_depth = ((TARGET_LEN - 1 - initial_cwd_len)
72                    / (1 + strlen (dir_name)));
73   for (d = 0; d < desired_depth; d++)
74     {
75       if (mkdir (dir_name, S_IRWXU) < 0 || chdir (dir_name) < 0)
76         {
77           fail = 3; /* Unable to construct deep hierarchy.  */
78           break;
79         }
80     }
81
82   /* If libc has the bug in question, this invocation of getcwd
83      results in a failed assertion.  */
84   cwd = getcwd (NULL, 0);
85   if (cwd == NULL)
86     fail = 4; /* getcwd failed.  This is ok, and expected.  */
87   free (cwd);
88
89   /* Call rmdir first, in case the above chdir failed.  */
90   rmdir (dir_name);
91   while (0 < d--)
92     {
93       if (chdir ("..") < 0)
94         break;
95       rmdir (dir_name);
96     }
97
98   return 0;
99 }
100           ]])],
101     [gl_cv_func_getcwd_abort_bug=no],
102     [gl_cv_func_getcwd_abort_bug=yes],
103     [gl_cv_func_getcwd_abort_bug=yes])
104   ])
105   AS_IF([test $gl_cv_func_getcwd_abort_bug = yes], [$1], [$2])
106 ])