- export required symbols or library is useless
This commit was SVN r14595.
Этот коммит содержится в:
родитель
32564d73da
Коммит
d0c936ca85
@ -113,7 +113,7 @@
|
|||||||
static const mqs_basic_callbacks *mqs_basic_entrypoints;
|
static const mqs_basic_callbacks *mqs_basic_entrypoints;
|
||||||
static int host_is_big_endian;
|
static int host_is_big_endian;
|
||||||
|
|
||||||
void mqs_setup_basic_callbacks (const mqs_basic_callbacks * cb)
|
OMPI_DECLSPEC void mqs_setup_basic_callbacks (const mqs_basic_callbacks * cb)
|
||||||
{
|
{
|
||||||
int t = 1;
|
int t = 1;
|
||||||
|
|
||||||
@ -152,19 +152,19 @@ void mqs_setup_basic_callbacks (const mqs_basic_callbacks * cb)
|
|||||||
/* Version handling functions.
|
/* Version handling functions.
|
||||||
* This one should never be changed.
|
* This one should never be changed.
|
||||||
*/
|
*/
|
||||||
int mqs_version_compatibility (void)
|
OMPI_DECLSPEC int mqs_version_compatibility (void)
|
||||||
{
|
{
|
||||||
return MQS_INTERFACE_COMPATIBILITY;
|
return MQS_INTERFACE_COMPATIBILITY;
|
||||||
} /* mqs_version_compatibility */
|
} /* mqs_version_compatibility */
|
||||||
|
|
||||||
/* This one can say what you like */
|
/* This one can say what you like */
|
||||||
char *mqs_version_string (void)
|
OMPI_DECLSPEC char *mqs_version_string (void)
|
||||||
{
|
{
|
||||||
return "Open MPI message queue support for parallel debuggers compiled on " __DATE__;
|
return "Open MPI message queue support for parallel debuggers compiled on " __DATE__;
|
||||||
} /* mqs_version_string */
|
} /* mqs_version_string */
|
||||||
|
|
||||||
/* So the debugger can tell what interface width the library was compiled with */
|
/* So the debugger can tell what interface width the library was compiled with */
|
||||||
int mqs_dll_taddr_width (void)
|
OMPI_DECLSPEC int mqs_dll_taddr_width (void)
|
||||||
{
|
{
|
||||||
return sizeof (mqs_taddr_t);
|
return sizeof (mqs_taddr_t);
|
||||||
} /* mqs_dll_taddr_width */
|
} /* mqs_dll_taddr_width */
|
||||||
@ -353,7 +353,7 @@ static void group_decref (group_t * group)
|
|||||||
* Perform basic setup for the image, we just allocate and clear
|
* Perform basic setup for the image, we just allocate and clear
|
||||||
* our info.
|
* our info.
|
||||||
*/
|
*/
|
||||||
int mqs_setup_image (mqs_image *image, const mqs_image_callbacks *icb)
|
OMPI_DECLSPEC int mqs_setup_image (mqs_image *image, const mqs_image_callbacks *icb)
|
||||||
{
|
{
|
||||||
mpi_image_info *i_info = (mpi_image_info *)mqs_malloc (sizeof (mpi_image_info));
|
mpi_image_info *i_info = (mpi_image_info *)mqs_malloc (sizeof (mpi_image_info));
|
||||||
|
|
||||||
@ -382,7 +382,7 @@ int mqs_setup_image (mqs_image *image, const mqs_image_callbacks *icb)
|
|||||||
return concat (err_,field); \
|
return concat (err_,field); \
|
||||||
} while (0)
|
} while (0)
|
||||||
|
|
||||||
int mqs_image_has_queues (mqs_image *image, char **message)
|
OMPI_DECLSPEC int mqs_image_has_queues (mqs_image *image, char **message)
|
||||||
{
|
{
|
||||||
mpi_image_info * i_info = (mpi_image_info *)mqs_get_image_info (image);
|
mpi_image_info * i_info = (mpi_image_info *)mqs_get_image_info (image);
|
||||||
char* missing_in_action;
|
char* missing_in_action;
|
||||||
@ -627,7 +627,7 @@ int mqs_image_has_queues (mqs_image *image, char **message)
|
|||||||
* if nothing is attached to it, then TV will believe that this process
|
* if nothing is attached to it, then TV will believe that this process
|
||||||
* has no message queue information.
|
* has no message queue information.
|
||||||
*/
|
*/
|
||||||
int mqs_setup_process (mqs_process *process, const mqs_process_callbacks *pcb)
|
OMPI_DECLSPEC int mqs_setup_process (mqs_process *process, const mqs_process_callbacks *pcb)
|
||||||
{
|
{
|
||||||
/* Extract the addresses of the global variables we need and save them away */
|
/* Extract the addresses of the global variables we need and save them away */
|
||||||
mpi_process_info *p_info = (mpi_process_info *)mqs_malloc (sizeof (mpi_process_info));
|
mpi_process_info *p_info = (mpi_process_info *)mqs_malloc (sizeof (mpi_process_info));
|
||||||
@ -658,7 +658,7 @@ int mqs_setup_process (mqs_process *process, const mqs_process_callbacks *pcb)
|
|||||||
/***********************************************************************
|
/***********************************************************************
|
||||||
* Check the process for message queues.
|
* Check the process for message queues.
|
||||||
*/
|
*/
|
||||||
int mqs_process_has_queues (mqs_process *proc, char **msg)
|
OMPI_DECLSPEC int mqs_process_has_queues (mqs_process *proc, char **msg)
|
||||||
{
|
{
|
||||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||||
mqs_image * image = mqs_get_image (proc);
|
mqs_image * image = mqs_get_image (proc);
|
||||||
@ -851,7 +851,7 @@ static int rebuild_communicator_list (mqs_process *proc)
|
|||||||
/***********************************************************************
|
/***********************************************************************
|
||||||
* Update the list of communicators in the process if it has changed.
|
* Update the list of communicators in the process if it has changed.
|
||||||
*/
|
*/
|
||||||
int mqs_update_communicator_list (mqs_process *proc)
|
OMPI_DECLSPEC int mqs_update_communicator_list (mqs_process *proc)
|
||||||
{
|
{
|
||||||
if (communicators_changed (proc))
|
if (communicators_changed (proc))
|
||||||
return rebuild_communicator_list (proc);
|
return rebuild_communicator_list (proc);
|
||||||
@ -864,7 +864,7 @@ int mqs_update_communicator_list (mqs_process *proc)
|
|||||||
* This is where we check whether our internal communicator list needs
|
* This is where we check whether our internal communicator list needs
|
||||||
* updating and if so do it.
|
* updating and if so do it.
|
||||||
*/
|
*/
|
||||||
int mqs_setup_communicator_iterator (mqs_process *proc)
|
OMPI_DECLSPEC int mqs_setup_communicator_iterator (mqs_process *proc)
|
||||||
{
|
{
|
||||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||||
|
|
||||||
@ -881,7 +881,7 @@ int mqs_setup_communicator_iterator (mqs_process *proc)
|
|||||||
/***********************************************************************
|
/***********************************************************************
|
||||||
* Fetch information about the current communicator.
|
* Fetch information about the current communicator.
|
||||||
*/
|
*/
|
||||||
int mqs_get_communicator (mqs_process *proc, mqs_communicator *comm)
|
OMPI_DECLSPEC int mqs_get_communicator (mqs_process *proc, mqs_communicator *comm)
|
||||||
{
|
{
|
||||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||||
|
|
||||||
@ -896,7 +896,7 @@ int mqs_get_communicator (mqs_process *proc, mqs_communicator *comm)
|
|||||||
/***********************************************************************
|
/***********************************************************************
|
||||||
* Get the group information about the current communicator.
|
* Get the group information about the current communicator.
|
||||||
*/
|
*/
|
||||||
int mqs_get_comm_group (mqs_process *proc, int *group_members)
|
OMPI_DECLSPEC int mqs_get_comm_group (mqs_process *proc, int *group_members)
|
||||||
{
|
{
|
||||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||||
communicator_t *comm = p_info->current_communicator;
|
communicator_t *comm = p_info->current_communicator;
|
||||||
@ -916,7 +916,7 @@ int mqs_get_comm_group (mqs_process *proc, int *group_members)
|
|||||||
/***********************************************************************
|
/***********************************************************************
|
||||||
* Step to the next communicator.
|
* Step to the next communicator.
|
||||||
*/
|
*/
|
||||||
int mqs_next_communicator (mqs_process *proc)
|
OMPI_DECLSPEC int mqs_next_communicator (mqs_process *proc)
|
||||||
{
|
{
|
||||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||||
|
|
||||||
@ -1362,7 +1362,7 @@ static int fetch_send (mqs_process *proc, mpi_process_info *p_info,
|
|||||||
/***********************************************************************
|
/***********************************************************************
|
||||||
* Setup to iterate over pending operations
|
* Setup to iterate over pending operations
|
||||||
*/
|
*/
|
||||||
int mqs_setup_operation_iterator (mqs_process *proc, int op)
|
OMPI_DECLSPEC int mqs_setup_operation_iterator (mqs_process *proc, int op)
|
||||||
{
|
{
|
||||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||||
|
|
||||||
@ -1391,7 +1391,7 @@ int mqs_setup_operation_iterator (mqs_process *proc, int op)
|
|||||||
* we have to run over it and filter out the operations which
|
* we have to run over it and filter out the operations which
|
||||||
* match the active communicator.
|
* match the active communicator.
|
||||||
*/
|
*/
|
||||||
int mqs_next_operation (mqs_process *proc, mqs_pending_operation *op)
|
OMPI_DECLSPEC int mqs_next_operation (mqs_process *proc, mqs_pending_operation *op)
|
||||||
{
|
{
|
||||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||||
|
|
||||||
@ -1410,7 +1410,7 @@ int mqs_next_operation (mqs_process *proc, mqs_pending_operation *op)
|
|||||||
/***********************************************************************
|
/***********************************************************************
|
||||||
* Destroy the info.
|
* Destroy the info.
|
||||||
*/
|
*/
|
||||||
void mqs_destroy_process_info (mqs_process_info *mp_info)
|
OMPI_DECLSPEC void mqs_destroy_process_info (mqs_process_info *mp_info)
|
||||||
{
|
{
|
||||||
mpi_process_info *p_info = (mpi_process_info *)mp_info;
|
mpi_process_info *p_info = (mpi_process_info *)mp_info;
|
||||||
/* Need to handle the communicators and groups too */
|
/* Need to handle the communicators and groups too */
|
||||||
@ -1432,7 +1432,7 @@ void mqs_destroy_process_info (mqs_process_info *mp_info)
|
|||||||
* Free off the data we associated with an image. Since we malloced it
|
* Free off the data we associated with an image. Since we malloced it
|
||||||
* we just free it.
|
* we just free it.
|
||||||
*/
|
*/
|
||||||
void mqs_destroy_image_info (mqs_image_info *info)
|
OMPI_DECLSPEC void mqs_destroy_image_info (mqs_image_info *info)
|
||||||
{
|
{
|
||||||
mqs_free (info);
|
mqs_free (info);
|
||||||
} /* mqs_destroy_image_info */
|
} /* mqs_destroy_image_info */
|
||||||
@ -1482,7 +1482,7 @@ static mqs_tword_t fetch_bool(mqs_process * proc, mqs_taddr_t addr, mpi_process_
|
|||||||
|
|
||||||
/***********************************************************************/
|
/***********************************************************************/
|
||||||
/* Convert an error code into a printable string */
|
/* Convert an error code into a printable string */
|
||||||
char * mqs_dll_error_string (int errcode)
|
OMPI_DECLSPEC char * mqs_dll_error_string (int errcode)
|
||||||
{
|
{
|
||||||
switch (errcode) {
|
switch (errcode) {
|
||||||
case err_silent_failure:
|
case err_silent_failure:
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user