update wrappers

spcl · Oct 22, 2023 · 001f7fc · 001f7fc
1 parent dda141f
commit 001f7fc
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/build/mpi_c_wrapper.c b/build/mpi_c_wrapper.c
@@ -5922,10 +5922,10 @@ int MPI_Pack_size (int incount, MPI_Datatype datatype, MPI_Comm comm, int * size
 }
 
 int MPI_Pcontrol (const int level,  ...) {
-  if (level == 0) lap_tracing_enabled = 0;
-  if (level  > 0) lap_tracing_enabled = 1;
-  if (level  > 1) lap_elem_tracing_enabled = 1;
-  if (level  > 2) lap_backtrace_enabled = 1;
+  if (level == 0) { lap_tracing_enabled = 0; lap_elem_tracing_enabled = 0; lap_backtrace_enabled = 0; }
+  if (level == 1) { lap_tracing_enabled = 1; lap_elem_tracing_enabled = 0; lap_backtrace_enabled = 0; }
+  if (level == 2) { lap_tracing_enabled = 1; lap_elem_tracing_enabled = 1; lap_backtrace_enabled = 0; }
+  if (level >= 3) { lap_tracing_enabled = 1; lap_elem_tracing_enabled = 1; lap_backtrace_enabled = 1; }
   return MPI_SUCCESS;
 }
 

diff --git a/build/mpi_f_wrapper.c b/build/mpi_f_wrapper.c
@@ -5832,10 +5832,10 @@ void FortranCInterface_GLOBAL(mpi_pack_size,MPI_PACK_SIZE) (int* incount, int* d
 }
 
 void FortranCInterface_GLOBAL(mpi_pcontrol,MPI_PCONTROL) (int* level, int* ierr) {
-  if (*level == 0) lap_tracing_enabled = 0;
-  if (*level  > 0) lap_tracing_enabled = 1;
-  if (*level  > 1) lap_elem_tracing_enabled = 1;
-  if (*level  > 2) lap_backtrace_enabled = 1;
+  if (*level == 0) { lap_tracing_enabled = 0; lap_elem_tracing_enabled = 0; lap_backtrace_enabled = 0; }
+  if (*level == 1) { lap_tracing_enabled = 1; lap_elem_tracing_enabled = 0; lap_backtrace_enabled = 0; }
+  if (*level == 2) { lap_tracing_enabled = 1; lap_elem_tracing_enabled = 1; lap_backtrace_enabled = 0; }
+  if (*level >= 3) { lap_tracing_enabled = 1; lap_elem_tracing_enabled = 1; lap_backtrace_enabled = 1; }
 }
 
 void FortranCInterface_GLOBAL(mpi_probe,MPI_PROBE) (int* source, int* tag, int* comm, int* status, int* ierr) {