change MPI_Aint datatype

Author: JaredCrean2

deps/gen_functions.c

@@ -1,8 +1,12 @@
 #include <stdio.h>
+#include <stddef.h>
 #include "jlmpi_f2c.h"
 #include "mpi.h"
 #include "version.h"
 
+// check that the size of MPI_Aint is consistent
+typedef int check_sizeof_MPI_Aint[sizeof(MPI_Aint) == sizeof(ptrdiff_t) ? 1 : -1];
+
 #define STRING1(s) #s
 #define STRING(s) STRING1(s)
 

src/MPI.jl

@@ -1,4 +1,4 @@
-#__precompile__()
+__precompile__()
 
 module MPI
 

src/mpi-base.jl

@@ -131,7 +131,7 @@ function Type_create_struct{T <: Any}(::Type{T})  # <: Any effectively
 
   # put data in MPI format
   blocklengths = ones(Cint, nfields)
-  displacements = zeros(Csize_t, nfields)  # size_t == MPI_Aint ?
+  displacements = zeros(Cptrdiff_t, nfields)  # size_t == MPI_Aint ?
   types = zeros(Cint, nfields)
   for i=1:nfields
     displacements[i] = offsets[i]
@@ -141,7 +141,7 @@ function Type_create_struct{T <: Any}(::Type{T})  # <: Any effectively
   # create the datatype
   newtype_ref = Ref{Cint}()
   flag = Ref{Cint}()
-  ccall(MPI_TYPE_CREATE_STRUCT, Void, (Ptr{Cint}, Ptr{Cint}, Ptr{Csize_t}, 
+  ccall(MPI_TYPE_CREATE_STRUCT, Void, (Ptr{Cint}, Ptr{Cint}, Ptr{Cptrdiff_t}, 
         Ptr{Cint}, Ptr{Cint}, Ptr{Cint}), &nfields, blocklengths, displacements, types, 
         newtype_ref, flag)