#include "src/instr/instr_private.h"
#include "src/instr/instr_smpi.h"
-#include "src/smpi/private.hpp"
+#include "src/smpi/include/private.hpp"
#include "typeinfo"
#include "xbt/virtu.h" /* sg_cmdline */
#include "simgrid/sg_config.h"
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(instr_paje_trace, instr, "tracing event system");
-extern s_instr_trace_writer_t active_writer;
-
static std::stringstream stream;
FILE *tracing_file = nullptr;
static xbt_dict_t tracing_files = nullptr; // TI specific
static double prefix=0.0; // TI specific
-
-void print_NULL(PajeEvent* event){}
-
-/* The active set of functions for the selected trace format
- * By default, they all do nothing, hence the print_NULL to avoid segfaults */
-
-s_instr_trace_writer_t active_writer = {&print_NULL, &print_NULL, &print_NULL, &print_NULL, &print_NULL, &print_NULL,
- &print_NULL, &print_NULL, &print_NULL, &print_NULL, &print_NULL, &print_NULL,
- &print_NULL, &print_NULL, &print_NULL, &print_NULL, &print_NULL, &print_NULL};
-
std::vector<PajeEvent*> buffer;
void buffer_debug(std::vector<PajeEvent*> *buf);
/* prevent 0.0000 in the trace - this was the behavior before the transition to c++ */
if (event->timestamp < 1e-12)
stream << 0;
- else
+ else
stream << event->timestamp;
-}
+}
/* internal do the instrumentation module */
static void insert_into_buffer (PajeEvent* tbi)
{
XBT_DEBUG("%s not implemented for %p: event_type=%d, timestamp=%f", __FUNCTION__,
this, (int)event_type, timestamp);
-// xbt_backtrace_display_current();
-
- /* switch (event->event_type){
- case PAJE_StartLink:
- xbt_free (((startLink_t)(event->data))->value);
- xbt_free (((startLink_t)(event->data))->key);
- break;
- case PAJE_EndLink:
- xbt_free (((endLink_t)(event->data))->value);
- xbt_free (((endLink_t)(event->data))->key);
- break;
- default:
- break;
- }*/
}
void TRACE_paje_start() {
XBT_DEBUG("Filename %s is closed", filename);
}
-DefineContainerEvent::DefineContainerEvent(type_t type)
+void DefineContainerEvent(type_t type)
{
-
- event_type = PAJE_DefineContainerType;
- timestamp = 0;
- this->type = type;
- XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event_type);
+ XBT_DEBUG("%s: event_type=%d", __FUNCTION__, PAJE_DefineContainerType);
//print it
- print ();
- delete this;
+ if (instr_fmt_type == instr_fmt_paje) {
+ XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, PAJE_DefineContainerType, TRACE_precision(), 0.);
+ stream << std::fixed << std::setprecision(TRACE_precision());
+ stream << PAJE_DefineContainerType;
+ stream << " " << type->id << " " << type->father->id << " " << type->name;
+ print_row();
+ } else if (instr_fmt_type == instr_fmt_TI) {
+ /* Nothing to do */
+ } else {
+ THROW_IMPOSSIBLE;
+ }
+ //--
}
-void DefineContainerEvent::print() {
- if (instr_fmt_type == instr_fmt_paje) {
- XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, (int)event_type, TRACE_precision(), timestamp);
- stream << std::fixed << std::setprecision(TRACE_precision());
- stream << (int)this->event_type;
- stream << " " << type->id
- << " " << type->father->id
- << " " << type->name;
- print_row();
- } else if (instr_fmt_type == instr_fmt_TI) {
- /* Nothing to do */
- } else {
- THROW_IMPOSSIBLE;
- }
-}
-DefineVariableTypeEvent::DefineVariableTypeEvent(type_t type)
+void LogVariableTypeDefinition(type_t type)
{
- this->event_type = PAJE_DefineVariableType;
- this->timestamp = 0;
- this->type = type;
- XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event_type);
+ XBT_DEBUG("%s: event_type=%d", __FUNCTION__, PAJE_DefineVariableType);
//print it
- print ();
- delete this;
-}
-
-void DefineVariableTypeEvent::print() {
- if (instr_fmt_type == instr_fmt_paje) {
- XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, (int)event_type, TRACE_precision(), timestamp);
+if (instr_fmt_type == instr_fmt_paje) {
+ XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, PAJE_DefineVariableType, TRACE_precision(), 0.);
stream << std::fixed << std::setprecision(TRACE_precision());
- stream << (int)this->event_type;
+ stream << PAJE_DefineVariableType;
stream << " " << type->id << " " << type->father->id << " " << type->name;
if (type->color)
stream << " \"" << type->color << "\"";
}
}
-DefineStateTypeEvent::DefineStateTypeEvent(type_t type)
-{
- this->event_type = PAJE_DefineStateType;
- this->timestamp = 0;
- this->type = type;
-
- XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event_type);
-
- //print it
- print();
- delete this;
-}
-
-DefineEventTypeEvent::DefineEventTypeEvent(type_t type)
+void LogStateTypeDefinition(type_t type)
{
- this->event_type = PAJE_DefineEventType;
- this->timestamp = 0;
- this->type = type;
-
- XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event_type);
-
//print it
- print();
-}
-
-
-void DefineStateTypeEvent::print() {
- if (instr_fmt_type == instr_fmt_paje) {
- XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, (int)event_type, TRACE_precision(), timestamp);
+if (instr_fmt_type == instr_fmt_paje) {
+ XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, PAJE_DefineStateType, TRACE_precision(), 0.);
stream << std::fixed << std::setprecision(TRACE_precision());
- stream << (int)this->event_type;
+ stream << PAJE_DefineStateType;
stream << " " << type->id << " " << type->father->id << " " << type->name;
print_row();
} else if (instr_fmt_type == instr_fmt_TI) {
}
}
-void DefineEventTypeEvent::print() {
+
+void LogDefineEventType(type_t type)
+{
+ //print it
if (instr_fmt_type == instr_fmt_paje) {
- XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, (int)event_type, TRACE_precision(), timestamp);
+ XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, PAJE_DefineEventType, TRACE_precision(), 0.);
stream << std::fixed << std::setprecision(TRACE_precision());
- stream << (int)this->event_type;
+ stream << PAJE_DefineEventType;
stream << " " << type->id << " " << type->father->id << " " << type->name;
print_row();
} else if (instr_fmt_type == instr_fmt_TI) {
}
}
-DefineLinkTypeEvent::DefineLinkTypeEvent(type_t type, type_t source, type_t dest)
+void LogLinkTypeDefinition(type_t type, type_t source, type_t dest)
{
- this->event_type = PAJE_DefineLinkType;
- this->timestamp = 0;
- this->type = type;
- this->source = source;
- this->dest = dest;
-
- XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event_type);
-
+ XBT_DEBUG("%s: event_type=%d", __FUNCTION__, PAJE_DefineLinkType);
//print it
- print();
- delete this;
-}
-
-void DefineLinkTypeEvent::print() {
- if (instr_fmt_type == instr_fmt_paje) {
- XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, (int)event_type, TRACE_precision(), timestamp);
+if (instr_fmt_type == instr_fmt_paje) {
+ XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, PAJE_DefineLinkType, TRACE_precision(), 0.);
stream << std::fixed << std::setprecision(TRACE_precision());
- stream << (int)this->event_type;
+ stream << PAJE_DefineLinkType;
stream << " " << type->id << " " << type->father->id << " " << source->id << " " << dest->id << " " << type->name;
print_row();
} else if (instr_fmt_type == instr_fmt_TI) {
}
}
-DefineEntityValueEvent::DefineEntityValueEvent (val_t value)
+void LogEntityValue(value* val)
{
- this->event_type = PAJE_DefineEntityValue;
- this->timestamp = 0;
- this->value = value;
-
- XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event_type);
-
+ XBT_DEBUG("%s: event_type=%d", __FUNCTION__, PAJE_DefineEntityValue);
//print it
- print();
- delete this;
-}
-
-
-void DefineEntityValueEvent::print() {
- if (instr_fmt_type == instr_fmt_paje) {
- XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, (int)event_type, TRACE_precision(), timestamp);
+if (instr_fmt_type == instr_fmt_paje) {
stream << std::fixed << std::setprecision(TRACE_precision());
- stream << (int)this->event_type;
- stream << " " << value->id << " " << value->father->id << " " << value->name;
- if (value->color)
- stream << " \"" << value->color << "\"";
+ stream << PAJE_DefineEntityValue;
+ stream << " " << val->id << " " << val->father->id << " " << val->name;
+ if (val->color)
+ stream << " \"" << val->color << "\"";
print_row();
} else if (instr_fmt_type == instr_fmt_TI) {
/* Nothing to do */
}
}
-CreateContainerEvent::CreateContainerEvent (container_t container)
-{
- this->event_type = PAJE_CreateContainer;
- this->timestamp = SIMIX_get_clock();
- this->container = container;
- XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event_type, this->timestamp);
+void LogContainerCreation (container_t container)
+{
+ double timestamp = SIMIX_get_clock();
- print();
- delete this;
-}
+ XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, PAJE_CreateContainer,timestamp);
-void CreateContainerEvent::print() {
- if (instr_fmt_type == instr_fmt_paje) {
- XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, (int)event_type, TRACE_precision(), timestamp);
+if (instr_fmt_type == instr_fmt_paje) {
stream << std::fixed << std::setprecision(TRACE_precision());
- stream << (int)this->event_type;
- print_timestamp(this);
+ stream << PAJE_CreateContainer;
+ stream << " ";
+ /* prevent 0.0000 in the trace - this was the behavior before the transition to c++ */
+ if (timestamp < 1e-12)
+ stream << 0;
+ else
+ stream << timestamp;
stream << " " << container->id << " " << container->type->id << " " << container->father->id << " \""
<< container->name << "\"";
}
}
-DestroyContainerEvent::DestroyContainerEvent (container_t container)
+void LogContainerDestruction(container_t container)
{
- this->event_type = PAJE_DestroyContainer;
- this->timestamp = SIMIX_get_clock();
- this->container = container;
-
- XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event_type, this->timestamp);
+ double timestamp = SIMIX_get_clock();
- print();
- delete this;
-}
+ XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, PAJE_DestroyContainer, timestamp);
-void DestroyContainerEvent::print() {
- if (instr_fmt_type == instr_fmt_paje) {
- XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, (int)event_type, TRACE_precision(), timestamp);
+if (instr_fmt_type == instr_fmt_paje) {
stream << std::fixed << std::setprecision(TRACE_precision());
- stream << (int)this->event_type;
- print_timestamp(this);
+ stream << PAJE_DestroyContainer;
+ stream << " ";
+ /* prevent 0.0000 in the trace - this was the behavior before the transition to c++ */
+ if (timestamp < 1e-12)
+ stream << 0;
+ else
+ stream << timestamp;
stream << " " << container->type->id << " " << container->id;
-
print_row();
} else if (instr_fmt_type == instr_fmt_TI) {
if (not xbt_cfg_get_boolean("tracing/smpi/format/ti-one-file") || xbt_dict_length(tracing_files) == 1) {
}
}
+
SetVariableEvent::SetVariableEvent (double timestamp, container_t container, type_t type, double value)
{
this->event_type = PAJE_SetVariable;
}
}
-SetStateEvent::SetStateEvent (double timestamp, container_t container, type_t type, val_t value)
+SetStateEvent::SetStateEvent(double timestamp, container_t container, type_t type, value* val)
{
this->event_type = PAJE_SetState;
this->timestamp = timestamp;
this->type = type;
this->container = container;
- this->value = value;
+ this->val = val;
#if HAVE_SMPI
if (xbt_cfg_get_boolean("smpi/trace-call-location")) {
stream << (int)this->event_type;
print_timestamp(this);
stream << " " << type->id << " " << container->id;
- stream << " " << value->id;
+ stream << " " << val->id;
#if HAVE_SMPI
if (xbt_cfg_get_boolean("smpi/trace-call-location")) {
stream << " \"" << filename << "\" " << linenumber;
}
}
-PushStateEvent::PushStateEvent (double timestamp, container_t container, type_t type, val_t value, void* extra)
+PushStateEvent::PushStateEvent(double timestamp, container_t container, type_t type, value* val, void* extra)
{
this->event_type = PAJE_PushState;
this->timestamp = timestamp;
this->type = type;
this->container = container;
- this->value = value;
+ this->val = val;
this->extra_ = extra;
#if HAVE_SMPI
insert_into_buffer (this);
}
-PushStateEvent::PushStateEvent (double timestamp, container_t container, type_t type, val_t value)
- : PushStateEvent(timestamp, container, type, value, nullptr)
+PushStateEvent::PushStateEvent(double timestamp, container_t container, type_t type, value* val)
+ : PushStateEvent(timestamp, container, type, val, nullptr)
{}
void PushStateEvent::print() {
if (instr_fmt_type == instr_fmt_paje) {
stream << (int)this->event_type;
print_timestamp(this);
stream << " " << type->id << " " << container->id;
- stream << " " << value->id;
+ stream << " " << val->id;
if (TRACE_display_sizes()) {
stream << " ";
fprintf(trace_file, "%d ", extra->recvcounts[i]);
fprintf(trace_file, "%d %s %s\n", extra->root, extra->datatype1, extra->datatype2);
break;
+ case TRACING_ALLGATHER: // rank allgather sendcount recvcounts (sendtype) (recvtype)
+ fprintf(trace_file, "%s allGather %d %d %s %s", process_id, extra->send_size, extra->recv_size, extra->datatype1, extra->datatype2);
+ break;
case TRACING_WAITANY:
case TRACING_SENDRECV:
case TRACING_SCATTER:
case TRACING_SCATTERV:
- case TRACING_ALLGATHER:
case TRACING_SCAN:
case TRACING_EXSCAN:
case TRACING_COMM_SIZE:
case TRACING_SSEND:
case TRACING_ISSEND:
default:
- XBT_WARN("Call from %s impossible to translate into replay command : Not implemented (yet)", value->name);
+ XBT_WARN("Call from %s impossible to translate into replay command : Not implemented (yet)", val->name);
break;
}
XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event_type, this->timestamp);
insert_into_buffer (this);
- delete [] this;
+ delete[] this;
}
void ResetStateEvent::print() {
insert_into_buffer (this);
}
-
+EndLinkEvent::~EndLinkEvent()
+{
+ free(value);
+ free(key);
+}
void EndLinkEvent::print() {
if (instr_fmt_type == instr_fmt_paje) {
XBT_DEBUG("%s: event_type=%d, timestamp=%.*f", __FUNCTION__, (int)event_type, TRACE_precision(), timestamp);
}
}
-NewEvent::NewEvent (double timestamp, container_t container, type_t type, val_t value)
+NewEvent::NewEvent(double timestamp, container_t container, type_t type, value* val)
{
this->event_type = PAJE_NewEvent;
this->timestamp = timestamp;
this->type = type;
this->container = container;
- this->value = value;
+ this->val = val;
XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event_type, this->timestamp);
stream << std::fixed << std::setprecision(TRACE_precision());
stream << (int)this->event_type;
print_timestamp(this);
- stream << " " << type->id << " " << container->id << " " << value->id;
+ stream << " " << type->id << " " << container->id << " " << val->id;
print_row();
} else if (instr_fmt_type == instr_fmt_TI) {
/* Nothing to do */