X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/4e68c6fc1ff039dd2cea2688981f4c19919874d4..adbdcbddadcbd685b72259874d1ebfd9cbbcc497:/src/smpi/internals/smpi_bench.cpp diff --git a/src/smpi/internals/smpi_bench.cpp b/src/smpi/internals/smpi_bench.cpp index 82752a6e5f..542c0ee1e6 100644 --- a/src/smpi/internals/smpi_bench.cpp +++ b/src/smpi/internals/smpi_bench.cpp @@ -3,7 +3,6 @@ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -#include "getopt.h" #include "private.hpp" #include "simgrid/host.h" #include "simgrid/modelchecker.h" @@ -16,6 +15,7 @@ #include "src/mc/mc_replay.hpp" #include "xbt/config.hpp" #include "xbt/file.hpp" +#include #include "src/smpi/include/smpi_actor.hpp" @@ -420,7 +420,7 @@ smpi_trace_call_location_t* smpi_trace_get_call_location() return smpi_process()->call_location(); } -void smpi_trace_set_call_location(const char* file, const int line) +void smpi_trace_set_call_location(const char* file, const int line, const char* call_name) { smpi_trace_call_location_t* loc = smpi_process()->call_location(); @@ -430,19 +430,21 @@ void smpi_trace_set_call_location(const char* file, const int line) loc->filename = simgrid::xbt::Path(file).get_base_name(); else loc->filename = file; + std::replace(loc->filename.begin(), loc->filename.end(), ' ', '_'); loc->linenumber = line; + loc->func_call = call_name; } /** Required for Fortran bindings */ -void smpi_trace_set_call_location_(const char* file, const int* line) +void smpi_trace_set_call_location_(const char* file, const int* line, const char* call_name) { - smpi_trace_set_call_location(file, *line); + smpi_trace_set_call_location(file, *line, call_name); } /** Required for Fortran if -fsecond-underscore is activated */ -void smpi_trace_set_call_location__(const char* file, const int* line) +void smpi_trace_set_call_location__(const char* file, const int* line, const char* call_name) { - smpi_trace_set_call_location(file, *line); + smpi_trace_set_call_location(file, *line, call_name); } void smpi_bench_destroy()