1/*
2 * Copyright (c) 2014 ETH Zurich.
3 * All rights reserved.
4 *
5 * This file is distributed under the terms in the attached LICENSE file.
6 * If you do not find this file, copies can be found by writing to:
7 * ETH Zurich D-INFK, Universitaetsstrasse 6, CH-8092 Zurich. Attn: Systems Group.
8 */
9#include <bomp_internal.h>
10
11/*
12 * These functions implement the BARRIER construct
13 */
14
15void GOMP_barrier(void)
16{
17    assert(g_bomp_state);
18
19    struct bomp_thread_local_data *th_local_data = g_bomp_state->backend.get_tls();
20    assert(th_local_data != NULL);
21    bomp_barrier_wait(th_local_data->work->barrier);
22}
23
24bool GOMP_barrier_cancel (void)
25{
26    assert(!"NYI");
27    return 0;
28}
29