* fix prototypes for the strange COPY, DUP, DELETE functions - last argument

should be void* not int*

This commit was SVN r1654.

include/mpi.h

@@ -285,29 +285,29 @@ enum {
 #define MPI_STATUSES_IGNORE ((MPI_Status *) 0)
 
 int MPI_TYPE_NULL_DELETE_FN( MPI_Datatype datatype, int type_keyval,
-                             void* attribute_val_out, int* flag );
+                             void* attribute_val_out, void* flag );
 int MPI_TYPE_NULL_COPY_FN( MPI_Datatype datatype, int type_keyval, void* extra_state,
-                           void* attribute_val_in, void* attribute_val_out, int* flag );
+                           void* attribute_val_in, void* attribute_val_out, void* flag );
 int MPI_TYPE_DUP_FN( MPI_Datatype datatype, int type_keyval, void* extra_state,
-                     void* attribute_val_in, void* attribute_val_out, int* flag );
+                     void* attribute_val_in, void* attribute_val_out, void* flag );
 int MPI_COMM_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
-                             void* attribute_val_out, int* flag );
+                             void* attribute_val_out, void* flag );
 int MPI_COMM_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
-                           void* attribute_val_in, void* attribute_val_out, int* flag );
+                           void* attribute_val_in, void* attribute_val_out, void* flag );
 int MPI_COMM_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
-                     void* attribute_val_in, void* attribute_val_out, int* flag );
+                     void* attribute_val_in, void* attribute_val_out, void* flag );
 int MPI_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
-                        void* attribute_val_out, int* flag );
+                        void* attribute_val_out, void* flag );
 int MPI_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
-                      void* attribute_val_in, void* attribute_val_out, int* flag );
+                      void* attribute_val_in, void* attribute_val_out, void* flag );
 int MPI_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
-                void* attribute_val_in, void* attribute_val_out, int* flag );
+                void* attribute_val_in, void* attribute_val_out, void* flag );
 int MPI_WIN_NULL_DELETE_FN( MPI_Win window, int win_keyval,
-                            void* attribute_val_out, int* flag );
+                            void* attribute_val_out, void* flag );
 int MPI_WIN_NULL_COPY_FN( MPI_Win window, int win_keyval, void* extra_state,
-                          void* attribute_val_in, void* attribute_val_out, int* flag );
+                          void* attribute_val_in, void* attribute_val_out, void* flag );
 int MPI_WIN_DUP_FN( MPI_Win window, int win_keyval, void* extra_state,
-                    void* attribute_val_in, void* attribute_val_out, int* flag );
+                    void* attribute_val_in, void* attribute_val_out, void* flag );
 
 /*
  * External variables

src/mpi/c/attr_fn.c

@@ -12,7 +12,7 @@
 
 int MPI_TYPE_NULL_DELETE_FN( MPI_Datatype datatype, int type_keyval,
                              void* attribute_val_out,
-                             int* flag )
+                             void* flag )
 {
    /* Why not all MPI functions are like this ?? */
    return MPI_SUCCESS;
@@ -20,89 +20,89 @@ int MPI_TYPE_NULL_DELETE_FN( MPI_Datatype datatype, int type_keyval,
 
 int MPI_TYPE_NULL_COPY_FN( MPI_Datatype datatype, int type_keyval, void* extra_state,
                            void* attribute_val_in, void* attribute_val_out,
-                           int* flag )
+                           void* flag )
 {
-   *flag= 0;
+   *(int*) flag = 0;
    return MPI_SUCCESS;
 }
 
 int MPI_TYPE_DUP_FN( MPI_Datatype datatype, int type_keyval, void* extra_state,
                      void* attribute_val_in, void* attribute_val_out,
-                     int* flag )
+                     void* flag )
 {
-   *flag = 1;
+   *(int*) flag = 1;
    *(void**)attribute_val_out = attribute_val_in;
    return MPI_SUCCESS;
 }
 
 int MPI_WIN_NULL_DELETE_FN( MPI_Win window, int win_keyval,
                             void* attribute_val_out,
-                            int* flag )
+                            void* flag )
 {
    return MPI_SUCCESS;
 }
 
 int MPI_WIN_NULL_COPY_FN( MPI_Win window, int win_keyval, void* extra_state,
                           void* attribute_val_in, void* attribute_val_out,
-                          int* flag )
+                          void* flag )
 {
-   *flag= 0;
+   *(int*) flag= 0;
    return MPI_SUCCESS;
 }
 
 int MPI_WIN_DUP_FN( MPI_Win window, int win_keyval, void* extra_state,
                     void* attribute_val_in, void* attribute_val_out,
-                    int* flag )
+                    void* flag )
 {
-   *flag = 1;
+   *(int*) flag = 1;
    *(void**)attribute_val_out = attribute_val_in;
    return MPI_SUCCESS;
 }
 
 int MPI_COMM_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
                              void* attribute_val_out,
-                             int* flag )
+                             void* flag )
 {
    return MPI_SUCCESS;
 }
 
 int MPI_COMM_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
                            void* attribute_val_in, void* attribute_val_out,
-                           int* flag )
+                           void* flag )
 {
-   *flag= 0;
+   *(int*) flag= 0;
    return MPI_SUCCESS;
 }
 
 int MPI_COMM_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
                      void* attribute_val_in, void* attribute_val_out,
-                     int* flag )
+                     void* flag )
 {
-   *flag = 1;
+   *(int*) flag = 1;
    *(void**)attribute_val_out = attribute_val_in;
    return MPI_SUCCESS;
 }
 
 int MPI_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
                         void* attribute_val_out,
-                        int* flag )
+                        void* flag )
 {
    return MPI_SUCCESS;
 }
 
 int MPI_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
                       void* attribute_val_in, void* attribute_val_out,
-                      int* flag )
+                    void* flag )
 {
-   *flag= 0;
+   *(int*) flag= 0;
    return MPI_SUCCESS;
 }
 
 int MPI_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
                 void* attribute_val_in, void* attribute_val_out,
-                int* flag )
+                void* flag )
 {
-   *flag = 1;
+   *(int*) flag = 1;
    *(void**)attribute_val_out = attribute_val_in;
    return MPI_SUCCESS;
 }