1 /*
2 * barrier5.c
3 *
4 *
5 * --------------------------------------------------------------------------
6 *
7 * Pthreads-win32 - POSIX Threads Library for Win32
8 * Copyright(C) 1998 John E. Bossom
9 * Copyright(C) 1999,2005 Pthreads-win32 contributors
10 *
11 * Contact Email: rpj@callisto.canberra.edu.au
12 *
13 * The current list of contributors is contained
14 * in the file CONTRIBUTORS included with the source
15 * code distribution. The list can also be seen at the
16 * following World Wide Web location:
17 * http://sources.redhat.com/pthreads-win32/contributors.html
18 *
19 * This library is free software; you can redistribute it and/or
20 * modify it under the terms of the GNU Lesser General Public
21 * License as published by the Free Software Foundation; either
22 * version 2 of the License, or (at your option) any later version.
23 *
24 * This library is distributed in the hope that it will be useful,
25 * but WITHOUT ANY WARRANTY; without even the implied warranty of
26 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
27 * Lesser General Public License for more details.
28 *
29 * You should have received a copy of the GNU Lesser General Public
30 * License along with this library in the file COPYING.LIB;
31 * if not, write to the Free Software Foundation, Inc.,
32 * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
33 *
34 * --------------------------------------------------------------------------
35 *
36 * Set up a series of barriers at different heights and test various numbers
37 * of threads accessing, especially cases where there are more threads than the
38 * barrier height (count), i.e. test contention when the barrier is released.
39 */
40
41 #include "test.h"
42
43 enum {
44 NUMTHREADS = 15,
45 HEIGHT = 10,
46 BARRIERMULTIPLE = 1000
47 };
48
49 pthread_barrier_t barrier = NULL;
50 pthread_mutex_t mx = PTHREAD_MUTEX_INITIALIZER;
51 LONG totalThreadCrossings;
52
53 void *
func(void * crossings)54 func(void * crossings)
55 {
56 int result;
57 int serialThreads = 0;
58
59 while ((LONG)(size_t)crossings >= (LONG)InterlockedIncrement((LPLONG)&totalThreadCrossings))
60 {
61 result = pthread_barrier_wait(&barrier);
62
63 if (result == PTHREAD_BARRIER_SERIAL_THREAD)
64 {
65 serialThreads++;
66 }
67 else if (result != 0)
68 {
69 printf("Barrier failed: result = %s\n", error_string[result]);
70 fflush(stdout);
71 return NULL;
72 }
73 }
74
75 return (void *) (size_t) serialThreads;
76 }
77
78 int
main()79 main()
80 {
81 int i, j;
82 void *pr;
83 int result;
84 int serialThreadsTotal;
85 LONG Crossings;
86 pthread_t t[NUMTHREADS + 1];
87
88 for (j = 1; j <= NUMTHREADS; j++)
89 {
90 int height = j<HEIGHT?j:HEIGHT;
91
92 totalThreadCrossings = 0;
93 Crossings = height * BARRIERMULTIPLE;
94
95 printf("Threads=%d, Barrier height=%d\n", j, height);
96
97 assert(pthread_barrier_init(&barrier, NULL, height) == 0);
98
99 for (i = 1; i <= j; i++)
100 {
101 assert(pthread_create(&t[i], NULL, func, (void *) (size_t) Crossings) == 0);
102 }
103
104 serialThreadsTotal = 0;
105 for (i = 1; i <= j; i++)
106 {
107 assert(pthread_join(t[i], (void **) &pr) == 0);
108 result= (int) (size_t) pr;
109 serialThreadsTotal += result;
110 }
111
112 assert(serialThreadsTotal == BARRIERMULTIPLE);
113
114 assert(pthread_barrier_destroy(&barrier) == 0);
115 }
116
117 assert(pthread_mutex_destroy(&mx) == 0);
118
119 return 0;
120 }
121