|
From: <sv...@va...> - 2006-03-10 22:18:01
|
Author: sewardj
Date: 2006-03-10 22:17:57 +0000 (Fri, 10 Mar 2006)
New Revision: 5743
Log:
Quadrics MPI build fixes.
Modified:
trunk/auxprogs/mpiwrap.c
Modified: trunk/auxprogs/mpiwrap.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
--- trunk/auxprogs/mpiwrap.c 2006-03-10 22:17:02 UTC (rev 5742)
+++ trunk/auxprogs/mpiwrap.c 2006-03-10 22:17:57 UTC (rev 5743)
@@ -394,8 +394,12 @@
if (ty =3D=3D MPI_BYTE) return 1;
/* MPI_PACKED */
/* new in MPI2: */
+# if defined(MPI_WCHAR)
if (ty =3D=3D MPI_WCHAR) return sizeof(wchar_t);
+# endif
+# if defined(MPI_SIGNED_CHAR)
if (ty =3D=3D MPI_SIGNED_CHAR) return sizeof(signed char);
+# endif
if (ty =3D=3D MPI_UNSIGNED_LONG_LONG) return sizeof(unsigned long lon=
g int);
if (ty =3D=3D MPI_LONG_LONG_INT) return sizeof(signed long long =
int);
/* Note: the following are named structs, not named basic types,
@@ -467,6 +471,8 @@
f(base + offsetof(Ty,loc), sizeof(int));
return;
}
+ if (ty =3D=3D MPI_LB || ty =3D=3D MPI_UB)
+ return; /* have zero size, so nothing needs to be done */
goto unhandled;
/*NOTREACHED*/
}
|