123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158 |
- /* Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
- This file is part of the GNU C Library.
- Contributed by Ulrich Drepper <drepper@redhat.com>, 2002.
- The GNU C Library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Lesser General Public
- License as published by the Free Software Foundation; either
- version 2.1 of the License, or (at your option) any later version.
- The GNU C Library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Lesser General Public License for more details.
- You should have received a copy of the GNU Lesser General Public
- License along with the GNU C Library; if not, see
- <http://www.gnu.org/licenses/>. */
- #include <errno.h>
- #include <pthread.h>
- #include <stdint.h>
- #include <stdio.h>
- #include <stdlib.h>
- #include <string.h>
- #include <unistd.h>
- #include <sys/mman.h>
- #include <sys/wait.h>
- static int
- do_test (void)
- {
- size_t ps = sysconf (_SC_PAGESIZE);
- char tmpfname[] = "/tmp/tst-spin2.XXXXXX";
- char data[ps];
- void *mem;
- int fd;
- pthread_spinlock_t *s;
- pid_t pid;
- char *p;
- int err;
- fd = mkstemp (tmpfname);
- if (fd == -1)
- {
- printf ("cannot open temporary file: %m\n");
- return 1;
- }
- /* Make sure it is always removed. */
- unlink (tmpfname);
- /* Create one page of data. */
- memset (data, '\0', ps);
- /* Write the data to the file. */
- if (write (fd, data, ps) != (ssize_t) ps)
- {
- puts ("short write");
- return 1;
- }
- mem = mmap (NULL, ps, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
- if (mem == MAP_FAILED)
- {
- printf ("mmap failed: %m\n");
- return 1;
- }
- s = (pthread_spinlock_t *) (((uintptr_t) mem
- + __alignof (pthread_spinlock_t))
- & ~(__alignof (pthread_spinlock_t) - 1));
- p = (char *) (s + 1);
- if (pthread_spin_init (s, PTHREAD_PROCESS_SHARED) != 0)
- {
- puts ("spin_init failed");
- return 1;
- }
- if (pthread_spin_lock (s) != 0)
- {
- puts ("spin_lock failed");
- return 1;
- }
- err = pthread_spin_trylock (s);
- if (err == 0)
- {
- puts ("1st spin_trylock succeeded");
- return 1;
- }
- else if (err != EBUSY)
- {
- puts ("1st spin_trylock didn't return EBUSY");
- return 1;
- }
- err = pthread_spin_unlock (s);
- if (err != 0)
- {
- puts ("parent: spin_unlock failed");
- return 1;
- }
- err = pthread_spin_trylock (s);
- if (err != 0)
- {
- puts ("2nd spin_trylock failed");
- return 1;
- }
- *p = 0;
- puts ("going to fork now");
- pid = fork ();
- if (pid == -1)
- {
- puts ("fork failed");
- return 1;
- }
- else if (pid == 0)
- {
- /* Play some lock ping-pong. It's our turn to unlock first. */
- if ((*p)++ != 0)
- {
- puts ("child: *p != 0");
- return 1;
- }
- if (pthread_spin_unlock (s) != 0)
- {
- puts ("child: 1st spin_unlock failed");
- return 1;
- }
- puts ("child done");
- }
- else
- {
- if (pthread_spin_lock (s) != 0)
- {
- puts ("parent: 2nd spin_lock failed");
- return 1;
- }
- puts ("waiting for child");
- waitpid (pid, NULL, 0);
- puts ("parent done");
- }
- return 0;
- }
- #define TEST_FUNCTION do_test ()
- #include "../test-skeleton.c"
|