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