ROMIO: fix variable declarations 54/4954/5
authorMatthias Diener <mdiener@illinois.edu>
Fri, 15 Feb 2019 14:37:01 +0000 (06:37 -0800)
committerEvan Ramos <evan@hpccharm.com>
Fri, 15 Feb 2019 18:16:41 +0000 (12:16 -0600)
These were missed in the update to mpich2-1.4.1p1.

Change-Id: If61c77691d7a9492467aabf296c8e3c6512f573b

src/libs/ck-libs/ampi/romio/adio/common/cb_config_list.c
src/libs/ck-libs/ampi/romio/mpi-io/glue/default/mpio_file.c
src/libs/ck-libs/ampi/romio/mpi-io/mpir-mpioinit.c

index c872a17e52f9189cde12cc1b95f6c7d038e05066..eac68f1a06a614b8addf65219171eebdf75d03cb 100644 (file)
@@ -38,7 +38,7 @@
 
 /* a couple of globals keep things simple */
 // AMPI: make variables thread-private
-CtvStaticDeclare(int, ADIOI_cb_config_list_keyval); //=MPI_KEYVAL_INVALID
+CtvDeclare(int, ADIOI_cb_config_list_keyval); //=MPI_KEYVAL_INVALID
 CtvStaticDeclare(char*, yylval);
 CtvStaticDeclare(char*, token_ptr);
 
index da7aa3412c4ad7906b9950f5cef916bbc3cbf04a..d731de9aa210a45c93f39d2a987ed1889dccabd3 100644 (file)
@@ -36,9 +36,9 @@ void MPIO_File_free(MPI_File *mpi_fh)
     *mpi_fh = MPI_FILE_NULL;
 }
 
-extern ADIO_File *ADIOI_Ftable;
-extern int ADIOI_Ftable_ptr;
-extern int ADIOI_Ftable_max;
+CtvExtern(ADIO_File*, ADIOI_Ftable);
+CtvExtern(int, ADIOI_Ftable_ptr);
+CtvExtern(int, ADIOI_Ftable_max);
 
 MPI_File MPIO_File_f2c(MPI_Fint fh)
 {
@@ -50,12 +50,12 @@ MPI_File MPIO_File_f2c(MPI_Fint fh)
        may not be 8-byte aligned.*/
 #else
     if (!fh) return MPI_FILE_NULL;
-    if ((fh < 0) || (fh > ADIOI_Ftable_ptr)) {
+    if ((fh < 0) || (fh > CtvAccess(ADIOI_Ftable_ptr))) {
        FPRINTF(stderr, "MPI_File_f2c: Invalid file handle\n");
        /* there is no way to return an error from MPI_File_f2c */
        return MPI_FILE_NULL;
     }
-    return ADIOI_Ftable[fh];
+    return CtvAccess(ADIOI_Ftable)[fh];
 #endif
 }
 
@@ -68,23 +68,23 @@ MPI_Fint MPIO_File_c2f(MPI_File fh)
 
     if ((fh <= (MPI_File) 0) || (fh->cookie != ADIOI_FILE_COOKIE))
        return (MPI_Fint) 0;
-    if (!ADIOI_Ftable) {
-       ADIOI_Ftable_max = 1024;
-       ADIOI_Ftable = (MPI_File *)
-           ADIOI_Malloc(ADIOI_Ftable_max*sizeof(MPI_File)); 
-        ADIOI_Ftable_ptr = 0;  /* 0 can't be used though, because 
+    if (!CtvAccess(ADIOI_Ftable)) {
+       CtvAccess(ADIOI_Ftable_max) = 1024;
+       CtvAccess(ADIOI_Ftable) = (MPI_File *)
+           ADIOI_Malloc(CtvAccess(ADIOI_Ftable_max)*sizeof(MPI_File)); 
+        CtvAccess(ADIOI_Ftable_ptr) = 0;  /* 0 can't be used though, because 
                                   MPI_FILE_NULL=0 */
-       for (i=0; i<ADIOI_Ftable_max; i++) ADIOI_Ftable[i] = MPI_FILE_NULL;
+       for (i=0; i<CtvAccess(ADIOI_Ftable_max); i++) CtvAccess(ADIOI_Ftable)[i] = MPI_FILE_NULL;
     }
-    if (ADIOI_Ftable_ptr == ADIOI_Ftable_max-1) {
-       ADIOI_Ftable = (MPI_File *) ADIOI_Realloc(ADIOI_Ftable
-                           (ADIOI_Ftable_max+1024)*sizeof(MPI_File));
-       for (i=ADIOI_Ftable_max; i<ADIOI_Ftable_max+1024; i++) 
-           ADIOI_Ftable[i] = MPI_FILE_NULL;
-       ADIOI_Ftable_max += 1024;
+    if (CtvAccess(ADIOI_Ftable_ptr) == CtvAccess(ADIOI_Ftable_max)-1) {
+       CtvAccess(ADIOI_Ftable) = (MPI_File *) ADIOI_Realloc(CtvAccess(ADIOI_Ftable)
+                           (CtvAccess(ADIOI_Ftable_max)+1024)*sizeof(MPI_File));
+       for (i=CtvAccess(ADIOI_Ftable_max); i<CtvAccess(ADIOI_Ftable_max)+1024; i++) 
+           CtvAccess(ADIOI_Ftable)[i] = MPI_FILE_NULL;
+       CtvAccess(ADIOI_Ftable_max) += 1024;
     }
-    ADIOI_Ftable_ptr++;
-    ADIOI_Ftable[ADIOI_Ftable_ptr] = fh;
-    return (MPI_Fint) ADIOI_Ftable_ptr;
+    CtvAccess(ADIOI_Ftable_ptr)++;
+    CtvAccess(ADIOI_Ftable)[CtvAccess(ADIOI_Ftable_ptr)] = fh;
+    return (MPI_Fint) CtvAccess(ADIOI_Ftable_ptr);
 #endif
 }
index d4d2cf877ec7212984fe8d1eb8c389accd1ba806..438b4153c5e466b8e0b09074d17c0b493443e062 100644 (file)
@@ -12,7 +12,7 @@
 #include "mpioprof.h"
 #endif
 
-extern int ADIO_Init_keyval;
+CtvExtern(int, ADIO_Init_keyval);
 
 /* common code to stuff an attribute on a communicator for the purpose of
  * cleaning up in MPI_Finalize() */
@@ -23,7 +23,7 @@ void MPIR_MPIOInit(int * error_code) {
     char myname[] = "MPIR_MPIOInit";
 
     /* first check if ADIO has been initialized. If not, initialize it */
-    if (ADIO_Init_keyval == MPI_KEYVAL_INVALID) {
+    if (CtvAccess(ADIO_Init_keyval) == MPI_KEYVAL_INVALID) {
         MPI_Initialized(&flag);
 
        /* --BEGIN ERROR HANDLING-- */
@@ -36,7 +36,7 @@ void MPIR_MPIOInit(int * error_code) {
        }
        /* --END ERROR HANDLING-- */
 
-        MPI_Keyval_create(MPI_NULL_COPY_FN, ADIOI_End_call, &ADIO_Init_keyval,
+        MPI_Keyval_create(MPI_NULL_COPY_FN, ADIOI_End_call, &CtvAccess(ADIO_Init_keyval),
                           (void *) 0);  
 
        /* put a dummy attribute on MPI_COMM_SELF, because we want the delete
@@ -44,7 +44,7 @@ void MPIR_MPIOInit(int * error_code) {
           in MPI-2 section 4.8, the standard mandates that attributes on
           MPI_COMM_SELF get cleaned up early in MPI_Finalize */
 
-        MPI_Attr_put(MPI_COMM_SELF, ADIO_Init_keyval, (void *) 0);
+        MPI_Attr_put(MPI_COMM_SELF, CtvAccess(ADIO_Init_keyval), (void *) 0);
 
        /* initialize ADIO */
         ADIO_Init( (int *)0, (char ***)0, error_code);