* from the tests.
* MTestSleep( seconds )
*/
-#ifdef HAVE_WINDOWS_H
+#ifdef _WIN32
#include <windows.h>
void MTestSleep( int sec )
{
* that return value as well.
*
*/
-static __thread int interCommIdx = 0;
-static __thread int intraCommIdx = 0;
-static __thread const char *intraCommName = 0;
-static __thread const char *interCommName = 0;
+static int interCommIdx = 0;
+static int intraCommIdx = 0;
+static const char *intraCommName = 0;
+static const char *interCommName = 0;
/*
* Get an intracommunicator with at least min_size members. If "allowSmaller"
int MTestGetComm( MPI_Comm *comm, int min_size )
{
int idx=0;
- static __thread int getinter = 0;
+ static int getinter = 0;
if (!getinter) {
idx = MTestGetIntracomm( comm, min_size );
fprintf( stderr, "%s\n", msg );
fflush( stderr );
MPI_Abort( MPI_COMM_WORLD, 1 );
+ exit(1);
}
/* ------------------------------------------------------------------------ */
static void MTestResourceSummary( FILE *fp )
{
#ifdef HAVE_GETRUSAGE
struct rusage ru;
- static __thread int pfThreshold = -2;
+ static int pfThreshold = -2;
int doOutput = 1;
if (getrusage( RUSAGE_SELF, &ru ) == 0) {
/* There is an option to generate output only when a resource
/*
* Create MPI Windows
*/
-static __thread int win_index = 0;
+static int win_index = 0;
static const char *winName;
/* Use an attribute to remember the type of memory allocation (static,
malloc, or MPI_Alloc_mem) */
-static __thread int mem_keyval = MPI_KEYVAL_INVALID;
+static int mem_keyval = MPI_KEYVAL_INVALID;
int MTestGetWin( MPI_Win *win, int mustBePassive )
{
static char actbuf[1024];