Fix windows build (maybe)

zbeekman · zbeekman · commit ac376ee1685d · 2017-08-19T19:04:19.000-04:00
Based on tales of success by @jbmaggard in issue #435 Fixes #435 Error in the type def of an argument to `MPI_Type_extent` `long int string_len;` → `MPI_Aint string_len;` on `mpi_caf.c:4140` [L4140]: https://github.com/sourceryinstitute/OpenCoarrays/blob/f7a5f2ebeaf935a67184a978bc40177e4399b82b/src/mpi/mpi_caf.c#L4140
diff --git a/src/mpi/CMakeLists.txt b/src/mpi/CMakeLists.txt
@@ -1,5 +1,9 @@
 set(CMAKE_Fortran_MODULE_DIRECTORY ${CMAKE_BINARY_DIR}/mod)
 
+if (CMAKE_SYSTEM_NAME MATCHES "Windows")
+  add_definitions(-D_POSIX -DUSE_GCC)
+endif()
+
 if (NOT MPI_C_FOUND)
   find_package(MPI REQUIRED)
 
diff --git a/src/mpi/mpi_caf.c b/src/mpi/mpi_caf.c
@@ -4136,7 +4136,7 @@ static void \
 redux_char_by_reference_adapter (void *invec, void *inoutvec, int *len,
       MPI_Datatype *datatype)
 {
-  long int string_len;
+  MPI_Aint string_len;
   MPI_Type_extent(*datatype, &string_len);
   for(int i = 0; i < *len; i++)
     {

Original file line number	Diff line number	Diff line change
`@@ -4136,7 +4136,7 @@ static void \`
`4136`	`4136`	`redux_char_by_reference_adapter (void invec, void inoutvec, int *len,`
`4137`	`4137`	`MPI_Datatype *datatype)`
`4138`	`4138`	`{`
`4139`		`- long int string_len;`
	`4139`	`+ MPI_Aint string_len;`
`4140`	`4140`	`MPI_Type_extent(*datatype, &string_len);`
`4141`	`4141`	`for(int i = 0; i < *len; i++)`
`4142`	`4142`	`{`