static struct gomp_device_descr *
resolve_device (acc_device_t d)
{
acc_device_t d_arg = d;
switch (d)
{
case acc_device_default:
{
if (goacc_device_type)
{
/* Lookup the named device. */
while (++d != _ACC_device_hwm)
if (dispatchers[d]
&& !strcasecmp (goacc_device_type,
get_openacc_name (dispatchers[d]->name))
&& dispatchers[d]->get_num_devices_func () > 0)
goto found;
gomp_fatal ("device type %s not supported", goacc_device_type);
}
/* No default device specified, so start scanning for any non-host
device that is available. */
d = acc_device_not_host;
}
/* FALLTHROUGH */
case acc_device_not_host:
/* Find the first available device after acc_device_not_host. */
while (++d != _ACC_device_hwm)
if (dispatchers[d] && dispatchers[d]->get_num_devices_func () > 0)
goto found;
if (d_arg == acc_device_default)
{
d = acc_device_host;
goto found;
}
gomp_fatal ("no device found");
break;
case acc_device_host:
break;
default:
if (d > _ACC_device_hwm)
gomp_fatal ("device %u out of range", (unsigned)d);
break;
}
found:
assert (d != acc_device_none
&& d != acc_device_default
&& d != acc_device_not_host);
return dispatchers[d];
}
static struct gomp_device_descr *
resolve_device (acc_device_t d, bool fail_is_error)
{
acc_device_t d_arg = d;
switch (d)
{
case acc_device_default:
{
if (goacc_device_type)
{
/* Lookup the named device. */
while (++d != _ACC_device_hwm)
if (dispatchers[d]
&& !strcasecmp (goacc_device_type,
get_openacc_name (dispatchers[d]->name))
&& dispatchers[d]->get_num_devices_func () > 0)
goto found;
if (fail_is_error)
{
gomp_mutex_unlock (&acc_device_lock);
gomp_fatal ("device type %s not supported", goacc_device_type);
}
else
return NULL;
}
/* No default device specified, so start scanning for any non-host
device that is available. */
d = acc_device_not_host;
}
/* FALLTHROUGH */
case acc_device_not_host:
/* Find the first available device after acc_device_not_host. */
while (++d != _ACC_device_hwm)
if (dispatchers[d] && dispatchers[d]->get_num_devices_func () > 0)
goto found;
if (d_arg == acc_device_default)
{
d = acc_device_host;
goto found;
}
if (fail_is_error)
{
gomp_mutex_unlock (&acc_device_lock);
gomp_fatal ("no device found");
}
else
return NULL;
break;
case acc_device_host:
break;
default:
if (d > _ACC_device_hwm)
{
if (fail_is_error)
goto unsupported_device;
else
return NULL;
}
break;
}
found:
assert (d != acc_device_none
&& d != acc_device_default
&& d != acc_device_not_host);
if (dispatchers[d] == NULL && fail_is_error)
{
unsupported_device:
gomp_mutex_unlock (&acc_device_lock);
gomp_fatal ("device type %s not supported", name_of_acc_device_t (d));
}
return dispatchers[d];
}
