dist/libgomp/oacc-async.c

429 goacc_async_free (struct gomp_device_descr *devicep,
435     devicep->openacc.async.queue_callback_func (aq, free, ptr);
443 goacc_init_asyncqueues (struct gomp_device_descr *devicep)
445   devicep->openacc.async.nasyncqueue = 0;
446   devicep->openacc.async.asyncqueue = NULL;
447   devicep->openacc.async.active = NULL;
448   gomp_mutex_init (&devicep->openacc.async.lock);
455 goacc_fini_asyncqueues (struct gomp_device_descr *devicep)
458   gomp_mutex_lock (&devicep->openacc.async.lock);
459   if (devicep->openacc.async.nasyncqueue > 0)
462       for (goacc_aq_list l = devicep->openacc.async.active; l; l = next)
464 	  ret &= devicep->openacc.async.destruct_func (l->aq);
468       free (devicep->openacc.async.asyncqueue);
469       devicep->openacc.async.nasyncqueue = 0;
470       devicep->openacc.async.asyncqueue = NULL;
471       devicep->openacc.async.active = NULL;
473   gomp_mutex_unlock (&devicep->openacc.async.lock);
474   gomp_mutex_destroy (&devicep->openacc.async.lock);