.
[glibc/history.git] / nptl / tst-spin2.c
blob5b1df6c4a8bc482489541777641892ee5fcd8abf
1 /* Copyright (C) 2002, 2003, 2004 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-spin2.XXXXXX";
36 char data[ps];
37 void *mem;
38 int fd;
39 pthread_spinlock_t *s;
40 pid_t pid;
41 char *p;
42 int err;
44 fd = mkstemp (tmpfname);
45 if (fd == -1)
47 printf ("cannot open temporary file: %m\n");
48 return 1;
51 /* Make sure it is always removed. */
52 unlink (tmpfname);
54 /* Create one page of data. */
55 memset (data, '\0', ps);
57 /* Write the data to the file. */
58 if (write (fd, data, ps) != (ssize_t) ps)
60 puts ("short write");
61 return 1;
64 mem = mmap (NULL, ps, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
65 if (mem == MAP_FAILED)
67 printf ("mmap failed: %m\n");
68 return 1;
71 s = (pthread_spinlock_t *) (((uintptr_t) mem
72 + __alignof (pthread_spinlock_t))
73 & ~(__alignof (pthread_spinlock_t) - 1));
74 p = (char *) (s + 1);
76 if (pthread_spin_init (s, PTHREAD_PROCESS_SHARED) != 0)
78 puts ("spin_init failed");
79 return 1;
82 if (pthread_spin_lock (s) != 0)
84 puts ("spin_lock failed");
85 return 1;
88 err = pthread_spin_trylock (s);
89 if (err == 0)
91 puts ("1st spin_trylock succeeded");
92 return 1;
94 else if (err != EBUSY)
96 puts ("1st spin_trylock didn't return EBUSY");
97 return 1;
100 err = pthread_spin_unlock (s);
101 if (err != 0)
103 puts ("parent: spin_unlock failed");
104 return 1;
107 err = pthread_spin_trylock (s);
108 if (err != 0)
110 puts ("2nd spin_trylock failed");
111 return 1;
114 *p = 0;
116 puts ("going to fork now");
117 pid = fork ();
118 if (pid == -1)
120 puts ("fork failed");
121 return 1;
123 else if (pid == 0)
125 /* Play some lock ping-pong. It's our turn to unlock first. */
126 if ((*p)++ != 0)
128 puts ("child: *p != 0");
129 return 1;
132 if (pthread_spin_unlock (s) != 0)
134 puts ("child: 1st spin_unlock failed");
135 return 1;
138 puts ("child done");
140 else
142 if (pthread_spin_lock (s) != 0)
144 puts ("parent: 2nd spin_lock failed");
145 return 1;
148 puts ("waiting for child");
150 waitpid (pid, NULL, 0);
152 puts ("parent done");
155 return 0;
158 #define TEST_FUNCTION do_test ()
159 #include "../test-skeleton.c"