/* gomp_hal_init_lock () - get a lock */ void gomp_hal_init_lock(unsigned int *id) { gomp_hal_lock((unsigned int *) next_lock_lock); *id = (*next_lock); (*next_lock) += sizeof(int); gomp_hal_unlock((unsigned int *) next_lock_lock); }
void omp_unset_lock(omp_lock_t *lock) { gomp_hal_unlock(lock); }