static xbt_dict_t keys;
-static char *_TRACE_smpi_container (int rank, char *container, int n)
+static char *TRACE_smpi_container (int rank, char *container, int n)
{
snprintf (container, n, "rank-%d", rank);
return container;
}
-static char *_TRACE_smpi_put_key (int src, int dst, char *key, int n)
+static char *TRACE_smpi_put_key (int src, int dst, char *key, int n)
{
//get the dynar for src#dst
char aux[100];
return key;
}
-static char *_TRACE_smpi_get_key (int src, int dst, char *key, int n)
+static char *TRACE_smpi_get_key (int src, int dst, char *key, int n)
{
char aux[100];
snprintf (aux, 100, "%d#%d", src, dst);
return key;
}
-void __TRACE_smpi_init ()
+void TRACE_smpi_alloc ()
{
keys = xbt_dict_new();
}
}
}
-void TRACE_smpi_end (void)
+void TRACE_smpi_release (void)
{
+ TRACE_surf_release ();
if (IS_TRACING_SMPI){
TRACE_end();
}
if (!IS_TRACING_SMPI) return;
char str[100];
- _TRACE_smpi_container (rank, str, 100);
+ TRACE_smpi_container (rank, str, 100);
pajeCreateContainer (SIMIX_get_clock(), str, "MPI_PROCESS",
SIMIX_host_get_name(SIMIX_host_self()), str);
}
char str[100];
pajeDestroyContainer (SIMIX_get_clock(), "MPI_PROCESS",
- _TRACE_smpi_container (rank, str, 100));
+ TRACE_smpi_container (rank, str, 100));
}
void TRACE_smpi_collective_in (int rank, int root, const char *operation)
char str[100];
pajePushState (SIMIX_get_clock(), "MPI_STATE",
- _TRACE_smpi_container (rank, str, 100), operation);
+ TRACE_smpi_container (rank, str, 100), operation);
}
void TRACE_smpi_collective_out (int rank, int root, const char *operation)
char str[100];
pajePopState (SIMIX_get_clock(), "MPI_STATE",
- _TRACE_smpi_container (rank, str, 100));
+ TRACE_smpi_container (rank, str, 100));
}
void TRACE_smpi_ptp_in (int rank, int src, int dst, const char *operation)
char str[100];
pajePushState (SIMIX_get_clock(), "MPI_STATE",
- _TRACE_smpi_container (rank, str, 100), operation);
+ TRACE_smpi_container (rank, str, 100), operation);
}
void TRACE_smpi_ptp_out (int rank, int src, int dst, const char *operation)
char str[100];
pajePopState (SIMIX_get_clock(), "MPI_STATE",
- _TRACE_smpi_container (rank, str, 100));
+ TRACE_smpi_container (rank, str, 100));
}
void TRACE_smpi_send (int rank, int src, int dst)
if (!IS_TRACING_SMPI) return;
char key[100], str[100];
- _TRACE_smpi_put_key (src, dst, key, 100);
+ TRACE_smpi_put_key (src, dst, key, 100);
pajeStartLink (SIMIX_get_clock(), "MPI_LINK", "0", "PTP",
- _TRACE_smpi_container (src, str, 100), key);
+ TRACE_smpi_container (src, str, 100), key);
}
void TRACE_smpi_recv (int rank, int src, int dst)
if (!IS_TRACING_SMPI) return;
char key[100], str[100];
- _TRACE_smpi_get_key (src, dst, key, 100);
+ TRACE_smpi_get_key (src, dst, key, 100);
pajeEndLink (SIMIX_get_clock(), "MPI_LINK", "0", "PTP",
- _TRACE_smpi_container (dst, str, 100), key);
+ TRACE_smpi_container (dst, str, 100), key);
}
#endif