|
137 | 137 | /* Whether we have FORTRAN REAL*8 or not */
|
138 | 138 | #undef OMPI_HAVE_FORTRAN_REAL8
|
139 | 139 |
|
140 |
| -/* Whether in include MPI-1 compatibility */ |
141 |
| -#undef OMPI_ENABLE_MPI1_COMPAT |
142 |
| - |
143 | 140 | /* Whether we have float _Complex or not */
|
144 | 141 | #undef HAVE_FLOAT__COMPLEX
|
145 | 142 |
|
|
280 | 277 | # define __mpi_interface_deprecated__(msg) __attribute__((__deprecated__))
|
281 | 278 | # endif
|
282 | 279 | # endif
|
283 |
| -# endif |
284 |
| - |
285 |
| - /* For removed API, there is no portable way to cause the |
286 |
| - * C compiler to error with a nice message on the usage of |
287 |
| - * one of these symbols, so instead we use a C11 static_assert |
288 |
| - * If the user is not using a C11 compiler, they will get an |
289 |
| - * undefined reference, but no line number or nice message. |
290 |
| - */ |
291 |
| -# if (OMPI_ENABLE_MPI1_COMPAT || OMPI_BUILDING) |
292 |
| -# define OMPI_OMIT_MPI1_COMPAT_DECLS 0 |
293 |
| -# define MPI_INTERFACE_REMOVED(func, newfunc, ...) func(__VA_ARGS) __mpi_interface_deprecated__((#func " was removed in MPI-3.0. Use " #newfunc " instead. continuing...")) |
294 |
| -# else |
295 |
| -# if (__STDC_VERSION__ >= 201112L) |
296 |
| -# define MPI_INTERFACE_REMOVED(func, newfunc, ...) _Static_assert(0, #func " was removed in MPI-3.0. Use " #newfunc " instead.") |
297 |
| -# define OMPI_OMIT_MPI1_COMPAT_DECLS 0 |
298 |
| -# else |
299 |
| -# if OPAL_HAVE_ATTRIBUTE_ERROR |
300 |
| -# define MPI_INTERFACE_REMOVED(func, newfunc, ...) func(__VA_ARGS) __attribute__((__error__(#func " was removed in MPI-3.0. Use " #newfunc " instead."))) |
301 |
| -# define OMPI_OMIT_MPI1_COMPAT_DECLS 0 |
302 |
| -# else |
303 |
| -# define MPI_INTERFACE_REMOVED(func, newfunc, ...) func(__VA_ARGS) |
304 |
| -# define OMPI_OMIT_MPI1_COMPAT_DECLS 1 |
305 |
| -# endif |
306 |
| -# endif |
307 | 280 | # endif
|
308 | 281 | # endif
|
309 |
| -#endif |
310 | 282 |
|
311 | 283 | /*
|
312 | 284 | * If we didn't define __mpi_interface_deprecated__ above, then we
|
|
317 | 289 | # define __mpi_interface_deprecated__(msg)
|
318 | 290 | #endif
|
319 | 291 |
|
320 |
| -#if !defined(__mpi_interface_removed__) |
321 |
| -# define __mpi_interface_removed__(msg) |
322 |
| -#endif |
323 |
| - |
324 |
| -#if !defined(OMPI_OMIT_MPI1_COMPAT_DECLS) |
325 |
| -# define OMPI_OMIT_MPI1_COMPAT_DECLS !OMPI_ENABLE_MPI1_COMPAT |
326 |
| -#endif |
327 |
| - |
328 | 292 | /*
|
329 | 293 | * To accomodate programs written for MPI implementations that use a
|
330 | 294 | * straight ROMIO import
|
@@ -1025,23 +989,6 @@ OMPI_DECLSPEC extern struct ompi_predefined_info_t ompi_mpi_info_env;
|
1025 | 989 | OMPI_DECLSPEC extern MPI_Fint *MPI_F_STATUS_IGNORE;
|
1026 | 990 | OMPI_DECLSPEC extern MPI_Fint *MPI_F_STATUSES_IGNORE;
|
1027 | 991 |
|
1028 |
| -#if !OMPI_OMIT_MPI1_COMPAT_DECLS |
1029 |
| -/* |
1030 |
| - * Removed datatypes. These datatypes are only available if Open MPI |
1031 |
| - * was configured with --enable-mpi1-compatibility. |
1032 |
| - * |
1033 |
| - * These datatypes were formally removed from the MPI specification |
1034 |
| - * and should no longer be used in MPI applications. |
1035 |
| - */ |
1036 |
| -#define MPI_UB OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_ub) |
1037 |
| -#define MPI_LB OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_lb) |
1038 |
| - |
1039 |
| -OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_lb |
1040 |
| - __mpi_interface_removed__("MPI_LB was removed in MPI-3.0; use MPI_Type_create_resized instead."); |
1041 |
| -OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_ub |
1042 |
| - __mpi_interface_removed__("MPI_UB was removed in MPI-3.0; use MPI_Type_create_resized instead."); |
1043 |
| -#endif /* !OMPI_OMIT_MPI1_COMPAT_DECLS */ |
1044 |
| - |
1045 | 992 | /*
|
1046 | 993 | * MPI predefined handles
|
1047 | 994 | */
|
@@ -2692,85 +2639,6 @@ OMPI_DECLSPEC int OMPI_C_MPI_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
|
2692 | 2639 | void* extra_state )
|
2693 | 2640 | __mpi_interface_deprecated__("MPI_NULL_DELETE_FN was deprecated in MPI-2.0; use MPI_COMM_NULL_DELETE_FN instead.");
|
2694 | 2641 |
|
2695 |
| -#if !OMPI_OMIT_MPI1_COMPAT_DECLS |
2696 |
| -/* |
2697 |
| - * Removed typedefs. These typedefs are only available if Open MPI |
2698 |
| - * was configured with --enable-mpi1-compatibility. |
2699 |
| - * |
2700 |
| - * These typedefs were formally removed from the MPI specification |
2701 |
| - * and should no longer be used in MPI applications. |
2702 |
| - * |
2703 |
| - * Even though MPI_Handler_function is removed, we do not use the |
2704 |
| - * attributes marking it as such, because otherwise the compiler |
2705 |
| - * will warn for all the functions that are declared using them |
2706 |
| - * (e.g., MPI_Errhandler_create). |
2707 |
| - */ |
2708 |
| -typedef void (MPI_Handler_function)(MPI_Comm *, int *, ...); |
2709 |
| -/* MPI_Handler_function was removed in MPI-3.0; use MPI_Comm_use_errhandler_function instead. */ |
2710 |
| - |
2711 |
| -/* |
2712 |
| - * Removed prototypes. These prototypes are only available if Open |
2713 |
| - * MPI was configured with --enable-mpi1-compatibility. |
2714 |
| - * |
2715 |
| - * These functions were formally removed from the MPI specification |
2716 |
| - * and should no longer be used in MPI applications. |
2717 |
| - */ |
2718 |
| -OMPI_DECLSPEC int MPI_Address(void *location, MPI_Aint *address); |
2719 |
| -#define MPI_Address(...) MPI_INTERFACE_REMOVED(MPI_Address, MPI_Get_address) |
2720 |
| -OMPI_DECLSPEC int PMPI_Address(void *location, MPI_Aint *address); |
2721 |
| -#define PMPI_Address(...) MPI_INTERFACE_REMOVED(PMPI_Address, PMPI_Get_address) |
2722 |
| -OMPI_DECLSPEC int MPI_Errhandler_create(MPI_Handler_function *function, |
2723 |
| - MPI_Errhandler *errhandler); |
2724 |
| -#define MPI_Errhandler_create MPI_INTERFACE_REMOVED(MPI_Errhandler_create, MPI_Comm_create_errhandler) |
2725 |
| -OMPI_DECLSPEC int PMPI_Errhandler_create(MPI_Handler_function *function, |
2726 |
| - MPI_Errhandler *errhandler); |
2727 |
| -#define PMPI_Errhandler_create MPI_INTERFACE_REMOVED(PMPI_Errhandler_create, PMPI_Comm_create_errhandler) |
2728 |
| -OMPI_DECLSPEC int MPI_Errhandler_get(MPI_Comm comm, MPI_Errhandler *errhandler); |
2729 |
| -#define MPI_Errhandler_get(...) MPI_INTERFACE_REMOVED(MPI_Errhandler_get, MPI_Comm_get_errhandler) |
2730 |
| -OMPI_DECLSPEC int PMPI_Errhandler_get(MPI_Comm comm, MPI_Errhandler *errhandler); |
2731 |
| -#define PMPI_Errhandler_get(...) MPI_INTERFACE_REMOVED(PMPI_Errhandler_get, PMPI_Comm_get_errhandler) |
2732 |
| -OMPI_DECLSPEC int MPI_Errhandler_set(MPI_Comm comm, MPI_Errhandler errhandler); |
2733 |
| -#define MPI_Errhandler_set(...) MPI_INTERFACE_REMOVED(MPI_Errhandler_set, MPI_Comm_set_errhandler) |
2734 |
| -OMPI_DECLSPEC int PMPI_Errhandler_set(MPI_Comm comm, MPI_Errhandler errhandler); |
2735 |
| -#define PMPI_Errhandler_set(...) MPI_INTERFACE_REMOVED(PMPI_Errhandler_set, PMPI_Comm_set_errhandler) |
2736 |
| -OMPI_DECLSPEC int MPI_Type_extent(MPI_Datatype type, MPI_Aint *extent); |
2737 |
| -#define MPI_Type_extent(...) MPI_INTERFACE_REMOVED(MPI_Type_extent, MPI_Type_get_extent) |
2738 |
| -OMPI_DECLSPEC int PMPI_Type_extent(MPI_Datatype type, MPI_Aint *extent); |
2739 |
| -#define PMPI_Type_extent(...) MPI_INTERFACE_REMOVED(PMPI_Type_extent, PMPI_Type_get_extent) |
2740 |
| -OMPI_DECLSPEC int MPI_Type_hindexed(int count, int array_of_blocklengths[], |
2741 |
| - MPI_Aint array_of_displacements[], |
2742 |
| - MPI_Datatype oldtype, MPI_Datatype *newtype); |
2743 |
| -#define MPI_Type_hindexed(...) MPI_INTERFACE_REMOVED(MPI_Type_hindexed, MPI_Type_create_hindexed) |
2744 |
| -OMPI_DECLSPEC int PMPI_Type_hindexed(int count, int array_of_blocklengths[], |
2745 |
| - MPI_Aint array_of_displacements[], |
2746 |
| - MPI_Datatype oldtype, MPI_Datatype *newtype); |
2747 |
| -#define PMPI_Type_hindexed(...) MPI_INTERFACE_REMOVED(PMPI_Type_hindexed, PMPI_Type_create_hindexed) |
2748 |
| -OMPI_DECLSPEC int MPI_Type_hvector(int count, int blocklength, MPI_Aint stride, |
2749 |
| - MPI_Datatype oldtype, MPI_Datatype *newtype); |
2750 |
| -#define MPI_Type_hvector(...) MPI_INTERFACE_REMOVED(MPI_Type_hvector, MPI_Type_create_hvector) |
2751 |
| -OMPI_DECLSPEC int PMPI_Type_hvector(int count, int blocklength, MPI_Aint stride, |
2752 |
| - MPI_Datatype oldtype, MPI_Datatype *newtype); |
2753 |
| -#define PMPI_Type_hvector(...) MPI_INTERFACE_REMOVED(PMPI_Type_hvector, PMPI_Type_create_hvector) |
2754 |
| -OMPI_DECLSPEC int MPI_Type_lb(MPI_Datatype type, MPI_Aint *lb); |
2755 |
| -#define MPI_Type_lb(...) MPI_INTERFACE_REMOVED(MPI_Type_lb, MPI_Type_get_extent) |
2756 |
| -OMPI_DECLSPEC int PMPI_Type_lb(MPI_Datatype type, MPI_Aint *lb); |
2757 |
| -#define PMPI_Type_lb(...) MPI_INTERFACE_REMOVED(PMPI_Type_lb, PMPI_Type_get_extent) |
2758 |
| -OMPI_DECLSPEC int MPI_Type_struct(int count, int array_of_blocklengths[], |
2759 |
| - MPI_Aint array_of_displacements[], |
2760 |
| - MPI_Datatype array_of_types[], |
2761 |
| - MPI_Datatype *newtype); |
2762 |
| -#define MPI_Type_struct MPI_INTERFACE_REMOVED(MPI_Type_struct, MPI_Type_create_struct) |
2763 |
| -OMPI_DECLSPEC int PMPI_Type_struct(int count, int array_of_blocklengths[], |
2764 |
| - MPI_Aint array_of_displacements[], |
2765 |
| - MPI_Datatype array_of_types[], |
2766 |
| - MPI_Datatype *newtype); |
2767 |
| -#define PMPI_Type_struct MPI_INTERFACE_REMOVED(PMPI_Type_struct, PMPI_Type_create_struct) |
2768 |
| -OMPI_DECLSPEC int MPI_Type_ub(MPI_Datatype mtype, MPI_Aint *ub); |
2769 |
| -#define MPI_Type_ub(...) MPI_INTERFACE_REMOVED(MPI_Type_ub, MPI_Type_get_extent) |
2770 |
| -OMPI_DECLSPEC int PMPI_Type_ub(MPI_Datatype mtype, MPI_Aint *ub); |
2771 |
| -#define PMPI_Type_ub(...) MPI_INTERFACE_REMOVED(PMPI_Type_ub, PMPI_Type_get_extent) |
2772 |
| -#endif /* !OMPI_OMIT_MPI1_COMPAT_DECLS */ |
2773 |
| - |
2774 | 2642 |
|
2775 | 2643 | #if defined(c_plusplus) || defined(__cplusplus)
|
2776 | 2644 | }
|
|
0 commit comments