add haiku support. Because why not.

[simgrid.git] / teshsuite / smpi / mpich3-test / util / mtest_datatype.c

diff --git a/teshsuite/smpi/mpich3-test/util/mtest_datatype.c b/teshsuite/smpi/mpich3-test/util/mtest_datatype.c
index 3917088..eb661f5 100644 (file)
--- a/teshsuite/smpi/mpich3-test/util/mtest_datatype.c
+++ b/teshsuite/smpi/mpich3-test/util/mtest_datatype.c
@@ -113,7 +113,7 @@ static void *MTestTypeContigInit(MTestDatatype * mtype)
         p = (unsigned char *) (mtype->buf);
         if (!p) {
             char errmsg[128] = { 0 };
-            sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+            sprintf(errmsg, "Out of memory in %s", __func__);
             MTestError(errmsg);
         }
         for (i = 0; i < totsize; i++) {
@@ -152,7 +152,7 @@ static int MTestTypeContigCheckbuf(MTestDatatype * mtype)
             if (p[i] != expected) {
                 err++;
                 if (mtype->printErrors && err < 10) {
-                    printf("Data expected = %x but got p[%ld] = %x\n", expected, i, p[i]);
+                    printf("Data expected = %x but got p[%zd] = %x\n", expected, i, p[i]);
                     fflush(stdout);
                 }
             }
@@ -191,7 +191,7 @@ static void *MTestTypeVectorInit(MTestDatatype * mtype)
         p = (unsigned char *) (mtype->buf);
         if (!p) {
             char errmsg[128] = { 0 };
-            sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+            sprintf(errmsg, "Out of memory in %s", __func__);
             MTestError(errmsg);
         }
 
@@ -255,7 +255,7 @@ static int MTestTypeVectorCheckbuf(MTestDatatype * mtype)
                     if (p[byte_offset + j] != expected) {
                         err++;
                         if (mtype->printErrors && err < 10) {
-                            printf("Data expected = %x but got p[%d,%ld] = %x\n", expected, i, j,
+                            printf("Data expected = %x but got p[%d,%zd] = %x\n", expected, i, j,
                                    p[byte_offset + j]);
                             fflush(stdout);
                         }
@@ -301,7 +301,7 @@ static void *MTestTypeIndexedInit(MTestDatatype * mtype)
         p = (unsigned char *) (mtype->buf);
         if (!p) {
             char errmsg[128] = { 0 };
-            sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+            sprintf(errmsg, "Out of memory in %s", __func__);
             MTestError(errmsg);
         }
 
@@ -419,7 +419,7 @@ static void *MTestTypeIndexedBlockInit(MTestDatatype * mtype)
         p = (unsigned char *) (mtype->buf);
         if (!p) {
             char errmsg[128] = { 0 };
-            sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+            sprintf(errmsg, "Out of memory in %s", __func__);
             MTestError(errmsg);
         }
 
@@ -486,7 +486,7 @@ static int MTestTypeIndexedBlockCheckbuf(MTestDatatype * mtype)
                     if (p[offset + j] != expected) {
                         err++;
                         if (mtype->printErrors && err < 10) {
-                            printf("Data expected = %x but got p[%d,%ld] = %x\n",
+                            printf("Data expected = %x but got p[%d,%zd] = %x\n",
                                    expected, i, j, p[offset + j]);
                             fflush(stdout);
                         }
@@ -530,7 +530,7 @@ static void *MTestTypeSubarrayInit(MTestDatatype * mtype)
         p = (unsigned char *) (mtype->buf);
         if (!p) {
             char errmsg[128] = { 0 };
-            sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+            sprintf(errmsg, "Out of memory in %s", __func__);
             MTestError(errmsg);
         }
 
@@ -630,7 +630,7 @@ static int MTestTypeSubarrayCheckbuf(MTestDatatype * mtype)
         }
     }
     if (err)
-        printf("%s error\n", __FUNCTION__);
+      printf("%s error\n", __func__);
     return err;
 }
 
@@ -672,7 +672,7 @@ static int MTestTypeContiguousCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_Ain
         MTestPrintError(merr);
 
     memset(type_name, 0, sizeof(type_name));
-    sprintf(type_name, "%s %s (%ld count)", typename_prefix, "contiguous", nblock * blocklen);
+    sprintf(type_name, "%s %s (%zd count)", typename_prefix, "contiguous", nblock * blocklen);
     merr = MPI_Type_set_name(mtype->datatype, (char *) type_name);
     if (merr)
         MTestPrintError(merr);
@@ -720,7 +720,7 @@ static int MTestTypeVectorCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_Aint st
         MTestPrintError(merr);
 
     memset(type_name, 0, sizeof(type_name));
-    sprintf(type_name, "%s %s (%ld nblock %ld blocklen %ld stride)", typename_prefix, "vector",
+    sprintf(type_name, "%s %s (%zd nblock %zd blocklen %zd stride)", typename_prefix, "vector",
             nblock, blocklen, stride);
     merr = MPI_Type_set_name(mtype->datatype, (char *) type_name);
     if (merr)
@@ -769,7 +769,7 @@ static int MTestTypeHvectorCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_Aint s
         MTestPrintError(merr);
 
     memset(type_name, 0, sizeof(type_name));
-    sprintf(type_name, "%s %s (%ld nblock %ld blocklen %ld stride)", typename_prefix, "hvector",
+    sprintf(type_name, "%s %s (%zd nblock %zd blocklen %zd stride)", typename_prefix, "hvector",
             nblock, blocklen, stride);
     merr = MPI_Type_set_name(mtype->datatype, (char *) type_name);
     if (merr)
@@ -813,7 +813,7 @@ static int MTestTypeIndexedCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_Aint s
     mtype->index = (int *) malloc(nblock * sizeof(int));
     if (!mtype->displs || !mtype->displ_in_bytes || !mtype->index) {
         char errmsg[128] = { 0 };
-        sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+        sprintf(errmsg, "Out of memory in %s", __func__);
         MTestError(errmsg);
     }
 
@@ -833,7 +833,7 @@ static int MTestTypeIndexedCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_Aint s
         MTestPrintError(merr);
 
     memset(type_name, 0, sizeof(type_name));
-    sprintf(type_name, "%s %s (%ld nblock %ld blocklen %ld stride %ld lb)", typename_prefix,
+    sprintf(type_name, "%s %s (%zd nblock %zd blocklen %zd stride %zd lb)", typename_prefix,
             "index", nblock, blocklen, stride, lb);
     merr = MPI_Type_set_name(mtype->datatype, (char *) type_name);
     if (merr)
@@ -875,7 +875,7 @@ static inline int MTestTypeHindexedCreate(MPI_Aint nblock, MPI_Aint blocklen, MP
     mtype->displ_in_bytes = (MPI_Aint *) malloc(nblock * sizeof(MPI_Aint));
     if (!mtype->displ_in_bytes || !mtype->index) {
         char errmsg[128] = { 0 };
-        sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+        sprintf(errmsg, "Out of memory in %s", __func__);
         MTestError(errmsg);
     }
 
@@ -895,7 +895,7 @@ static inline int MTestTypeHindexedCreate(MPI_Aint nblock, MPI_Aint blocklen, MP
         MTestPrintError(merr);
 
     memset(type_name, 0, sizeof(type_name));
-    sprintf(type_name, "%s %s (%ld nblock %ld blocklen %ld stride %ld lb)", typename_prefix,
+    sprintf(type_name, "%s %s (%zd nblock %zd blocklen %zd stride %zd lb)", typename_prefix,
             "hindex", nblock, blocklen, stride, lb);
     merr = MPI_Type_set_name(mtype->datatype, (char *) type_name);
     if (merr)
@@ -939,7 +939,7 @@ static int MTestTypeIndexedBlockCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_A
     mtype->displ_in_bytes = (MPI_Aint *) malloc(nblock * sizeof(MPI_Aint));
     if (!mtype->displs || !mtype->displ_in_bytes) {
         char errmsg[128] = { 0 };
-        sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+        sprintf(errmsg, "Out of memory in %s", __func__);
         MTestError(errmsg);
     }
 
@@ -960,7 +960,7 @@ static int MTestTypeIndexedBlockCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_A
         MTestPrintError(merr);
 
     memset(type_name, 0, sizeof(type_name));
-    sprintf(type_name, "%s %s (%ld nblock %ld blocklen %ld stride %ld lb)", typename_prefix,
+    sprintf(type_name, "%s %s (%zd nblock %zd blocklen %zd stride %zd lb)", typename_prefix,
             "index_block", nblock, blocklen, stride, lb);
     merr = MPI_Type_set_name(mtype->datatype, (char *) type_name);
     if (merr)
@@ -1001,7 +1001,7 @@ static int MTestTypeHindexedBlockCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_
     mtype->displ_in_bytes = (MPI_Aint *) malloc(nblock * sizeof(MPI_Aint));
     if (!mtype->displ_in_bytes) {
         char errmsg[128] = { 0 };
-        sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+        sprintf(errmsg, "Out of memory in %s", __func__);
         MTestError(errmsg);
     }
 
@@ -1021,7 +1021,7 @@ static int MTestTypeHindexedBlockCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_
         MTestPrintError(merr);
 
     memset(type_name, 0, sizeof(type_name));
-    sprintf(type_name, "%s %s (%ld nblock %ld blocklen %ld stride %ld lb)", typename_prefix,
+    sprintf(type_name, "%s %s (%zd nblock %zd blocklen %zd stride %zd lb)", typename_prefix,
             "hindex_block", nblock, blocklen, stride, lb);
     merr = MPI_Type_set_name(mtype->datatype, (char *) type_name);
     if (merr)
@@ -1065,7 +1065,7 @@ static int MTestTypeStructCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_Aint st
     mtype->index = (int *) malloc(nblock * sizeof(int));
     if (!mtype->displ_in_bytes || !mtype->old_datatypes) {
         char errmsg[128] = { 0 };
-        sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+        sprintf(errmsg, "Out of memory in %s", __func__);
         MTestError(errmsg);
     }
 
@@ -1087,7 +1087,7 @@ static int MTestTypeStructCreate(MPI_Aint nblock, MPI_Aint blocklen, MPI_Aint st
         MTestPrintError(merr);
 
     memset(type_name, 0, sizeof(type_name));
-    sprintf(type_name, "%s %s (%ld nblock %ld blocklen %ld stride %ld lb)", typename_prefix,
+    sprintf(type_name, "%s %s (%zd nblock %zd blocklen %zd stride %zd lb)", typename_prefix,
             "struct", nblock, blocklen, stride, lb);
     merr = MPI_Type_set_name(mtype->datatype, (char *) type_name);
     if (merr)
@@ -1303,7 +1303,7 @@ void *MTestTypeInitRecv(MTestDatatype * mtype)
         p = (signed char *) (mtype->buf);
         if (!p) {
             char errmsg[128] = { 0 };
-            sprintf(errmsg, "Out of memory in %s", __FUNCTION__);
+            sprintf(errmsg, "Out of memory in %s", __func__);
             MTestError(errmsg);
         }
         for (i = 0; i < totsize; i++) {