- fix a few function export declarations.
This commit was SVN r15813.
Этот коммит содержится в:
Shiqing Fan
родитель
eea712f9ab
Коммит
7dc5dbd8ea
@ -458,19 +458,19 @@ typedef struct mqs_process_callbacks
|
||||
* not be messed with, or deallocated by the DLL). This applies to
|
||||
* all of the callback tables.
|
||||
*/
|
||||
extern void mqs_setup_basic_callbacks (const mqs_basic_callbacks *);
|
||||
OMPI_DECLSPEC extern void mqs_setup_basic_callbacks (const mqs_basic_callbacks *);
|
||||
|
||||
/* Version handling */
|
||||
extern char *mqs_version_string (void);
|
||||
extern int mqs_version_compatibility(void);
|
||||
OMPI_DECLSPEC extern char *mqs_version_string (void);
|
||||
OMPI_DECLSPEC extern int mqs_version_compatibility(void);
|
||||
/* This gives the width which has been compiled into the DLL, it is
|
||||
* _not_ the width of a specific process, which could be smaller than
|
||||
* this.
|
||||
*/
|
||||
extern int mqs_dll_taddr_width(void);
|
||||
OMPI_DECLSPEC extern int mqs_dll_taddr_width(void);
|
||||
|
||||
/* Provide a text string for an error value */
|
||||
extern char * mqs_dll_error_string (int);
|
||||
OMPI_DECLSPEC extern char * mqs_dll_error_string (int);
|
||||
|
||||
/***********************************************************************
|
||||
* Calls related to an executable image.
|
||||
@ -489,7 +489,7 @@ extern char * mqs_dll_error_string (int);
|
||||
* This will be called once for each executable image in the parallel
|
||||
* program.
|
||||
*/
|
||||
extern int mqs_setup_image (mqs_image *, const mqs_image_callbacks *);
|
||||
OMPI_DECLSPEC extern int mqs_setup_image (mqs_image *, const mqs_image_callbacks *);
|
||||
|
||||
/* Does this image have the necessary symbols to allow access to the message
|
||||
* queues ?
|
||||
@ -505,12 +505,12 @@ extern int mqs_setup_image (mqs_image *, const mqs_image_callbacks *);
|
||||
* disable things, or loudly enable them).
|
||||
*/
|
||||
|
||||
extern int mqs_image_has_queues (mqs_image *, char **);
|
||||
OMPI_DECLSPEC extern int mqs_image_has_queues (mqs_image *, char **);
|
||||
|
||||
/* This will be called by the debugger to let you tidy up whatever is
|
||||
* required when the mqs_image_info is no longer needed.
|
||||
*/
|
||||
extern void mqs_destroy_image_info (mqs_image_info *);
|
||||
OMPI_DECLSPEC extern void mqs_destroy_image_info (mqs_image_info *);
|
||||
|
||||
#if (FOR_MPI2)
|
||||
/***********************************************************************
|
||||
@ -534,8 +534,8 @@ extern int mqs_destroy_job_info (mqs_job_info *);
|
||||
* rather than in the image information if anything is a dynamic library
|
||||
* which could end up mapped differently in different processes.
|
||||
*/
|
||||
extern int mqs_setup_process (mqs_process *, const mqs_process_callbacks *);
|
||||
extern void mqs_destroy_process_info (mqs_process_info *);
|
||||
OMPI_DECLSPEC extern int mqs_setup_process (mqs_process *, const mqs_process_callbacks *);
|
||||
OMPI_DECLSPEC extern void mqs_destroy_process_info (mqs_process_info *);
|
||||
|
||||
/* Like the mqs_has_message_queues function, but will only be called
|
||||
* if the image claims to have message queues. This lets you actually
|
||||
@ -568,13 +568,13 @@ extern int mqs_process_has_queues (mqs_process *, char **);
|
||||
/* Check that the DLL's model of the communicators in the process is
|
||||
* up to date, ideally by checking the sequence number.
|
||||
*/
|
||||
extern int mqs_update_communicator_list (mqs_process *);
|
||||
OMPI_DECLSPEC extern int mqs_update_communicator_list (mqs_process *);
|
||||
|
||||
/* Prepare to iterate over all of the communicators in the process. */
|
||||
extern int mqs_setup_communicator_iterator (mqs_process *);
|
||||
OMPI_DECLSPEC extern int mqs_setup_communicator_iterator (mqs_process *);
|
||||
|
||||
/* Extract information about the current communicator */
|
||||
extern int mqs_get_communicator (mqs_process *, mqs_communicator *);
|
||||
OMPI_DECLSPEC extern int mqs_get_communicator (mqs_process *, mqs_communicator *);
|
||||
|
||||
/* Extract the group from the current communicator.
|
||||
* The debugger already knows comm_size, so can allocate a
|
||||
@ -582,22 +582,22 @@ extern int mqs_get_communicator (mqs_process *, mqs_communicator *);
|
||||
* rank in COMM_WORLD of the index'th element in the current
|
||||
* communicator.
|
||||
*/
|
||||
extern int mqs_get_comm_group (mqs_process *, int *);
|
||||
OMPI_DECLSPEC extern int mqs_get_comm_group (mqs_process *, int *);
|
||||
|
||||
/* Move on to the next communicator in this process. */
|
||||
extern int mqs_next_communicator (mqs_process *);
|
||||
OMPI_DECLSPEC extern int mqs_next_communicator (mqs_process *);
|
||||
|
||||
/* Prepare to iterate over the pending operations in the currently
|
||||
* active communicator in this process.
|
||||
*
|
||||
* The int is *really* mqs_op_class
|
||||
*/
|
||||
extern int mqs_setup_operation_iterator (mqs_process *, int);
|
||||
OMPI_DECLSPEC extern int mqs_setup_operation_iterator (mqs_process *, int);
|
||||
|
||||
/* Return information about the next appropriate pending operation in
|
||||
* the current communicator, mqs_false when we've seen them all.
|
||||
*/
|
||||
extern int mqs_next_operation (mqs_process *, mqs_pending_operation *);
|
||||
OMPI_DECLSPEC extern int mqs_next_operation (mqs_process *, mqs_pending_operation *);
|
||||
|
||||
#if (FOR_MPI2)
|
||||
/* Information about newly created (or connected to) processes.
|
||||
|
||||
@ -103,7 +103,7 @@
|
||||
static const mqs_basic_callbacks *mqs_basic_entrypoints;
|
||||
static int host_is_big_endian;
|
||||
|
||||
OMPI_DECLSPEC void mqs_setup_basic_callbacks (const mqs_basic_callbacks * cb)
|
||||
void mqs_setup_basic_callbacks (const mqs_basic_callbacks * cb)
|
||||
{
|
||||
int t = 1;
|
||||
|
||||
@ -142,19 +142,19 @@ OMPI_DECLSPEC void mqs_setup_basic_callbacks (const mqs_basic_callbacks * cb)
|
||||
/* Version handling functions.
|
||||
* This one should never be changed.
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_version_compatibility (void)
|
||||
int mqs_version_compatibility (void)
|
||||
{
|
||||
return MQS_INTERFACE_COMPATIBILITY;
|
||||
} /* mqs_version_compatibility */
|
||||
|
||||
/* This one can say what you like */
|
||||
OMPI_DECLSPEC char *mqs_version_string (void)
|
||||
char *mqs_version_string (void)
|
||||
{
|
||||
return "Open MPI message queue support for parallel debuggers compiled on " __DATE__;
|
||||
} /* mqs_version_string */
|
||||
|
||||
/* So the debugger can tell what interface width the library was compiled with */
|
||||
OMPI_DECLSPEC int mqs_dll_taddr_width (void)
|
||||
int mqs_dll_taddr_width (void)
|
||||
{
|
||||
return sizeof (mqs_taddr_t);
|
||||
} /* mqs_dll_taddr_width */
|
||||
@ -343,7 +343,7 @@ static void group_decref (group_t * group)
|
||||
* Perform basic setup for the image, we just allocate and clear
|
||||
* our info.
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_setup_image (mqs_image *image, const mqs_image_callbacks *icb)
|
||||
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));
|
||||
|
||||
@ -364,7 +364,7 @@ OMPI_DECLSPEC int mqs_setup_image (mqs_image *image, const mqs_image_callbacks *
|
||||
* Stash it into our structure on the image if we're succesful.
|
||||
*/
|
||||
|
||||
OMPI_DECLSPEC int mqs_image_has_queues (mqs_image *image, char **message)
|
||||
int mqs_image_has_queues (mqs_image *image, char **message)
|
||||
{
|
||||
mpi_image_info * i_info = (mpi_image_info *)mqs_get_image_info (image);
|
||||
char* missing_in_action;
|
||||
@ -610,7 +610,7 @@ OMPI_DECLSPEC int mqs_image_has_queues (mqs_image *image, char **message)
|
||||
* if nothing is attached to it, then TV will believe that this process
|
||||
* has no message queue information.
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_setup_process (mqs_process *process, const mqs_process_callbacks *pcb)
|
||||
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 */
|
||||
mpi_process_info *p_info = (mpi_process_info *)mqs_malloc (sizeof (mpi_process_info));
|
||||
@ -834,7 +834,7 @@ static int rebuild_communicator_list (mqs_process *proc)
|
||||
/***********************************************************************
|
||||
* Update the list of communicators in the process if it has changed.
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_update_communicator_list (mqs_process *proc)
|
||||
int mqs_update_communicator_list (mqs_process *proc)
|
||||
{
|
||||
if (communicators_changed (proc))
|
||||
return rebuild_communicator_list (proc);
|
||||
@ -847,7 +847,7 @@ OMPI_DECLSPEC int mqs_update_communicator_list (mqs_process *proc)
|
||||
* This is where we check whether our internal communicator list needs
|
||||
* updating and if so do it.
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_setup_communicator_iterator (mqs_process *proc)
|
||||
int mqs_setup_communicator_iterator (mqs_process *proc)
|
||||
{
|
||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||
|
||||
@ -864,7 +864,7 @@ OMPI_DECLSPEC int mqs_setup_communicator_iterator (mqs_process *proc)
|
||||
/***********************************************************************
|
||||
* Fetch information about the current communicator.
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_get_communicator (mqs_process *proc, mqs_communicator *comm)
|
||||
int mqs_get_communicator (mqs_process *proc, mqs_communicator *comm)
|
||||
{
|
||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||
|
||||
@ -879,7 +879,7 @@ OMPI_DECLSPEC int mqs_get_communicator (mqs_process *proc, mqs_communicator *com
|
||||
/***********************************************************************
|
||||
* Get the group information about the current communicator.
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_get_comm_group (mqs_process *proc, int *group_members)
|
||||
int mqs_get_comm_group (mqs_process *proc, int *group_members)
|
||||
{
|
||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||
communicator_t *comm = p_info->current_communicator;
|
||||
@ -899,7 +899,7 @@ OMPI_DECLSPEC int mqs_get_comm_group (mqs_process *proc, int *group_members)
|
||||
/***********************************************************************
|
||||
* Step to the next communicator.
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_next_communicator (mqs_process *proc)
|
||||
int mqs_next_communicator (mqs_process *proc)
|
||||
{
|
||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||
|
||||
@ -1347,7 +1347,7 @@ static int fetch_send (mqs_process *proc, mpi_process_info *p_info,
|
||||
/***********************************************************************
|
||||
* Setup to iterate over pending operations
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_setup_operation_iterator (mqs_process *proc, int op)
|
||||
int mqs_setup_operation_iterator (mqs_process *proc, int op)
|
||||
{
|
||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||
|
||||
@ -1376,7 +1376,7 @@ OMPI_DECLSPEC int mqs_setup_operation_iterator (mqs_process *proc, int op)
|
||||
* we have to run over it and filter out the operations which
|
||||
* match the active communicator.
|
||||
*/
|
||||
OMPI_DECLSPEC int mqs_next_operation (mqs_process *proc, mqs_pending_operation *op)
|
||||
int mqs_next_operation (mqs_process *proc, mqs_pending_operation *op)
|
||||
{
|
||||
mpi_process_info *p_info = (mpi_process_info *)mqs_get_process_info (proc);
|
||||
|
||||
@ -1395,7 +1395,7 @@ OMPI_DECLSPEC int mqs_next_operation (mqs_process *proc, mqs_pending_operation *
|
||||
/***********************************************************************
|
||||
* Destroy the info.
|
||||
*/
|
||||
OMPI_DECLSPEC void mqs_destroy_process_info (mqs_process_info *mp_info)
|
||||
void mqs_destroy_process_info (mqs_process_info *mp_info)
|
||||
{
|
||||
mpi_process_info *p_info = (mpi_process_info *)mp_info;
|
||||
/* Need to handle the communicators and groups too */
|
||||
@ -1417,7 +1417,7 @@ OMPI_DECLSPEC void mqs_destroy_process_info (mqs_process_info *mp_info)
|
||||
* Free off the data we associated with an image. Since we malloced it
|
||||
* we just free it.
|
||||
*/
|
||||
OMPI_DECLSPEC void mqs_destroy_image_info (mqs_image_info *info)
|
||||
void mqs_destroy_image_info (mqs_image_info *info)
|
||||
{
|
||||
mqs_free (info);
|
||||
} /* mqs_destroy_image_info */
|
||||
@ -1467,7 +1467,7 @@ static mqs_tword_t fetch_bool(mqs_process * proc, mqs_taddr_t addr, mpi_process_
|
||||
|
||||
/***********************************************************************/
|
||||
/* Convert an error code into a printable string */
|
||||
OMPI_DECLSPEC char * mqs_dll_error_string (int errcode)
|
||||
char * mqs_dll_error_string (int errcode)
|
||||
{
|
||||
switch (errcode) {
|
||||
case err_silent_failure:
|
||||
|
||||
Загрузка…
x
Ссылка в новой задаче
Block a user