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

61 строка
1.4 KiB
C
Исходник Обычный вид История

Adding new functions: Letter I This commit was SVN r540.
2004-01-26 01:07:54 +03:00
/*
First cut at copyrights: IU, UTK, and some OSU. LANL and HLRS still pending. This commit was SVN r3655.
2004-11-22 04:38:40 +03:00
* Copyright (c) 2004-2005 The Trustees of Indiana University.
* All rights reserved.
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
Adding new functions: Letter I This commit was SVN r540.
2004-01-26 01:07:54 +03:00
* $HEADER$
*/
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
#include "ompi_config.h"
Adding new functions: Letter I This commit was SVN r540.
2004-01-26 01:07:54 +03:00
#include "mpi.h"
Updating header file names after the great directory reorganization. This commit was SVN r877.
2004-03-17 21:45:16 +03:00
#include "mpi/c/bindings.h"
Convert all ompi_bitmap_t and ompi_pointer_array_t indexing from size_t to int. This is in recognition of the fact that these two classes are primarily used for fortran<-->c convertsion of various entities (attributes, MPI objects), and MPI defines that an int must be used to hold MPI fortran handles. Hence, why use size_t internally? See the comment in src/class/ompi_pointer_array.h for a better description. Mixed in a few attribute fixes in this commit as well. This commit, therefore: - converts the indexing from size_t to int - changes all locations in the code that I could find that used size_t as the interface to ompi_bitmap_t or ompi_pointer_array_t - convert to use OMPI_FINT_2_INT / OMPI_INT_2_FINT macros in various src/mpi/c/*f2c.c and src/mpi/c/*c2f.c files - check the return code of ompi_comm_free() to ensure that everything worked properly before returning MPI_SUCCESS - unified all src/mpi/c/*f2c.c functions (i.e., they all do the same thing) - tie up some loose ends w.r.t. MPI_Request handling in fortran; set the req_f_to_c_index to MPI_UNDEFINED when it does not have a fortran index - still need to add a configure test to find OMPI_FORTRAN_HANDLE_MAX for ompi_bitmap.c and ompi_pointer_array.c (hard-wired to INT_MAX right now) - re-organized, consolidated, and unified some ompi_pointer_array.c code -- fixed a few minor bugs w.r.t. lowest_free (could have left some unintentional holes in the array) This commit was SVN r3302.
2004-10-23 23:24:00 +04:00
#include "mpi/f77/fint_2_int.h"
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
#include "class/ompi_list.h"
Updating header file names after the great directory reorganization. This commit was SVN r877.
2004-03-17 21:45:16 +03:00
#include "info/info.h"
Changing the MPI_Info and lam_info functions to incorporate both error handlers and the fortran to C translation table This commit was SVN r1057.
2004-04-21 02:13:39 +04:00
#include "errhandler/errhandler.h"
#include "communicator/communicator.h"
Adding new functions: Letter I This commit was SVN r540.
2004-01-26 01:07:54 +03:00
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
Adding new functions: Letter I This commit was SVN r540.
2004-01-26 01:07:54 +03:00
#pragma weak MPI_Info_f2c = PMPI_Info_f2c
#endif
First pass of lam -> ompi conversion This commit was SVN r1191.
2004-06-07 19:33:53 +04:00
#if OMPI_PROFILING_DEFINES
Changing the bindings files to have the #define of MPI_ functions to PMPI_ functions after the #pragma weak statement This commit was SVN r1055.
2004-04-20 22:50:43 +04:00
#include "mpi/c/profile/defines.h"
#endif
Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817.
2004-07-30 06:58:53 +04:00
static const char FUNC_NAME[] = "MPI_Info_f2c";
Adding a few comments and description to the info* functions This commit was SVN r637.
2004-02-02 01:28:20 +03:00
/**
* Converts the MPI_Fint info into a valid C MPI_Info handle
*
* @param info Integer handle to an MPI_INFO object
Revamp MPI_Info handling a bit: - fix a few bugs - convert/add doxygen comments for internal info functions in src/info/info.h (some comments were originally in src/info/info.c) - make it thread safe - make MPI_INFO_NULL be a real object (vs ((struct ompi_info_t*) 0)) - add error checking into top-level MPI functions - add support in MPI_Info for "never freeing MPI handles" as a form of debugging i.e., check if see if you accidentally use a freed handle) - add support for "print out a list of un-freed MPI_Info handles during MPI_FINALIZE" This commit was SVN r2089.
2004-08-12 20:56:24 +04:00
* @retval C handle corresponding to MPI_INFO object
Adding a few comments and description to the info* functions This commit was SVN r637.
2004-02-02 01:28:20 +03:00
*/
Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817.
2004-07-30 06:58:53 +04:00
MPI_Info MPI_Info_f2c(MPI_Fint info)
{
Convert all ompi_bitmap_t and ompi_pointer_array_t indexing from size_t to int. This is in recognition of the fact that these two classes are primarily used for fortran<-->c convertsion of various entities (attributes, MPI objects), and MPI defines that an int must be used to hold MPI fortran handles. Hence, why use size_t internally? See the comment in src/class/ompi_pointer_array.h for a better description. Mixed in a few attribute fixes in this commit as well. This commit, therefore: - converts the indexing from size_t to int - changes all locations in the code that I could find that used size_t as the interface to ompi_bitmap_t or ompi_pointer_array_t - convert to use OMPI_FINT_2_INT / OMPI_INT_2_FINT macros in various src/mpi/c/*f2c.c and src/mpi/c/*c2f.c files - check the return code of ompi_comm_free() to ensure that everything worked properly before returning MPI_SUCCESS - unified all src/mpi/c/*f2c.c functions (i.e., they all do the same thing) - tie up some loose ends w.r.t. MPI_Request handling in fortran; set the req_f_to_c_index to MPI_UNDEFINED when it does not have a fortran index - still need to add a configure test to find OMPI_FORTRAN_HANDLE_MAX for ompi_bitmap.c and ompi_pointer_array.c (hard-wired to INT_MAX right now) - re-organized, consolidated, and unified some ompi_pointer_array.c code -- fixed a few minor bugs w.r.t. lowest_free (could have left some unintentional holes in the array) This commit was SVN r3302.
2004-10-23 23:24:00 +04:00
int info_index = OMPI_FINT_2_INT(info);
Committing several things under one commit, but they're all at least somewhat tied together and I'd rather have a consistent commit rather than several smaller commits that individually break the tree: - first cut of src/file/file.c: MPI_File handling. More to come here. - tweaked MPI_Info handling a bit: cause MPI_Info_f2c to invoke error handler if provided index is out of range (vs. returing MPI_INFO_NULL without invoking an error handler) - moved general MPI MCA params off into their own .h and .c file (so that ompi_info can call it and therefore display MPI MCA params) - first [abbreviated] cut of src/mca/io/base/* -- much more to come here; stripped down to basics for this commit - filled in a small number of MPI_File* functions for testing purposes - updated a bunch of doxygen docs --> Unresolved questions about MPI_ERRORS_RETURN, MPI_ERRORS_ABORT, and MPI::ERRORS_THROW_EXCEPTIONS because of vagueness in MPI standard -- Edgar and I are discussing what to do here --> Unresolved questions about what to do in a case like this: MPI_File_open(..., &file); MPI_File_close(&file); MPI_File_read(..., &file); because MPI-2:9.7 says that the default error handler on MPI_File handles is MPI_ERRORS_RETURN -- we can't even print a warning here! This certainly violates the Law of Least Astonishment for MPI users (who certainly expect MPI functions that fail to complain loudly and to abort by default). This commit was SVN r2136.
2004-08-14 05:56:05 +04:00
Changing the MPI_Info and lam_info functions to incorporate both error handlers and the fortran to C translation table This commit was SVN r1057.
2004-04-21 02:13:39 +04:00
/* check the arguments */
Committing several things under one commit, but they're all at least somewhat tied together and I'd rather have a consistent commit rather than several smaller commits that individually break the tree: - first cut of src/file/file.c: MPI_File handling. More to come here. - tweaked MPI_Info handling a bit: cause MPI_Info_f2c to invoke error handler if provided index is out of range (vs. returing MPI_INFO_NULL without invoking an error handler) - moved general MPI MCA params off into their own .h and .c file (so that ompi_info can call it and therefore display MPI MCA params) - first [abbreviated] cut of src/mca/io/base/* -- much more to come here; stripped down to basics for this commit - filled in a small number of MPI_File* functions for testing purposes - updated a bunch of doxygen docs --> Unresolved questions about MPI_ERRORS_RETURN, MPI_ERRORS_ABORT, and MPI::ERRORS_THROW_EXCEPTIONS because of vagueness in MPI standard -- Edgar and I are discussing what to do here --> Unresolved questions about what to do in a case like this: MPI_File_open(..., &file); MPI_File_close(&file); MPI_File_read(..., &file); because MPI-2:9.7 says that the default error handler on MPI_File handles is MPI_ERRORS_RETURN -- we can't even print a warning here! This certainly violates the Law of Least Astonishment for MPI users (who certainly expect MPI functions that fail to complain loudly and to abort by default). This commit was SVN r2136.
2004-08-14 05:56:05 +04:00
Changing the MPI_Info and lam_info functions to incorporate both error handlers and the fortran to C translation table This commit was SVN r1057.
2004-04-21 02:13:39 +04:00
if (MPI_PARAM_CHECK) {
Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817.
2004-07-30 06:58:53 +04:00
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
Changing the MPI_Info and lam_info functions to incorporate both error handlers and the fortran to C translation table This commit was SVN r1057.
2004-04-21 02:13:39 +04:00
}
Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817.
2004-07-30 06:58:53 +04:00
After consulting with Edgar and MPI-2:4.12.4, decide the following: - the f2c functions should return the corresponding *_NULL functions and not invoke an MPI exception if an invalid fortran handle is passed - the error check should be outside MPI_PARAM_CHECK -- MPI defines the behavior of when an invalid fortran handle is passed; it is not dependant upon whether we are checking parameters or not This commit was SVN r2140.
2004-08-14 16:28:25 +04:00
/* Per MPI-2:4.12.4, do not invoke an error handler if we get an
invalid fortran handle */
if (info_index < 0 ||
info_index >=
ompi_pointer_array_get_size(&ompi_info_f_to_c_table)) {
return MPI_INFO_NULL;
}
Change all f2c() functions to use the safe ompi_pointer_array_get_item() function instead of accessing the array directly. This is because accessing the array directly in multi-threaded situations is unsafe (someone else may be writing to the array, the array may get moved out from under you via realloc(), etc.). This commit was SVN r2634.
2004-09-13 22:14:03 +04:00
return ompi_pointer_array_get_item(&ompi_info_f_to_c_table, info_index);
Adding new functions: Letter I This commit was SVN r540.
2004-01-26 01:07:54 +03:00
}
Копировать постоянную ссылку