1
1

- export symbols that are needed by the fortran libs

This commit was SVN r14527.
Этот коммит содержится в:
Sven Stork 2007-04-26 09:34:41 +00:00
родитель 6f9251ed39
Коммит fe3b08004e
4 изменённых файлов: 33 добавлений и 30 удалений

Просмотреть файл

@ -244,7 +244,7 @@ int ompi_attr_finalize(void);
* *
*/ */
int ompi_attr_create_keyval(ompi_attribute_type_t type, OMPI_DECLSPEC int ompi_attr_create_keyval(ompi_attribute_type_t type,
ompi_attribute_fn_ptr_union_t copy_attr_fn, ompi_attribute_fn_ptr_union_t copy_attr_fn,
ompi_attribute_fn_ptr_union_t delete_attr_fn, ompi_attribute_fn_ptr_union_t delete_attr_fn,
int *key, void *extra_state, int flags, int *key, void *extra_state, int flags,
@ -329,7 +329,7 @@ int ompi_attr_set_c(ompi_attribute_type_t type, void *object,
* So yes, this is more code, but it's clearer and less error-prone * So yes, this is more code, but it's clearer and less error-prone
* (read: better) this way. * (read: better) this way.
*/ */
int ompi_attr_set_fortran_mpi1(ompi_attribute_type_t type, void *object, OMPI_DECLSPEC int ompi_attr_set_fortran_mpi1(ompi_attribute_type_t type, void *object,
opal_hash_table_t **attr_hash, opal_hash_table_t **attr_hash,
int key, MPI_Fint attribute, int key, MPI_Fint attribute,
bool predefined, bool need_lock); bool predefined, bool need_lock);
@ -367,7 +367,7 @@ int ompi_attr_set_fortran_mpi1(ompi_attribute_type_t type, void *object,
* So yes, this is more code, but it's clearer and less error-prone * So yes, this is more code, but it's clearer and less error-prone
* (read: better) this way. * (read: better) this way.
*/ */
int ompi_attr_set_fortran_mpi2(ompi_attribute_type_t type, void *object, OMPI_DECLSPEC int ompi_attr_set_fortran_mpi2(ompi_attribute_type_t type, void *object,
opal_hash_table_t **attr_hash, opal_hash_table_t **attr_hash,
int key, MPI_Aint attribute, int key, MPI_Aint attribute,
bool predefined, bool need_lock); bool predefined, bool need_lock);
@ -421,7 +421,7 @@ int ompi_attr_get_c(opal_hash_table_t *attr_hash, int key,
* (read: better) this way. * (read: better) this way.
*/ */
int ompi_attr_get_fortran_mpi1(opal_hash_table_t *attr_hash, int key, OMPI_DECLSPEC int ompi_attr_get_fortran_mpi1(opal_hash_table_t *attr_hash, int key,
MPI_Fint *attribute, int *flag); MPI_Fint *attribute, int *flag);
@ -448,7 +448,7 @@ int ompi_attr_get_fortran_mpi1(opal_hash_table_t *attr_hash, int key,
* (read: better) this way. * (read: better) this way.
*/ */
int ompi_attr_get_fortran_mpi2(opal_hash_table_t *attr_hash, int key, OMPI_DECLSPEC int ompi_attr_get_fortran_mpi2(opal_hash_table_t *attr_hash, int key,
MPI_Aint *attribute, int *flag); MPI_Aint *attribute, int *flag);

Просмотреть файл

@ -266,7 +266,7 @@ struct ompi_request_t;
* If this function returns, it returns the err_code. Note that it * If this function returns, it returns the err_code. Note that it
* may not return (e.g., for MPI_ERRORS_ARE_FATAL). * may not return (e.g., for MPI_ERRORS_ARE_FATAL).
*/ */
int ompi_errhandler_invoke(ompi_errhandler_t *errhandler, void *mpi_object, OMPI_DECLSPEC int ompi_errhandler_invoke(ompi_errhandler_t *errhandler, void *mpi_object,
int type, int err_code, const char *message); int type, int err_code, const char *message);

Просмотреть файл

@ -19,25 +19,26 @@
#ifndef OMPI_ERRHANDLER_PREDEFINED_H #ifndef OMPI_ERRHANDLER_PREDEFINED_H
#define OMPI_ERRHANDLER_PREDEFINED_H #define OMPI_ERRHANDLER_PREDEFINED_H
#include "ompi_config.h"
/** /**
* Handler function for MPI_ERRORS_ARE_FATAL * Handler function for MPI_ERRORS_ARE_FATAL
*/ */
void ompi_mpi_errors_are_fatal_comm_handler(struct ompi_communicator_t **comm, OMPI_DECLSPEC void ompi_mpi_errors_are_fatal_comm_handler(struct ompi_communicator_t **comm,
int *error_code, ...); int *error_code, ...);
void ompi_mpi_errors_are_fatal_file_handler(struct ompi_file_t **file, OMPI_DECLSPEC void ompi_mpi_errors_are_fatal_file_handler(struct ompi_file_t **file,
int *error_code, ...); int *error_code, ...);
void ompi_mpi_errors_are_fatal_win_handler(struct ompi_win_t **win, OMPI_DECLSPEC void ompi_mpi_errors_are_fatal_win_handler(struct ompi_win_t **win,
int *error_code, ...); int *error_code, ...);
/** /**
* Handler function for MPI_ERRORS_RETURN * Handler function for MPI_ERRORS_RETURN
*/ */
void ompi_mpi_errors_return_comm_handler(struct ompi_communicator_t **comm, OMPI_DECLSPEC void ompi_mpi_errors_return_comm_handler(struct ompi_communicator_t **comm,
int *error_code, ...); int *error_code, ...);
void ompi_mpi_errors_return_file_handler(struct ompi_file_t **file, OMPI_DECLSPEC void ompi_mpi_errors_return_file_handler(struct ompi_file_t **file,
int *error_code, ...); int *error_code, ...);
void ompi_mpi_errors_return_win_handler(struct ompi_win_t **win, OMPI_DECLSPEC void ompi_mpi_errors_return_win_handler(struct ompi_win_t **win,
int *error_code, ...); int *error_code, ...);

Просмотреть файл

@ -19,6 +19,8 @@
#ifndef OMPI_F77_STRINGS_H #ifndef OMPI_F77_STRINGS_H
#define OMPI_F77_STRINGS_H #define OMPI_F77_STRINGS_H
#include "ompi_config.h"
#if defined(c_plusplus) || defined(__cplusplus) #if defined(c_plusplus) || defined(__cplusplus)
extern "C" { extern "C" {
#endif #endif
@ -38,7 +40,7 @@ extern "C" {
* assign it to the cstr to return. The caller is responsible for * assign it to the cstr to return. The caller is responsible for
* eventually freeing the C string. * eventually freeing the C string.
*/ */
int ompi_fortran_string_f2c(char *fstr, int len, char **cstr); OMPI_DECLSPEC int ompi_fortran_string_f2c(char *fstr, int len, char **cstr);
/** /**
* Convert a C string to a fortran string. * Convert a C string to a fortran string.
@ -54,7 +56,7 @@ extern "C" {
* convert C strings to fortran strings. It is assumed that the * convert C strings to fortran strings. It is assumed that the
* fortran string is already allocated and has a length of len. * fortran string is already allocated and has a length of len.
*/ */
int ompi_fortran_string_c2f(char *cstr, char *fstr, int len); OMPI_DECLSPEC int ompi_fortran_string_c2f(char *cstr, char *fstr, int len);
/** /**
* Convert an array of Fortran strings to an argv-style array of C * Convert an array of Fortran strings to an argv-style array of C
@ -73,7 +75,7 @@ extern "C" {
* the caller's responsibility to invoke opal_argv_free() to free * the caller's responsibility to invoke opal_argv_free() to free
* it later (or equivalent). * it later (or equivalent).
*/ */
int ompi_fortran_argv_f2c(char *farray, int len, char ***cargv); OMPI_DECLSPEC int ompi_fortran_argv_f2c(char *farray, int len, char ***cargv);
/** /**
* Convert an array of argvs to a C style array of argvs * Convert an array of argvs to a C style array of argvs
@ -89,7 +91,7 @@ extern "C" {
* each content of argv array and call free to deallocate the argv * each content of argv array and call free to deallocate the argv
* array itself * array itself
*/ */
int ompi_fortran_multiple_argvs_f2c(int count, char *array, int len, OMPI_DECLSPEC int ompi_fortran_multiple_argvs_f2c(int count, char *array, int len,
char ****argv); char ****argv);
#if defined(c_plusplus) || defined(__cplusplus) #if defined(c_plusplus) || defined(__cplusplus)