A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
please sonar by handling properly pointers in unimplemented fortran bindings.
[simgrid.git]
/
src
/
smpi
/
bindings
/
smpi_f77.cpp
diff --git
a/src/smpi/bindings/smpi_f77.cpp
b/src/smpi/bindings/smpi_f77.cpp
index
71d2988
..
7af3039
100644
(file)
--- a/
src/smpi/bindings/smpi_f77.cpp
+++ b/
src/smpi/bindings/smpi_f77.cpp
@@
-851,19
+851,19
@@
void mpi_status_set_elements_ ( MPI_Status* status, int* datatype, int* count, i
}
void mpi_publish_name_ ( char *service_name, int* info, char *port_name, int* ierr){
}
void mpi_publish_name_ ( char *service_name, int* info, char *port_name, int* ierr){
- *ierr = MPI_Publish_name( service_name,
*reinterpret_cast<MPI_Info*>(
info), port_name);
+ *ierr = MPI_Publish_name( service_name,
simgrid::smpi::Info::f2c(*
info), port_name);
}
void mpi_unpublish_name_ ( char *service_name, int* info, char *port_name, int* ierr){
}
void mpi_unpublish_name_ ( char *service_name, int* info, char *port_name, int* ierr){
- *ierr = MPI_Unpublish_name( service_name,
*reinterpret_cast<MPI_Info*>(
info), port_name);
+ *ierr = MPI_Unpublish_name( service_name,
simgrid::smpi::Info::f2c(*
info), port_name);
}
void mpi_lookup_name_ ( char *service_name, int* info, char *port_name, int* ierr){
}
void mpi_lookup_name_ ( char *service_name, int* info, char *port_name, int* ierr){
- *ierr = MPI_Lookup_name( service_name,
*reinterpret_cast<MPI_Info*>(
info), port_name);
+ *ierr = MPI_Lookup_name( service_name,
simgrid::smpi::Info::f2c(*
info), port_name);
}
void mpi_open_port_ ( int* info, char *port_name, int* ierr){
}
void mpi_open_port_ ( int* info, char *port_name, int* ierr){
- *ierr = MPI_Open_port(
*reinterpret_cast<MPI_Info*>(
info),port_name);
+ *ierr = MPI_Open_port(
simgrid::smpi::Info::f2c(*
info),port_name);
}
void mpi_close_port_ ( char *port_name, int* ierr){
}
void mpi_close_port_ ( char *port_name, int* ierr){