Mercurial > hg > octave-nkf > gnulib-hg
annotate lib/pthread_sigmask.c @ 17935:0ad1f4c9eed5 default tip
tests: support stderr verification with returns_()
* tests/init.sh (returns_): Disable tracing for this wrapper
function, so that stderr of the wrapped command is unchanged,
allowing for verification of the contents.
author | Pádraig Brady <P@draigBrady.com> |
---|---|
date | Mon, 16 Feb 2015 17:20:39 +0000 |
parents | ab58d4870664 |
children |
rev | line source |
---|---|
15364
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1 /* POSIX compatible signal blocking for threads. |
17848 | 2 Copyright (C) 2011-2015 Free Software Foundation, Inc. |
15364
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3 |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4 This program is free software: you can redistribute it and/or modify |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
5 it under the terms of the GNU General Public License as published by |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
6 the Free Software Foundation; either version 3 of the License, or |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
7 (at your option) any later version. |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
8 |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
9 This program is distributed in the hope that it will be useful, |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
10 but WITHOUT ANY WARRANTY; without even the implied warranty of |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
12 GNU General Public License for more details. |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
13 |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
14 You should have received a copy of the GNU General Public License |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
16 |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
17 #include <config.h> |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
18 |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
19 /* Specification. */ |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
20 #include <signal.h> |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
21 |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
22 #include <errno.h> |
15382
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
23 #include <stddef.h> |
15364
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
24 |
16994
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
25 #if PTHREAD_SIGMASK_INEFFECTIVE |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
26 # include <string.h> |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
27 #endif |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
28 |
15432
6bebbb324858
pthread_sigmask: ensure usleep is declared
Paul Eggert <eggert@cs.ucla.edu>
parents:
15384
diff
changeset
|
29 #if PTHREAD_SIGMASK_UNBLOCK_BUG |
6bebbb324858
pthread_sigmask: ensure usleep is declared
Paul Eggert <eggert@cs.ucla.edu>
parents:
15384
diff
changeset
|
30 # include <unistd.h> |
6bebbb324858
pthread_sigmask: ensure usleep is declared
Paul Eggert <eggert@cs.ucla.edu>
parents:
15384
diff
changeset
|
31 #endif |
6bebbb324858
pthread_sigmask: ensure usleep is declared
Paul Eggert <eggert@cs.ucla.edu>
parents:
15384
diff
changeset
|
32 |
15364
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
33 int |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
34 pthread_sigmask (int how, const sigset_t *new_mask, sigset_t *old_mask) |
15382
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
35 #undef pthread_sigmask |
15364
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
36 { |
15382
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
37 #if HAVE_PTHREAD_SIGMASK |
16994
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
38 int ret; |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
39 |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
40 # if PTHREAD_SIGMASK_INEFFECTIVE |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
41 sigset_t omask, omask_copy; |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
42 sigset_t *old_mask_ptr = &omask; |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
43 sigemptyset (&omask); |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
44 /* Add a signal unlikely to be blocked, so that OMASK_COPY |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
45 is unlikely to match the actual mask. */ |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
46 sigaddset (&omask, SIGILL); |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
47 memcpy (&omask_copy, &omask, sizeof omask); |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
48 # else |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
49 sigset_t *old_mask_ptr = old_mask; |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
50 # endif |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
51 |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
52 ret = pthread_sigmask (how, new_mask, old_mask_ptr); |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
53 |
15382
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
54 # if PTHREAD_SIGMASK_INEFFECTIVE |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
55 if (ret == 0) |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
56 { |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
57 /* Detect whether pthread_sigmask is currently ineffective. |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
58 Don't cache the information: libpthread.so could be dynamically |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
59 loaded after the program started and after pthread_sigmask was |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
60 called for the first time. */ |
16994
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
61 if (memcmp (&omask_copy, &omask, sizeof omask) == 0 |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
62 && pthread_sigmask (1729, &omask_copy, NULL) == 0) |
15382
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
63 { |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
64 /* pthread_sigmask is currently ineffective. The program is not |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
65 linked to -lpthread. So use sigprocmask instead. */ |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
66 return (sigprocmask (how, new_mask, old_mask) < 0 ? errno : 0); |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
67 } |
16994
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
68 |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
69 if (old_mask) |
07495c580e2e
pthread_sigmask: fix bug on FreeBSD 9
Paul Eggert <eggert@cs.ucla.edu>
parents:
16201
diff
changeset
|
70 memcpy (old_mask, &omask, sizeof omask); |
15382
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
71 } |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
72 # endif |
15383
2fb7d8364951
pthread_sigmask: Work around Cygwin bug.
Bruno Haible <bruno@clisp.org>
parents:
15382
diff
changeset
|
73 # if PTHREAD_SIGMASK_FAILS_WITH_ERRNO |
2fb7d8364951
pthread_sigmask: Work around Cygwin bug.
Bruno Haible <bruno@clisp.org>
parents:
15382
diff
changeset
|
74 if (ret == -1) |
2fb7d8364951
pthread_sigmask: Work around Cygwin bug.
Bruno Haible <bruno@clisp.org>
parents:
15382
diff
changeset
|
75 return errno; |
2fb7d8364951
pthread_sigmask: Work around Cygwin bug.
Bruno Haible <bruno@clisp.org>
parents:
15382
diff
changeset
|
76 # endif |
15384
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
77 # if PTHREAD_SIGMASK_UNBLOCK_BUG |
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
78 if (ret == 0 |
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
79 && new_mask != NULL |
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
80 && (how == SIG_UNBLOCK || how == SIG_SETMASK)) |
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
81 { |
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
82 /* Give the OS the opportunity to raise signals that were pending before |
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
83 the pthread_sigmask call and have now been unblocked. */ |
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
84 usleep (1); |
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
85 } |
2187b5650eca
pthread_sigmask: Work around IRIX bug.
Bruno Haible <bruno@clisp.org>
parents:
15383
diff
changeset
|
86 # endif |
15382
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
87 return ret; |
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
88 #else |
15364
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
89 int ret = sigprocmask (how, new_mask, old_mask); |
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
90 return (ret < 0 ? errno : 0); |
15382
16995a7f1514
pthread_sigmask: Work around bug in single-threaded implementation.
Bruno Haible <bruno@clisp.org>
parents:
15364
diff
changeset
|
91 #endif |
15364
f81fb597c41a
pthread_sigmask: Fix return value.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
92 } |