1
1
openmpi/opal/mca/paffinity/windows/paffinity_windows_module.c
George Bosilca 30648c55ff First version of the paffinity for Windows. We detect correctly if the
functions are available in the .h file as well as the kernel32.dll but
we generate empty functions.

This commit was SVN r8478.
2005-12-13 06:04:41 +00:00

99 строки
2.1 KiB
C

/*
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2005 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "ompi_config.h"
#include "opal/include/constants.h"
#include "opal/mca/base/mca_base_param.h"
#include "opal/mca/paffinity/paffinity.h"
#include "opal/mca/paffinity/base/base.h"
#include "paffinity_windows.h"
/*
* Local functions
*/
static int windows_module_init(void);
static int windows_module_get_num_procs(int *num_procs);
static int windows_module_set(int id);
static int windows_module_get(int *id);
/*
* Linux paffinity module
*/
static const opal_paffinity_base_module_1_0_0_t module = {
/* Initialization function */
windows_module_init,
/* Module function pointers */
windows_module_get_num_procs,
windows_module_set,
windows_module_get
};
const opal_paffinity_base_module_1_0_0_t *
opal_paffinity_windows_component_query(int *query)
{
int param;
param = mca_base_param_find("paffinity", "windows", "priority");
mca_base_param_lookup_int(param, query);
return &module;
}
static int windows_module_init(void)
{
/* Nothing to do */
return OPAL_SUCCESS;
}
static int windows_module_get_num_procs(int *num_procs)
{
*num_procs = 1;
return OPAL_SUCCESS;
}
static int windows_module_set(int id)
{
int num_procs;
windows_module_get_num_procs(&num_procs);
if (id >= num_procs || id < 0) {
return OPAL_ERR_BAD_PARAM;
}
return OPAL_SUCCESS;
}
static int windows_module_get(int *id)
{
unsigned int i;
return OPAL_SUCCESS;
}