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
plug another memleak, in SMPI this time
[simgrid.git]
/
src
/
smpi
/
smpi_f77.cpp
diff --git
a/src/smpi/smpi_f77.cpp
b/src/smpi/smpi_f77.cpp
index
248334e
..
7668381
100644
(file)
--- a/
src/smpi/smpi_f77.cpp
+++ b/
src/smpi/smpi_f77.cpp
@@
-600,9
+600,8
@@
void mpi_test_ (int * request, int *flag, MPI_Status * status, int* ierr){
}
void mpi_testall_ (int* count, int * requests, int *flag, MPI_Status * statuses, int* ierr){
}
void mpi_testall_ (int* count, int * requests, int *flag, MPI_Status * statuses, int* ierr){
- MPI_Request* reqs;
int i;
int i;
- reqs = xbt_new(MPI_Request, *count);
+
MPI_Request*
reqs = xbt_new(MPI_Request, *count);
for(i = 0; i < *count; i++) {
reqs[i] = smpi_request_f2c(requests[i]);
}
for(i = 0; i < *count; i++) {
reqs[i] = smpi_request_f2c(requests[i]);
}
@@
-613,6
+612,7
@@
void mpi_testall_ (int* count, int * requests, int *flag, MPI_Status * statuses
requests[i]=MPI_FORTRAN_REQUEST_NULL;
}
}
requests[i]=MPI_FORTRAN_REQUEST_NULL;
}
}
+ xbt_free(reqs);
}
void mpi_get_processor_name_(char *name, int *resultlen, int* ierr){
}
void mpi_get_processor_name_(char *name, int *resultlen, int* ierr){