瀏覽代碼

mpi/src/starpu_mpi_private.h: define new macro _STARPU_MPI_DISP()

Nathalie Furmento 12 年之前
父節點
當前提交
9291171c0c
共有 1 個文件被更改,包括 5 次插入0 次删除
  1. 5 0
      mpi/src/starpu_mpi_private.h

+ 5 - 0
mpi/src/starpu_mpi_private.h

@@ -41,6 +41,11 @@ extern "C" {
 #  define _STARPU_MPI_DEBUG(fmt, args ...)
 #  define _STARPU_MPI_DEBUG(fmt, args ...)
 #endif
 #endif
 
 
+#define _STARPU_MPI_DISP(fmt, args ...) do { if (!getenv("STARPU_SILENT")) { \
+    						int _debug_rank; MPI_Comm_rank(MPI_COMM_WORLD, &_debug_rank);       \
+                                                fprintf(stderr, "%*s[%d][starpu_mpi][%s] " fmt , (_debug_rank+1)*4, "", _debug_rank, __func__ ,##args); \
+                                                fflush(stderr); }} while(0);
+
 #ifdef STARPU_MPI_VERBOSE0
 #ifdef STARPU_MPI_VERBOSE0
 #  define _STARPU_MPI_LOG_IN()             do { if (!getenv("STARPU_SILENT")) { \
 #  define _STARPU_MPI_LOG_IN()             do { if (!getenv("STARPU_SILENT")) { \
                                                int _debug_rank; MPI_Comm_rank(MPI_COMM_WORLD, &_debug_rank);                        \
                                                int _debug_rank; MPI_Comm_rank(MPI_COMM_WORLD, &_debug_rank);                        \