file tst-aiod5.c was initially added on branch fedora-branch.
[glibc/history.git] / nptl / tst-mutex4.c
blob9699c2db4582b0d254c4e1352ed98ca5772fb583
1 /* Copyright (C) 2002, 2003, 2004, 2006 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@redhat.com>, 2002.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18 02111-1307 USA. */
20 #include <errno.h>
21 #include <pthread.h>
22 #include <stdint.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <unistd.h>
27 #include <sys/mman.h>
28 #include <sys/wait.h>
31 static int
32 do_test (void)
34 size_t ps = sysconf (_SC_PAGESIZE);
35 char tmpfname[] = "/tmp/tst-mutex4.XXXXXX";
36 char data[ps];
37 void *mem;
38 int fd;
39 pthread_mutex_t *m;
40 pthread_mutexattr_t a;
41 pid_t pid;
42 char *p;
43 int err;
44 int s;
45 pthread_barrier_t *b;
46 pthread_barrierattr_t ba;
48 fd = mkstemp (tmpfname);
49 if (fd == -1)
51 printf ("cannot open temporary file: %m\n");
52 return 1;
55 /* Make sure it is always removed. */
56 unlink (tmpfname);
58 /* Create one page of data. */
59 memset (data, '\0', ps);
61 /* Write the data to the file. */
62 if (write (fd, data, ps) != (ssize_t) ps)
64 puts ("short write");
65 return 1;
68 mem = mmap (NULL, ps, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
69 if (mem == MAP_FAILED)
71 printf ("mmap failed: %m\n");
72 return 1;
75 m = (pthread_mutex_t *) (((uintptr_t) mem + __alignof (pthread_mutex_t) - 1)
76 & ~(__alignof (pthread_mutex_t) - 1));
77 b = (pthread_barrier_t *) (((uintptr_t) (m + 1)
78 + __alignof (pthread_barrier_t) - 1)
79 & ~(__alignof (pthread_barrier_t) - 1));
80 p = (char *) (b + 1);
82 if (pthread_mutexattr_init (&a) != 0)
84 puts ("mutexattr_init failed");
85 return 1;
88 if (pthread_mutexattr_getpshared (&a, &s) != 0)
90 puts ("1st mutexattr_getpshared failed");
91 return 1;
94 if (s != PTHREAD_PROCESS_PRIVATE)
96 puts ("default pshared value wrong");
97 return 1;
100 if (pthread_mutexattr_setpshared (&a, PTHREAD_PROCESS_SHARED) != 0)
102 puts ("mutexattr_setpshared failed");
103 return 1;
106 if (pthread_mutexattr_getpshared (&a, &s) != 0)
108 puts ("2nd mutexattr_getpshared failed");
109 return 1;
112 if (s != PTHREAD_PROCESS_SHARED)
114 puts ("pshared value after setpshared call wrong");
115 return 1;
118 #ifdef ENABLE_PI
119 if (pthread_mutexattr_setprotocol (&a, PTHREAD_PRIO_INHERIT) != 0)
121 puts ("pthread_mutexattr_setprotocol failed");
122 return 1;
124 #endif
126 if ((err = pthread_mutex_init (m, &a)) != 0)
128 #ifdef ENABLE_PI
129 if (err == ENOTSUP)
131 puts ("PI mutexes unsupported");
132 return 0;
134 #endif
135 puts ("mutex_init failed");
136 return 1;
139 if (pthread_mutex_lock (m) != 0)
141 puts ("mutex_lock failed");
142 return 1;
145 if (pthread_mutexattr_destroy (&a) != 0)
147 puts ("mutexattr_destroy failed");
148 return 1;
151 if (pthread_barrierattr_init (&ba) != 0)
153 puts ("barrierattr_init failed");
154 return 1;
157 if (pthread_barrierattr_setpshared (&ba, PTHREAD_PROCESS_SHARED) != 0)
159 puts ("barrierattr_setpshared failed");
160 return 1;
163 if (pthread_barrier_init (b, &ba, 2) != 0)
165 puts ("barrier_init failed");
166 return 1;
169 if (pthread_barrierattr_destroy (&ba) != 0)
171 puts ("barrierattr_destroy failed");
172 return 1;
175 err = pthread_mutex_trylock (m);
176 if (err == 0)
178 puts ("mutex_trylock succeeded");
179 return 1;
181 else if (err != EBUSY)
183 puts ("mutex_trylock didn't return EBUSY");
184 return 1;
187 *p = 0;
189 if (pthread_mutex_unlock (m) != 0)
191 puts ("parent: 1st mutex_unlock failed");
192 return 1;
195 puts ("going to fork now");
196 pid = fork ();
197 if (pid == -1)
199 puts ("fork failed");
200 return 1;
202 else if (pid == 0)
204 if (pthread_mutex_lock (m) != 0)
206 puts ("child: mutex_lock failed");
207 return 1;
210 int e = pthread_barrier_wait (b);
211 if (e != 0 && e != PTHREAD_BARRIER_SERIAL_THREAD)
213 puts ("child: barrier_wait failed");
214 return 1;
217 if ((*p)++ != 0)
219 puts ("child: *p != 0");
220 return 1;
223 if (pthread_mutex_unlock (m) != 0)
225 puts ("child: mutex_unlock failed");
226 return 1;
229 puts ("child done");
231 else
233 int e = pthread_barrier_wait (b);
234 if (e != 0 && e != PTHREAD_BARRIER_SERIAL_THREAD)
236 puts ("parent: barrier_wait failed");
237 return 1;
240 if (pthread_mutex_lock (m) != 0)
242 puts ("parent: 2nd mutex_lock failed");
243 return 1;
246 if (*p != 1)
248 puts ("*p != 1");
249 return 1;
252 if (pthread_mutex_unlock (m) != 0)
254 puts ("parent: 2nd mutex_unlock failed");
255 return 1;
258 if (pthread_mutex_destroy (m) != 0)
260 puts ("mutex_destroy failed");
261 return 1;
264 if (pthread_barrier_destroy (b) != 0)
266 puts ("barrier_destroy failed");
267 return 1;
270 puts ("parent done");
273 return 0;
276 #define TIMEOUT 4
277 #define TEST_FUNCTION do_test ()
278 #include "../test-skeleton.c"