#include <stdlib.h>
-#include "parser.h"
#include <ltt/ltt.h>
#include "ltt-private.h"
#include <ltt/trace.h>
#include <ltt/event.h>
-//#include <ltt/type.h>
#include <ltt/ltt-types.h>
#include <ltt/marker.h>
#define PAGE_MASK (~(page_size-1))
#define PAGE_ALIGN(addr) (((addr)+page_size-1)&PAGE_MASK)
+LttTrace *father_trace = NULL;
+
/* set the offset of the fields belonging to the event,
need the information of the archecture */
//void set_fields_offsets(LttTracefile *tf, LttEventType *event_type);
a_event_debug = state;
}
-//void precompute_offsets(LttFacility *fac, LttEventType *event);
-
-#if 0
-/* Functions to parse system.xml file (using glib xml parser) */
-static void parser_start_element (GMarkupParseContext __UNUSED__ *context,
- const gchar *element_name,
- const gchar **attribute_names,
- const gchar **attribute_values,
- gpointer user_data,
- GError **error)
-{
- int i=0;
- LttSystemDescription* des = (LttSystemDescription* )user_data;
- if(strcmp("system", element_name)){
- *error = g_error_new(G_MARKUP_ERROR,
- G_LOG_LEVEL_WARNING,
- "This is not system.xml file");
- return;
- }
-
- while(attribute_names[i]){
- if(strcmp("node_name", attribute_names[i])==0){
- des->node_name = g_strdup(attribute_values[i]);
- }else if(strcmp("domainname", attribute_names[i])==0){
- des->domain_name = g_strdup(attribute_values[i]);
- }else if(strcmp("cpu", attribute_names[i])==0){
- des->nb_cpu = atoi(attribute_values[i]);
- }else if(strcmp("arch_size", attribute_names[i])==0){
- if(strcmp(attribute_values[i],"LP32") == 0) des->size = LTT_LP32;
- else if(strcmp(attribute_values[i],"ILP32") == 0) des->size = LTT_ILP32;
- else if(strcmp(attribute_values[i],"LP64") == 0) des->size = LTT_LP64;
- else if(strcmp(attribute_values[i],"ILP64") == 0) des->size = LTT_ILP64;
- else if(strcmp(attribute_values[i],"UNKNOWN") == 0) des->size = LTT_UNKNOWN;
- }else if(strcmp("endian", attribute_names[i])==0){
- if(strcmp(attribute_values[i],"LITTLE_ENDIAN") == 0)
- des->endian = LTT_LITTLE_ENDIAN;
- else if(strcmp(attribute_values[i],"BIG_ENDIAN") == 0)
- des->endian = LTT_BIG_ENDIAN;
- }else if(strcmp("kernel_name", attribute_names[i])==0){
- des->kernel_name = g_strdup(attribute_values[i]);
- }else if(strcmp("kernel_release", attribute_names[i])==0){
- des->kernel_release = g_strdup(attribute_values[i]);
- }else if(strcmp("kernel_version", attribute_names[i])==0){
- des->kernel_version = g_strdup(attribute_values[i]);
- }else if(strcmp("machine", attribute_names[i])==0){
- des->machine = g_strdup(attribute_values[i]);
- }else if(strcmp("processor", attribute_names[i])==0){
- des->processor = g_strdup(attribute_values[i]);
- }else if(strcmp("hardware_platform", attribute_names[i])==0){
- des->hardware_platform = g_strdup(attribute_values[i]);
- }else if(strcmp("operating_system", attribute_names[i])==0){
- des->operating_system = g_strdup(attribute_values[i]);
- }else if(strcmp("ltt_major_version", attribute_names[i])==0){
- des->ltt_major_version = atoi(attribute_values[i]);
- }else if(strcmp("ltt_minor_version", attribute_names[i])==0){
- des->ltt_minor_version = atoi(attribute_values[i]);
- }else if(strcmp("ltt_block_size", attribute_names[i])==0){
- des->ltt_block_size = atoi(attribute_values[i]);
- }else{
- *error = g_error_new(G_MARKUP_ERROR,
- G_LOG_LEVEL_WARNING,
- "Not a valid attribute");
- return;
- }
- i++;
- }
-}
-
-static void parser_characters (GMarkupParseContext __UNUSED__ *context,
- const gchar *text,
- gsize __UNUSED__ text_len,
- gpointer user_data,
- GError __UNUSED__ **error)
-{
- LttSystemDescription* des = (LttSystemDescription* )user_data;
- des->description = g_strdup(text);
-}
-#endif //0
-
-#if 0
-LttFacility *ltt_trace_get_facility_by_num(LttTrace *t,
- guint num)
-{
- g_assert(num < t->facilities_by_num->len);
-
- return &g_array_index(t->facilities_by_num, LttFacility, num);
-
-}
-#endif //0
-
guint ltt_trace_get_num_cpu(LttTrace *t)
{
return t->num_cpu;
&vheader->start_freq);
t->freq_scale = ltt_get_uint32(LTT_GET_BO(tf),
&vheader->freq_scale);
+ if(father_trace) {
+ t->start_freq = father_trace->start_freq;
+ t->freq_scale = father_trace->freq_scale;
+ }
+ else {
+ father_trace = t;
+ }
t->start_tsc = ltt_get_uint64(LTT_GET_BO(tf),
&vheader->start_tsc);
t->start_monotonic = ltt_get_uint64(LTT_GET_BO(tf),
perror("Error in allocating memory for buffer of tracefile");
goto close_file;
}
- g_assert( ( (guint)tf->buffer.head&(8-1) ) == 0); // make sure it's aligned.
+ g_assert( ( (gulong)tf->buffer.head&(8-1) ) == 0); // make sure it's aligned.
header = (struct ltt_block_start_header*)tf->buffer.head;
int get_tracefile_name_number(gchar *raw_name,
GQuark *name,
guint *num,
- guint *tid,
- guint *pgid,
+ gulong *tid,
+ gulong *pgid,
guint64 *creation)
{
guint raw_name_len = strlen(raw_name);
g_debug("Tracefile file or directory : %s\n", path);
- if(strcmp(rel_path, "/eventdefs") == 0) continue;
+ // if(strcmp(rel_path, "/eventdefs") == 0) continue;
if(S_ISDIR(stat_buf.st_mode)) {
if(ret < 0) continue;
} else if(S_ISREG(stat_buf.st_mode)) {
GQuark name;
- guint num, tid, pgid;
+ guint num;
+ gulong tid, pgid;
guint64 creation;
GArray *group;
- num = tid = pgid = 0;
+ num = 0;
+ tid = pgid = 0;
creation = 0;
if(get_tracefile_name_number(rel_path, &name, &num, &tid, &pgid, &creation))
continue; /* invalid name */
return 0;
}
-/* ltt_get_facility_description
- *
- * Opens the file corresponding to the requested facility (identified by fac_id
- * and checksum).
- *
- * The name searched is : %trace root%/eventdefs/facname_checksum.xml
- *
- * Returns 0 on success, or 1 on failure.
- */
-#if 0
-static int ltt_get_facility_description(LttFacility *f,
- LttTrace *t,
- LttTracefile *fac_tf)
-{
- char desc_file_name[PATH_MAX];
- const gchar *text;
- guint textlen;
- gint err;
- gint arch_spec;
- gint fac_name_len;
-
- text = g_quark_to_string(t->pathname);
- textlen = strlen(text);
-
- if(textlen >= PATH_MAX) goto name_error;
- strcpy(desc_file_name, text);
-
- text = "/eventdefs/";
- textlen+=strlen(text);
- if(textlen >= PATH_MAX) goto name_error;
- strcat(desc_file_name, text);
-
- text = g_quark_to_string(f->name);
- fac_name_len = strlen(text);
- textlen+=fac_name_len;
- if(textlen >= PATH_MAX) goto name_error;
- strcat(desc_file_name, text);
-
- /* arch specific facilities are named like this : name_arch */
- if(fac_name_len+1 < sizeof("_arch"))
- arch_spec = 0;
- else {
- if(!strcmp(&text[fac_name_len+1-sizeof("_arch")], "_arch"))
- arch_spec = 1;
- else
- arch_spec = 0;
- }
-
-#if 0
- text = "_";
- textlen+=strlen(text);
- if(textlen >= PATH_MAX) goto name_error;
- strcat(desc_file_name, text);
-
- err = snprintf(desc_file_name+textlen, PATH_MAX-textlen-1,
- "%u", f->checksum);
- if(err < 0) goto name_error;
-
- textlen=strlen(desc_file_name);
-
-#endif //0
-
- if(arch_spec) {
- switch(t->arch_type) {
- case LTT_ARCH_TYPE_I386:
- text = "_i386";
- break;
- case LTT_ARCH_TYPE_PPC:
- text = "_ppc";
- break;
- case LTT_ARCH_TYPE_SH:
- text = "_sh";
- break;
- case LTT_ARCH_TYPE_S390:
- text = "_s390";
- break;
- case LTT_ARCH_TYPE_MIPS:
- text = "_mips";
- break;
- case LTT_ARCH_TYPE_ARM:
- text = "_arm";
- break;
- case LTT_ARCH_TYPE_PPC64:
- text = "_ppc64";
- break;
- case LTT_ARCH_TYPE_X86_64:
- text = "_x86_64";
- break;
- case LTT_ARCH_TYPE_C2:
- text = "_c2";
- break;
- case LTT_ARCH_TYPE_POWERPC:
- text = "_powerpc";
- break;
- default:
- g_error("Trace from unsupported architecture.");
- }
- textlen+=strlen(text);
- if(textlen >= PATH_MAX) goto name_error;
- strcat(desc_file_name, text);
- }
-
- text = ".xml";
- textlen+=strlen(text);
- if(textlen >= PATH_MAX) goto name_error;
- strcat(desc_file_name, text);
-
- err = ltt_facility_open(f, t, desc_file_name);
- if(err) goto facility_error;
-
- return 0;
-
-facility_error:
-name_error:
- return 1;
-}
-
-static void ltt_fac_ids_destroy(gpointer data)
-{
- GArray *fac_ids = (GArray *)data;
-
- g_array_free(fac_ids, TRUE);
-}
-#endif //0
/* Presumes the tracefile is already seeked at the beginning. It makes sense,
* because it must be done just after the opening */
DIR *dir;
struct dirent *entry;
guint control_found = 0;
- guint eventdefs_found = 0;
struct stat stat_buf;
gchar path[PATH_MAX];
if(strcmp(entry->d_name, "control") == 0) {
control_found = 1;
}
- if(strcmp(entry->d_name, "eventdefs") == 0) {
- eventdefs_found = 1;
- }
}
}
closedir(dir);
- if(!control_found || !eventdefs_found) goto find_error;
+ if(!control_found) goto find_error;
/* Open all the tracefiles */
if(open_tracefiles(t, abs_path, "")) {
}
-/*****************************************************************************
- *Get the system description of the trace
- ****************************************************************************/
-#if 0
-LttFacility *ltt_trace_facility_by_id(LttTrace *t, guint8 id)
-{
- g_assert(id < t->facilities_by_num->len);
- return &g_array_index(t->facilities_by_num, LttFacility, id);
-}
-
-/* ltt_trace_facility_get_by_name
- *
- * Returns the GArray of facility indexes. All the fac_ids that matches the
- * requested facility name.
- *
- * If name is not found, returns NULL.
- */
-GArray *ltt_trace_facility_get_by_name(LttTrace *t, GQuark name)
-{
- return g_datalist_id_get_data(&t->facilities_by_name, name);
-}
-#endif //0
-
-/*****************************************************************************
- * Functions to discover all the event types in the trace
- ****************************************************************************/
-
-#if 0
-unsigned ltt_trace_eventtype_number(LttTrace *t)
-{
- unsigned int i;
- unsigned count = 0;
- unsigned int num = t->facility_number;
- LttFacility * f;
-
- for(i=0;i<num;i++){
- f = (LttFacility*)g_ptr_array_index(t->facilities, i);
- count += f->event_number;
- }
- return count;
-}
-#endif //0
-
-#if 0
-//use an iteration on all the trace facilities, and inside iteration on all the
-//event types in each facilities instead.
-LttEventType *ltt_trace_eventtype_get(LttTrace *t, unsigned evId)
-{
- LttEventType *event_type;
-
- LttFacility * f;
- f = ltt_trace_facility_by_id(t,evId);
-
- if(unlikely(!f)) event_type = NULL;
- else event_type = f->events[evId - f->base_id];
-
- return event_type;
-}
-#endif //0
-
-#if 0
-/*****************************************************************************
- * ltt_trace_find_tracefile
- *
- * Find a tracefile by name and index in the group.
- *
- * Returns a pointer to the tracefiles, else NULL.
- ****************************************************************************/
-
-LttTracefile *ltt_trace_find_tracefile(LttTrace *t, const gchar *name)
-{
-}
-#endif //0
-
/*****************************************************************************
* Get the start time and end time of the trace
****************************************************************************/
if (offset + ((i * 4) + j) <
(long)end_pos - (long)start_pos)
g_printf("%02hhX",
- ((char*)ev->tracefile->buffer.head)[ev->offset + offset + ((i * 4) + j)]);
+ ((char*)start_pos)[offset + ((i * 4) + j)]);
else
g_printf(" ");
g_printf(" ");
/* We keep the LSB of the previous timestamp, to make sure
* we never go back */
event->event_id = event->timestamp >> tf->tscbits;
- event->event_id = event->event_id & ((1 << tf->trace->compact_event_bits) - 1);
+ event->event_id = event->event_id & ((1 << tf->compact_event_bits) - 1);
event->compact_data = event->timestamp >>
- (tf->trace->compact_event_bits + tf->tscbits);
+ (tf->compact_event_bits + tf->tscbits);
//printf("tsc bits %u, ev bits %u init data %u\n",
// tf->tscbits, tf->trace->compact_event_bits, event->compact_data);
/* Put the compact data back in original endianness */
event->event_time = ltt_interpolate_time(tf, event);
if(!tf->compact) {
- event->event_id = *(guint16*)pos;
+ event->event_id = ltt_get_uint16(LTT_GET_BO(tf), pos);
pos += sizeof(guint16);
event->event_size = ltt_get_uint16(LTT_GET_BO(tf), pos);
pos += sizeof(guint16);
} else {
/* Compact event */
+ event->event_size = 0xFFFF;
}
if (a_event_debug)
g_assert(0);
goto map_error;
}
- g_assert( ( (guint)tf->buffer.head&(8-1) ) == 0); // make sure it's aligned.
+ g_assert( ( (gulong)tf->buffer.head&(8-1) ) == 0); // make sure it's aligned.
tf->buffer.index = block_num;
}
info = marker_get_info_from_id(tf->trace, tf->event.event_id);
+
if (tf->event.event_id >= MARKER_CORE_IDS)
g_assert(info != NULL);
tf->event.event_size, tf->event.data_size);
exit(-1);
}
-
-#if 0
- LttEventType *event_type =
- ltt_facility_eventtype_get(f, tf->event.event_id);
-
- if(!event_type) {
- g_warning("Unknown event id %hhu in facility %s in tracefile %s",
- tf->event.event_id,
- g_quark_to_string(f->name),
- g_quark_to_string(tf->name));
- goto event_type_error;
- }
-
- /* Compute the dynamic offsets */
- compute_offsets(tf, f, event_type, &size, tf->event.data);
-
- //g_debug("Event root field : f.e %hhu.%hhu size %zd",
- // tf->event.facility_id,
- // tf->event.event_id, size);
-
-no_offset:
- tf->event.data_size = size;
-
- /* Check consistency between kernel and LTTV structure sizes */
- if(tf->event.event_size == 0xFFFF) {
- /* Event size too big to fit in the event size field */
- tf->event.event_size = tf->event.data_size;
- }
- if (tf->event.data_size != tf->event.event_size) {
- g_error("Kernel/LTTV event size differs for event %s.%s: kernel %u, LTTV %u",
- g_quark_to_string(f->name), g_quark_to_string(event_type->name),
- tf->event.event_size, tf->event.data_size);
- exit(-1);
- }
- //g_assert(tf->event.data_size == tf->event.event_size);
-
- return;
-
-event_type_error:
-event_id_error:
- if(tf->event.event_size == 0xFFFF) {
- g_error("Cannot jump over an unknown event bigger than 0xFFFE bytes");
- }
- /* The facility is unknown : use the kernel information about this event
- * to jump over it. */
- tf->event.data_size = tf->event.event_size;
-#endif //0
}