From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Thu, 31 Oct 2013 22:53:01 +0000 (+0100)
Subject: Prevent user from making call to MPI within a SMPI_SAMPLE_ bloc.
X-Git-Tag: v3_10_rc1~16
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/079bef13256f87de97315cb8c9f0e57d463d62d7?hp=a0b1f7cf8921843f639d0bdfe6969486fcdb2116

Prevent user from making call to MPI within a SMPI_SAMPLE_ bloc.
---

diff --git a/src/smpi/smpi_bench.c b/src/smpi/smpi_bench.c
index 3992750739..7e69951c1e 100644
--- a/src/smpi/smpi_bench.c
+++ b/src/smpi/smpi_bench.c
@@ -171,8 +171,13 @@ void smpi_bench_begin(void)
 void smpi_bench_end(void)
 {
   xbt_os_timer_t timer = smpi_process_timer();
-
   xbt_os_threadtimer_stop(timer);
+  if (smpi_process_get_sampling()) {
+    XBT_CRITICAL("Cannot do recursive benchmarks.");
+    XBT_CRITICAL("Are you trying to make a call to MPI within a SMPI_SAMPLE_ block?");
+    xbt_backtrace_display_current();
+    xbt_die("Aborting.");
+  }
   smpi_execute(xbt_os_timer_elapsed(timer));
 }