ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

If the user specifies a --map-by <foo> option, then default to bind-to <foo> unless they specify a bind-to option. If they map-by slot/node, then use the default policy based on num_procs.

Просмотр исходного кода
Этот коммит содержится в:
Ralph Castain 2015-04-23 13:29:04 -07:00
родитель 9c1c746309
Коммит 5003be5c5c
2 изменённых файлов: 34 добавлений и 5 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

10
opal/mca/hwloc/hwloc.h
Просмотреть файл

@ -197,8 +197,14 @@ typedef uint16_t opal_binding_policy_t;
((pol) & 0x0fff)
#define OPAL_SET_BINDING_POLICY(target, pol) \
(target) = (pol) | (((target) & 0xf000) | OPAL_BIND_GIVEN)
#define OPAL_SET_DEFAULT_BINDING_POLICY(target, pol) \
(target) = (pol) | (((target) & 0xf000) | OPAL_BIND_IF_SUPPORTED)
#define OPAL_SET_DEFAULT_BINDING_POLICY(target, pol) \
do { \
if (!OPAL_BINDING_POLICY_IS_SET((target))) { \
(target) = (pol) | (((target) & 0xf000) | \
OPAL_BIND_IF_SUPPORTED); \
} \
} while(0);
/* check if policy is set */
#define OPAL_BINDING_POLICY_IS_SET(pol) \
((pol) & 0x4000)

29
orte/mca/rmaps/base/rmaps_base_map_job.c
Просмотреть файл

@ -247,9 +247,32 @@ void orte_rmaps_base_map_job(int fd, short args, void *cbdata)
if (OPAL_BINDING_POLICY_IS_SET(opal_hwloc_binding_policy)) {
jdata->map->binding = opal_hwloc_binding_policy;
} else {
/* if nothing was specified, then we default to a policy
* based on number of procs and cpus_per_rank */
if (nprocs <= 2) {
orte_mapping_policy_t mpol;
mpol = ORTE_GET_MAPPING_POLICY(orte_rmaps_base.mapping);
/* if the user explicitly mapped-by some object, then we default
* to binding to that object */
if (ORTE_MAPPING_POLICY_IS_SET(jdata->map->mapping) &&
ORTE_MAPPING_BYBOARD < mpol && mpol < ORTE_MAPPING_BYSLOT) {
if (ORTE_MAPPING_BYHWTHREAD == mpol) {
OPAL_SET_DEFAULT_BINDING_POLICY(jdata->map->binding, OPAL_BIND_TO_HWTHREAD);
} else if (ORTE_MAPPING_BYCORE == mpol) {
OPAL_SET_DEFAULT_BINDING_POLICY(jdata->map->binding, OPAL_BIND_TO_CORE);
} else if (ORTE_MAPPING_BYL1CACHE == mpol) {
OPAL_SET_DEFAULT_BINDING_POLICY(jdata->map->binding, OPAL_BIND_TO_L1CACHE);
} else if (ORTE_MAPPING_BYL2CACHE == mpol) {
OPAL_SET_DEFAULT_BINDING_POLICY(jdata->map->binding, OPAL_BIND_TO_L2CACHE);
} else if (ORTE_MAPPING_BYL3CACHE == mpol) {
OPAL_SET_DEFAULT_BINDING_POLICY(jdata->map->binding, OPAL_BIND_TO_L3CACHE);
} else if (ORTE_MAPPING_BYSOCKET == mpol) {
OPAL_SET_DEFAULT_BINDING_POLICY(jdata->map->binding, OPAL_BIND_TO_SOCKET);
} else if (ORTE_MAPPING_BYNUMA == mpol) {
OPAL_SET_DEFAULT_BINDING_POLICY(jdata->map->binding, OPAL_BIND_TO_NUMA);
} else if (ORTE_MAPPING_BYHWTHREAD == mpol) {
OPAL_SET_DEFAULT_BINDING_POLICY(jdata->map->binding, OPAL_BIND_TO_CORE);
}
} else if (nprocs <= 2) {
/* if nothing was specified, then we default to a policy
* based on number of procs and cpus_per_rank */
if (1 < orte_rmaps_base.cpus_per_rank) {
/* assigning multiple cpus to a rank implies threading,
* so we only bind to the NUMA level */