Changeset 8bec32 for src/comm/mpi/error_handler.cpp

Timestamp:

Apr 13, 2013, 1:19:18 PM (13 years ago)

Author:

Julian Iseringhausen <isering@…>

Children:

1e45786

Parents:

e5d779b

Message:

Added more info to MPI exception.

File:

• src/comm/mpi/error_handler.cpp (modified) (1 diff)

src/comm/mpi/error_handler.cpp

@@ -42 +42 @@
 #endif
 
+#include <sstream>
+
 #include "comm/mpi/error_handler.hpp"
 
 void VMG::MPI::ConvertToException(MPI_Comm* comm, int* err, ...)
 {
-  char error_string[MPI_MAX_ERROR_STRING];
-  int resultlen;
-  MPI_Error_string(*err, error_string, &resultlen);
-  throw Exception(error_string);
+  int rank;
+  char error_string[MPI_MAX_ERROR_STRING+1], comm_name[MPI_MAX_OBJECT_NAME+1];
+  int error_len, comm_name_len;
+
+  MPI_Comm_rank(*comm, &rank);
+  MPI_Error_string(*err, error_string, &error_len);
+  MPI_Comm_get_name(*comm, comm_name, &comm_name_len);
+
+  std::stringstream error_concat;
+  error_concat << "vmg: Rank " << rank << " on communicator \"" << comm_name << "\": " << error_string;
+
+  throw Exception(error_concat.str().c_str());
 }