Fixed num_images

Alessandro Fanfarillo · Alessandro Fanfarillo · commit 245dc1fe37fc · 2016-10-19T09:46:14.000-06:00
diff --git a/src/mpi/mpi_caf.c b/src/mpi/mpi_caf.c
@@ -594,6 +594,7 @@ int
 PREFIX (num_images)(int distance __attribute__ ((unused)),
                          int failed __attribute__ ((unused)))
 {
+  MPI_Comm_size(CAF_COMM_WORLD,&caf_num_images);
   return caf_num_images;
 }
 
@@ -1226,7 +1227,7 @@ PREFIX (send) (caf_token_t token, size_t offset, int image_index,
       if(error_called == 1)
 	{
 	  communicator_shrink(&CAF_COMM_WORLD);
-	  communicator_shrink(&lock_comm);
+	  /* communicator_shrink(&lock_comm); */
 	  error_called = 0;
 	  fake_error_called = 0;
 	  ierr = STAT_FAILED_IMAGE;

Original file line number	Diff line number	Diff line change
`@@ -594,6 +594,7 @@ int`
`594`	`594`	`PREFIX (num_images)(int distance __attribute__ ((unused)),`
`595`	`595`	`int failed __attribute__ ((unused)))`
`596`	`596`	`{`
	`597`	`+ MPI_Comm_size(CAF_COMM_WORLD,&caf_num_images);`
`597`	`598`	`return caf_num_images;`
`598`	`599`	`}`
`599`	`600`
`@@ -1226,7 +1227,7 @@ PREFIX (send) (caf_token_t token, size_t offset, int image_index,`
`1226`	`1227`	`if(error_called == 1)`
`1227`	`1228`	`{`
`1228`	`1229`	`communicator_shrink(&CAF_COMM_WORLD);`
`1229`		`- communicator_shrink(&lock_comm);`
	`1230`	`+ /* communicator_shrink(&lock_comm); */`
`1230`	`1231`	`error_called = 0;`
`1231`	`1232`	`fake_error_called = 0;`
`1232`	`1233`	`ierr = STAT_FAILED_IMAGE;`