diff --git a/ompi/debuggers/ompi_dll.c b/ompi/debuggers/ompi_dll.c index ad4270f7b9..87a5f89f3a 100644 --- a/ompi/debuggers/ompi_dll.c +++ b/ompi/debuggers/ompi_dll.c @@ -113,7 +113,7 @@ static const mqs_basic_callbacks *mqs_basic_entrypoints; 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; @@ -152,19 +152,19 @@ void mqs_setup_basic_callbacks (const mqs_basic_callbacks * cb) /* Version handling functions. * This one should never be changed. */ -int mqs_version_compatibility (void) +OMPI_DECLSPEC int mqs_version_compatibility (void) { return MQS_INTERFACE_COMPATIBILITY; } /* mqs_version_compatibility */ /* 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__; } /* mqs_version_string */ /* 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); } /* 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 * 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)); @@ -382,7 +382,7 @@ int mqs_setup_image (mqs_image *image, const mqs_image_callbacks *icb) return concat (err_,field); \ } 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); 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 * 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 */ 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. */ -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); 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. */ -int mqs_update_communicator_list (mqs_process *proc) +OMPI_DECLSPEC int mqs_update_communicator_list (mqs_process *proc) { if (communicators_changed (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 * 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); @@ -881,7 +881,7 @@ int mqs_setup_communicator_iterator (mqs_process *proc) /*********************************************************************** * 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); @@ -896,7 +896,7 @@ int mqs_get_communicator (mqs_process *proc, mqs_communicator *comm) /*********************************************************************** * 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); 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. */ -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); @@ -1362,7 +1362,7 @@ static int fetch_send (mqs_process *proc, mpi_process_info *p_info, /*********************************************************************** * 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); @@ -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 * 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); @@ -1410,7 +1410,7 @@ int mqs_next_operation (mqs_process *proc, mqs_pending_operation *op) /*********************************************************************** * 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; /* 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 * 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_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 */ -char * mqs_dll_error_string (int errcode) +OMPI_DECLSPEC char * mqs_dll_error_string (int errcode) { switch (errcode) { case err_silent_failure: