1*38fd1498Szrj /* Copyright (C) 2005-2018 Free Software Foundation, Inc.
2*38fd1498Szrj Contributed by Richard Henderson <rth@redhat.com>.
3*38fd1498Szrj
4*38fd1498Szrj This file is part of the GNU Offloading and Multi Processing Library
5*38fd1498Szrj (libgomp).
6*38fd1498Szrj
7*38fd1498Szrj Libgomp is free software; you can redistribute it and/or modify it
8*38fd1498Szrj under the terms of the GNU General Public License as published by
9*38fd1498Szrj the Free Software Foundation; either version 3, or (at your option)
10*38fd1498Szrj any later version.
11*38fd1498Szrj
12*38fd1498Szrj Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
13*38fd1498Szrj WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14*38fd1498Szrj FOR A PARTICULAR PURPOSE. See the GNU General Public License for
15*38fd1498Szrj more details.
16*38fd1498Szrj
17*38fd1498Szrj Under Section 7 of GPL version 3, you are granted additional
18*38fd1498Szrj permissions described in the GCC Runtime Library Exception, version
19*38fd1498Szrj 3.1, as published by the Free Software Foundation.
20*38fd1498Szrj
21*38fd1498Szrj You should have received a copy of the GNU General Public License and
22*38fd1498Szrj a copy of the GCC Runtime Library Exception along with this program;
23*38fd1498Szrj see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
24*38fd1498Szrj <http://www.gnu.org/licenses/>. */
25*38fd1498Szrj
26*38fd1498Szrj /* This file handles the SINGLE construct. */
27*38fd1498Szrj
28*38fd1498Szrj #include "libgomp.h"
29*38fd1498Szrj
30*38fd1498Szrj
31*38fd1498Szrj /* This routine is called when first encountering a SINGLE construct that
32*38fd1498Szrj doesn't have a COPYPRIVATE clause. Returns true if this is the thread
33*38fd1498Szrj that should execute the clause. */
34*38fd1498Szrj
35*38fd1498Szrj bool
GOMP_single_start(void)36*38fd1498Szrj GOMP_single_start (void)
37*38fd1498Szrj {
38*38fd1498Szrj #ifdef HAVE_SYNC_BUILTINS
39*38fd1498Szrj struct gomp_thread *thr = gomp_thread ();
40*38fd1498Szrj struct gomp_team *team = thr->ts.team;
41*38fd1498Szrj unsigned long single_count;
42*38fd1498Szrj
43*38fd1498Szrj if (__builtin_expect (team == NULL, 0))
44*38fd1498Szrj return true;
45*38fd1498Szrj
46*38fd1498Szrj single_count = thr->ts.single_count++;
47*38fd1498Szrj return __sync_bool_compare_and_swap (&team->single_count, single_count,
48*38fd1498Szrj single_count + 1L);
49*38fd1498Szrj #else
50*38fd1498Szrj bool ret = gomp_work_share_start (false);
51*38fd1498Szrj if (ret)
52*38fd1498Szrj gomp_work_share_init_done ();
53*38fd1498Szrj gomp_work_share_end_nowait ();
54*38fd1498Szrj return ret;
55*38fd1498Szrj #endif
56*38fd1498Szrj }
57*38fd1498Szrj
58*38fd1498Szrj /* This routine is called when first encountering a SINGLE construct that
59*38fd1498Szrj does have a COPYPRIVATE clause. Returns NULL if this is the thread
60*38fd1498Szrj that should execute the clause; otherwise the return value is pointer
61*38fd1498Szrj given to GOMP_single_copy_end by the thread that did execute the clause. */
62*38fd1498Szrj
63*38fd1498Szrj void *
GOMP_single_copy_start(void)64*38fd1498Szrj GOMP_single_copy_start (void)
65*38fd1498Szrj {
66*38fd1498Szrj struct gomp_thread *thr = gomp_thread ();
67*38fd1498Szrj
68*38fd1498Szrj bool first;
69*38fd1498Szrj void *ret;
70*38fd1498Szrj
71*38fd1498Szrj first = gomp_work_share_start (false);
72*38fd1498Szrj
73*38fd1498Szrj if (first)
74*38fd1498Szrj {
75*38fd1498Szrj gomp_work_share_init_done ();
76*38fd1498Szrj ret = NULL;
77*38fd1498Szrj }
78*38fd1498Szrj else
79*38fd1498Szrj {
80*38fd1498Szrj gomp_team_barrier_wait (&thr->ts.team->barrier);
81*38fd1498Szrj
82*38fd1498Szrj ret = thr->ts.work_share->copyprivate;
83*38fd1498Szrj gomp_work_share_end_nowait ();
84*38fd1498Szrj }
85*38fd1498Szrj
86*38fd1498Szrj return ret;
87*38fd1498Szrj }
88*38fd1498Szrj
89*38fd1498Szrj /* This routine is called when the thread that entered a SINGLE construct
90*38fd1498Szrj with a COPYPRIVATE clause gets to the end of the construct. */
91*38fd1498Szrj
92*38fd1498Szrj void
GOMP_single_copy_end(void * data)93*38fd1498Szrj GOMP_single_copy_end (void *data)
94*38fd1498Szrj {
95*38fd1498Szrj struct gomp_thread *thr = gomp_thread ();
96*38fd1498Szrj struct gomp_team *team = thr->ts.team;
97*38fd1498Szrj
98*38fd1498Szrj if (team != NULL)
99*38fd1498Szrj {
100*38fd1498Szrj thr->ts.work_share->copyprivate = data;
101*38fd1498Szrj gomp_team_barrier_wait (&team->barrier);
102*38fd1498Szrj }
103*38fd1498Szrj
104*38fd1498Szrj gomp_work_share_end_nowait ();
105*38fd1498Szrj }
106