[svn-r978] added support for MPI_SIGNED_CHAR in reductions

src/mpi/coll/opband.c

@@ -141,6 +141,13 @@ void MPIR_BAND (
             a[i] = MPIR_LBAND(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_LBAND(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -187,6 +194,7 @@ int MPIR_BAND_check_dtype ( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_BYTE: 
 /* The length type can be provided without Fortran, so we do so */

src/mpi/coll/opbor.c

@@ -140,6 +140,13 @@ void MPIR_BOR (
             a[i] = MPIR_LBOR(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_LBOR(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -187,6 +194,7 @@ int MPIR_BOR_check_dtype ( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_BYTE: 
 /* The length type can be provided without Fortran, so we do so */

src/mpi/coll/opbxor.c

@@ -141,6 +141,13 @@ void MPIR_BXOR (
             a[i] = MPIR_LBXOR(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_LBXOR(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -188,6 +195,7 @@ int MPIR_BXOR_check_dtype ( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_BYTE: 
 /* The length type can be provided without Fortran, so we do so */

src/mpi/coll/opland.c

@@ -89,6 +89,13 @@ void MPIR_LAND (
             a[i] = MPIR_LLAND(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_LLAND(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -248,6 +255,7 @@ int MPIR_LAND_check_dtype ( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_FLOAT: 
 #ifdef HAVE_FORTRAN_BINDING

src/mpi/coll/oplor.c

@@ -89,6 +89,13 @@ void MPIR_LOR (
             a[i] = MPIR_LLOR(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_LLOR(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -247,6 +254,7 @@ int MPIR_LOR_check_dtype ( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_FLOAT: 
 #ifdef HAVE_FORTRAN_BINDING

src/mpi/coll/oplxor.c

@@ -90,6 +90,13 @@ void MPIR_LXOR (
             a[i] = MPIR_LLXOR(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_LLXOR(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -248,6 +255,7 @@ int MPIR_LXOR_check_dtype ( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_FLOAT: 
 #ifdef HAVE_FORTRAN_BINDING

src/mpi/coll/opmax.c

@@ -165,6 +165,13 @@ void MPIR_MAXF(
             a[i] = MPIR_MAX(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_MAX(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -238,6 +245,7 @@ int MPIR_MAXF_check_dtype( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_FLOAT: 
 #ifdef HAVE_FORTRAN_BINDING

src/mpi/coll/opmin.c

@@ -165,6 +165,13 @@ void MPIR_MINF (
             a[i] = MPIR_MIN(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_MIN(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -238,6 +245,7 @@ int MPIR_MINF_check_dtype ( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_FLOAT: 
 #ifdef HAVE_FORTRAN_BINDING

src/mpi/coll/opprod.c

@@ -179,6 +179,13 @@ void MPIR_PROD (
             a[i] = MPIR_LPROD(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_LPROD(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -275,6 +282,7 @@ int MPIR_PROD_check_dtype ( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_FLOAT: 
 #ifdef HAVE_FORTRAN_BINDING

src/mpi/coll/opsum.c

@@ -180,6 +180,13 @@ void MPIR_SUM (
             a[i] = MPIR_LSUM(a[i],b[i]);
         break;
     }
+    case MPI_SIGNED_CHAR: {
+        signed char * restrict a = (signed char *)inoutvec; 
+        signed char * restrict b = (signed char *)invec;
+        for ( i=0; i<len; i++ )
+            a[i] = MPIR_LSUM(a[i],b[i]);
+        break;
+    }
     case MPI_UNSIGNED_CHAR: {
         unsigned char * restrict a = (unsigned char *)inoutvec; 
         unsigned char * restrict b = (unsigned char *)invec;
@@ -274,6 +281,7 @@ int MPIR_SUM_check_dtype ( MPI_Datatype type )
 #ifdef HAVE_FORTRAN_BINDING
     case MPI_CHARACTER: 
 #endif
+    case MPI_SIGNED_CHAR: 
     case MPI_UNSIGNED_CHAR: 
     case MPI_FLOAT: 
 #ifdef HAVE_FORTRAN_BINDING