X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/149c63f36e15b8500b1e826bda5138318ff7ba2b..cff982bd049d26d7acbd0e23324e0de051b06d0d:/src/smpi/include/private.hpp diff --git a/src/smpi/include/private.hpp b/src/smpi/include/private.hpp index 07c4bfdf33..c9635c4f1b 100644 --- a/src/smpi/include/private.hpp +++ b/src/smpi/include/private.hpp @@ -67,11 +67,9 @@ extern XBT_PUBLIC int mpi_statuses_ignore_; extern XBT_PRIVATE MPI_Comm MPI_COMM_UNINITIALIZED; -typedef SMPI_Cart_topology* MPIR_Cart_Topology; - -typedef SMPI_Graph_topology* MPIR_Graph_Topology; - -typedef SMPI_Dist_Graph_topology* MPIR_Dist_Graph_Topology; +using MPIR_Cart_Topology = SMPI_Cart_topology*; +using MPIR_Graph_Topology = SMPI_Graph_topology*; +using MPIR_Dist_Graph_Topology = SMPI_Dist_Graph_topology*; XBT_PRIVATE simgrid::smpi::ActorExt* smpi_process(); XBT_PRIVATE simgrid::smpi::ActorExt* smpi_process_remote(simgrid::s4u::ActorPtr actor); @@ -457,10 +455,29 @@ void mpi_comm_get_parent_(int* parent, int* ierr); void mpi_file_close_(int* file, int* ierr); void mpi_file_delete_(char* filename, int* info, int* ierr); void mpi_file_open_(int* comm, char* filename, int* amode, int* info, int* fh, int* ierr); -void mpi_file_set_view_(int* fh, long long int* offset, int* etype, int* filetype, char* datarep, int* info, int* ierr); +void mpi_file_seek_(int* fh, MPI_Offset* offset, int* whence, int* ierr); +void mpi_file_seek_shared_(int* fh, MPI_Offset* offset, int* whence, int* ierr); +void mpi_file_get_position_(int* fh, MPI_Offset* offset, int* ierr); +void mpi_file_get_position_shared_(int* fh, MPI_Offset* offset, int* ierr); +void mpi_file_set_view_(int* fh, MPI_Offset* offset, int* etype, int* filetype, char* datarep, int* info, int* ierr); +void mpi_file_get_view_(int* fh, MPI_Offset* disp, int* etype, int* filetype, char *datarep, int* ierr); void mpi_file_read_(int* fh, void* buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_read_shared_(int* fh, void *buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_read_all_(int* fh, void *buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_read_ordered_(int* fh, void *buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_read_at_(int* fh, MPI_Offset* offset, void *buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_read_at_all_(int* fh, MPI_Offset* offset, void *buf, int* count, int* datatype, MPI_Status* status, int* ierr); void mpi_file_write_(int* fh, void* buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_write_all_(int* fh, void* buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_write_shared_(int* fh, void *buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_write_ordered_(int* fh, void *buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_write_at_(int* fh, MPI_Offset* offset, void *buf, int* count, int* datatype, MPI_Status* status, int* ierr); +void mpi_file_write_at_all_(int* fh, MPI_Offset* offset, void *buf, int* count, int* datatype, MPI_Status* status, int* ierr); void smpi_init_fortran_types(); +void smpi_execute_flops_(double* flops); +void smpi_execute_flops_benched_(double* flops); +void smpi_execute_(double* duration); +void smpi_execute_benched_(double* duration); } // extern "C" XBT_PRIVATE int smpi_temp_shm_get(); @@ -470,7 +487,7 @@ struct s_smpi_privatization_region_t { void* address; int file_descriptor; }; -typedef s_smpi_privatization_region_t* smpi_privatization_region_t; +using smpi_privatization_region_t = s_smpi_privatization_region_t*; extern XBT_PRIVATE int smpi_loaded_page; XBT_PRIVATE smpi_privatization_region_t smpi_init_global_memory_segment_process(); @@ -484,7 +501,7 @@ XBT_PRIVATE smpi_privatization_region_t smpi_init_global_memory_segment_process( #define TOPAGE(addr) (void*)(((unsigned long)(addr) / xbt_pagesize) * xbt_pagesize) /** Used only if PAPI is compiled in, but integrated anyway so that this file does not depend on internal_config.h (to speed builds) */ -typedef std::vector> papi_counter_t; +using papi_counter_t = std::vector>; struct papi_process_data { papi_counter_t counter_data; int event_set; @@ -498,12 +515,12 @@ XBT_PUBLIC smpi_trace_call_location_t* smpi_trace_get_call_location(); XBT_PRIVATE void private_execute_flops(double flops); - #define CHECK_ARGS(test, errcode, ...) \ if (test) { \ - if((errcode) != MPI_SUCCESS) \ + int error_code_ = (errcode); \ + if (error_code_ != MPI_SUCCESS) \ XBT_WARN(__VA_ARGS__); \ - return (errcode); \ + return error_code_; \ } #define CHECK_MPI_NULL(num, val, err, ptr) \