X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=src%2Ftracer.c;h=a10dded6fa827a92cad900cd7728aaffee0550eb;hb=cf80fbf9d334a8eeebe84fc11ff03c9e1faf8df6;hp=82b4f9901a9053a43b31d248febb10381f675f18;hpb=e3080b2a5726c1c77e192b4f72ae8c2aa740c613;p=libside.git diff --git a/src/tracer.c b/src/tracer.c index 82b4f99..a10dded 100644 --- a/src/tracer.c +++ b/src/tracer.c @@ -9,9 +9,17 @@ #include #include #include +#include #include +#include "visit-arg-vec.h" + +/* TODO: optionally print caller address. */ +static bool print_caller = false; + +#define MAX_NESTING 32 + enum tracer_display_base { TRACER_DISPLAY_BASE_2, TRACER_DISPLAY_BASE_8, @@ -19,33 +27,172 @@ enum tracer_display_base { TRACER_DISPLAY_BASE_16, }; +union int_value { + uint64_t u[NR_SIDE_INTEGER128_SPLIT]; + int64_t s[NR_SIDE_INTEGER128_SPLIT]; +}; + +struct print_ctx { + int nesting; /* Keep track of nesting, useful for tabulations. */ + int item_nr[MAX_NESTING]; /* Item number in current nesting level, useful for comma-separated lists. */ +}; + static struct side_tracer_handle *tracer_handle; +static uint64_t tracer_key; + static -void tracer_print_struct(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc); -static -void tracer_print_struct_sg(const struct side_type_description *type_desc, void *ptr); -static -void tracer_print_array(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc); -static -void tracer_print_vla(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc); -static -void tracer_print_vla_visitor(const struct side_type_description *type_desc, void *app_ctx); -static -void tracer_print_array_fixint(const struct side_type_description *type_desc, const struct side_arg_vec *item); +void tracer_convert_string_to_utf8(const void *p, uint8_t unit_size, enum side_type_label_byte_order byte_order, + size_t *strlen_with_null, + char **output_str) +{ + size_t ret, inbytesleft = 0, outbytesleft, bufsize, input_size; + const char *str = p, *fromcode; + char *inbuf = (char *) p, *outbuf, *buf; + iconv_t cd; + + switch (unit_size) { + case 1: + if (strlen_with_null) + *strlen_with_null = strlen(str) + 1; + *output_str = (char *) str; + return; + case 2: + { + const uint16_t *p16 = p; + + switch (byte_order) { + case SIDE_TYPE_BYTE_ORDER_LE: + { + fromcode = "UTF-16LE"; + break; + } + case SIDE_TYPE_BYTE_ORDER_BE: + { + fromcode = "UTF-16BE"; + break; + } + default: + fprintf(stderr, "Unknown byte order\n"); + abort(); + } + for (; *p16; p16++) + inbytesleft += 2; + input_size = inbytesleft + 2; + /* + * Worse case is U+FFFF UTF-16 (2 bytes) converting to + * { ef, bf, bf } UTF-8 (3 bytes). + */ + bufsize = inbytesleft / 2 * 3 + 1; + break; + } + case 4: + { + const uint32_t *p32 = p; + + switch (byte_order) { + case SIDE_TYPE_BYTE_ORDER_LE: + { + fromcode = "UTF-32LE"; + break; + } + case SIDE_TYPE_BYTE_ORDER_BE: + { + fromcode = "UTF-32BE"; + break; + } + default: + fprintf(stderr, "Unknown byte order\n"); + abort(); + } + for (; *p32; p32++) + inbytesleft += 4; + input_size = inbytesleft + 4; + /* + * Each 4-byte UTF-32 character converts to at most a + * 4-byte UTF-8 character. + */ + bufsize = inbytesleft + 1; + break; + } + default: + fprintf(stderr, "Unknown string unit size %" PRIu8 "\n", unit_size); + abort(); + } + + cd = iconv_open("UTF8", fromcode); + if (cd == (iconv_t) -1) { + perror("iconv_open"); + abort(); + } + buf = malloc(bufsize); + if (!buf) { + abort(); + } + outbuf = (char *) buf; + outbytesleft = bufsize; + ret = iconv(cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft); + if (ret == (size_t) -1) { + perror("iconv"); + abort(); + } + if (inbytesleft) { + fprintf(stderr, "Buffer too small to convert string input\n"); + abort(); + } + (*outbuf++) = '\0'; + if (iconv_close(cd) == -1) { + perror("iconv_close"); + abort(); + } + if (strlen_with_null) + *strlen_with_null = input_size; + *output_str = buf; +} + static -void tracer_print_vla_fixint(const struct side_type_description *type_desc, const struct side_arg_vec *item); +void tracer_print_type_string(const void *p, uint8_t unit_size, enum side_type_label_byte_order byte_order, + size_t *strlen_with_null) +{ + char *output_str = NULL; + + tracer_convert_string_to_utf8(p, unit_size, byte_order, strlen_with_null, &output_str); + printf("\"%s\"", output_str); + if (output_str != p) + free(output_str); +} + static -void tracer_print_dynamic(const struct side_arg_dynamic_vec *dynamic_item); +void side_check_value_u64(union int_value v) +{ + if (v.u[SIDE_INTEGER128_SPLIT_HIGH]) { + fprintf(stderr, "Unexpected integer value\n"); + abort(); + } +} + static -void tracer_print_type(const struct side_type_description *type_desc, const struct side_arg_vec *item); +void side_check_value_s64(union int_value v) +{ + if (v.s[SIDE_INTEGER128_SPLIT_LOW] & (1ULL << 63)) { + if (v.s[SIDE_INTEGER128_SPLIT_HIGH] != ~0LL) { + fprintf(stderr, "Unexpected integer value\n"); + abort(); + } + } else { + if (v.s[SIDE_INTEGER128_SPLIT_HIGH]) { + fprintf(stderr, "Unexpected integer value\n"); + abort(); + } + } +} static -int64_t get_attr_integer_value(const struct side_attr *attr) +int64_t get_attr_integer64_value(const struct side_attr *attr) { int64_t val; - switch (attr->value.type) { + switch (side_enum_get(attr->value.type)) { case SIDE_ATTR_TYPE_U8: val = attr->value.u.integer_value.side_u8; break; @@ -58,6 +205,18 @@ int64_t get_attr_integer_value(const struct side_attr *attr) case SIDE_ATTR_TYPE_U64: val = attr->value.u.integer_value.side_u64; break; + case SIDE_ATTR_TYPE_U128: + { + union int_value v = { + .u = { + [SIDE_INTEGER128_SPLIT_LOW] = attr->value.u.integer_value.side_u128_split[SIDE_INTEGER128_SPLIT_LOW], + [SIDE_INTEGER128_SPLIT_HIGH] = attr->value.u.integer_value.side_u128_split[SIDE_INTEGER128_SPLIT_HIGH], + }, + }; + side_check_value_u64(v); + val = v.u[SIDE_INTEGER128_SPLIT_LOW]; + break; + } case SIDE_ATTR_TYPE_S8: val = attr->value.u.integer_value.side_s8; break; @@ -70,6 +229,18 @@ int64_t get_attr_integer_value(const struct side_attr *attr) case SIDE_ATTR_TYPE_S64: val = attr->value.u.integer_value.side_s64; break; + case SIDE_ATTR_TYPE_S128: + { + union int_value v = { + .s = { + [SIDE_INTEGER128_SPLIT_LOW] = attr->value.u.integer_value.side_s128_split[SIDE_INTEGER128_SPLIT_LOW], + [SIDE_INTEGER128_SPLIT_HIGH] = attr->value.u.integer_value.side_s128_split[SIDE_INTEGER128_SPLIT_HIGH], + }, + }; + side_check_value_s64(v); + val = v.s[SIDE_INTEGER128_SPLIT_LOW]; + break; + } default: fprintf(stderr, "Unexpected attribute type\n"); abort(); @@ -78,15 +249,23 @@ int64_t get_attr_integer_value(const struct side_attr *attr) } static -enum tracer_display_base get_attr_display_base(const struct side_attr *_attr, uint32_t nr_attr) +enum tracer_display_base get_attr_display_base(const struct side_attr *_attr, uint32_t nr_attr, + enum tracer_display_base default_base) { uint32_t i; for (i = 0; i < nr_attr; i++) { const struct side_attr *attr = &_attr[i]; + char *utf8_str = NULL; + bool cmp; - if (!strcmp(attr->key, "std.integer.base")) { - int64_t val = get_attr_integer_value(attr); + tracer_convert_string_to_utf8(side_ptr_get(attr->key.p), attr->key.unit_size, + side_enum_get(attr->key.byte_order), NULL, &utf8_str); + cmp = strcmp(utf8_str, "std.integer.base"); + if (utf8_str != side_ptr_get(attr->key.p)) + free(utf8_str); + if (!cmp) { + int64_t val = get_attr_integer64_value(attr); switch (val) { case 2: @@ -103,110 +282,22 @@ enum tracer_display_base get_attr_display_base(const struct side_attr *_attr, ui } } } - return TRACER_DISPLAY_BASE_10; /* Default */ -} - -static -bool type_to_host_reverse_bo(const struct side_type_description *type_desc) -{ - switch (type_desc->type) { - case SIDE_TYPE_U8: - case SIDE_TYPE_S8: - case SIDE_TYPE_BYTE: - return false; - case SIDE_TYPE_U16: - case SIDE_TYPE_U32: - case SIDE_TYPE_U64: - case SIDE_TYPE_S16: - case SIDE_TYPE_S32: - case SIDE_TYPE_S64: - if (type_desc->u.side_integer.byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - return true; - else - return false; - break; - case SIDE_TYPE_POINTER32: - case SIDE_TYPE_POINTER64: - if (type_desc->u.side_integer.byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - return true; - else - return false; - break; - case SIDE_TYPE_FLOAT_BINARY16: - case SIDE_TYPE_FLOAT_BINARY32: - case SIDE_TYPE_FLOAT_BINARY64: - case SIDE_TYPE_FLOAT_BINARY128: - if (type_desc->u.side_float.byte_order != SIDE_TYPE_FLOAT_WORD_ORDER_HOST) - return true; - else - return false; - break; - default: - fprintf(stderr, "Unexpected type\n"); - abort(); - } -} - -static -bool sg_type_to_host_reverse_bo(const struct side_type_sg_description *sg_type) -{ - switch (sg_type->type) { - case SIDE_TYPE_SG_UNSIGNED_INT: - case SIDE_TYPE_SG_SIGNED_INT: - if (sg_type->u.side_basic.byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - return true; - else - return false; - break; - default: - fprintf(stderr, "Unexpected type\n"); - abort(); - } -} - -static -bool dynamic_type_to_host_reverse_bo(const struct side_arg_dynamic_vec *item) -{ - switch (item->dynamic_type) { - case SIDE_DYNAMIC_TYPE_U8: - case SIDE_DYNAMIC_TYPE_S8: - case SIDE_DYNAMIC_TYPE_BYTE: - return false; - case SIDE_DYNAMIC_TYPE_U16: - case SIDE_DYNAMIC_TYPE_U32: - case SIDE_DYNAMIC_TYPE_U64: - case SIDE_DYNAMIC_TYPE_S16: - case SIDE_DYNAMIC_TYPE_S32: - case SIDE_DYNAMIC_TYPE_S64: - case SIDE_DYNAMIC_TYPE_POINTER32: - case SIDE_DYNAMIC_TYPE_POINTER64: - if (item->u.side_integer.type.byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - return true; - else - return false; - break; - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY16: - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY32: - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY64: - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY128: - if (item->u.side_float.type.byte_order != SIDE_TYPE_FLOAT_WORD_ORDER_HOST) - return true; - else - return false; - break; - default: - fprintf(stderr, "Unexpected type\n"); - abort(); - } + return default_base; /* Default */ } static void tracer_print_attr_type(const char *separator, const struct side_attr *attr) { - printf("{ key%s \"%s\", value%s ", separator, attr->key, separator); - switch (attr->value.type) { + char *utf8_str = NULL; + + tracer_convert_string_to_utf8(side_ptr_get(attr->key.p), attr->key.unit_size, + side_enum_get(attr->key.byte_order), NULL, &utf8_str); + printf("{ key%s \"%s\", value%s ", separator, utf8_str, separator); + if (utf8_str != side_ptr_get(attr->key.p)) + free(utf8_str); + switch (side_enum_get(attr->value.type)) { case SIDE_ATTR_TYPE_BOOL: - printf("%s", attr->value.u.side_bool ? "true" : "false"); + printf("%s", attr->value.u.bool_value ? "true" : "false"); break; case SIDE_ATTR_TYPE_U8: printf("%" PRIu8, attr->value.u.integer_value.side_u8); @@ -220,6 +311,15 @@ void tracer_print_attr_type(const char *separator, const struct side_attr *attr) case SIDE_ATTR_TYPE_U64: printf("%" PRIu64, attr->value.u.integer_value.side_u64); break; + case SIDE_ATTR_TYPE_U128: + if (attr->value.u.integer_value.side_u128_split[SIDE_INTEGER128_SPLIT_HIGH] == 0) { + printf("0x%" PRIx64, attr->value.u.integer_value.side_u128_split[SIDE_INTEGER128_SPLIT_LOW]); + } else { + printf("0x%" PRIx64 "%016" PRIx64, + attr->value.u.integer_value.side_u128_split[SIDE_INTEGER128_SPLIT_HIGH], + attr->value.u.integer_value.side_u128_split[SIDE_INTEGER128_SPLIT_LOW]); + } + break; case SIDE_ATTR_TYPE_S8: printf("%" PRId8, attr->value.u.integer_value.side_s8); break; @@ -232,11 +332,14 @@ void tracer_print_attr_type(const char *separator, const struct side_attr *attr) case SIDE_ATTR_TYPE_S64: printf("%" PRId64, attr->value.u.integer_value.side_s64); break; - case SIDE_ATTR_TYPE_POINTER32: - printf("0x%" PRIx32, attr->value.u.integer_value.side_u32); - break; - case SIDE_ATTR_TYPE_POINTER64: - printf("0x%" PRIx64, attr->value.u.integer_value.side_u64); + case SIDE_ATTR_TYPE_S128: + if (attr->value.u.integer_value.side_s128_split[SIDE_INTEGER128_SPLIT_HIGH] == 0) { + printf("0x%" PRIx64, attr->value.u.integer_value.side_s128_split[SIDE_INTEGER128_SPLIT_LOW]); + } else { + printf("0x%" PRIx64 "%016" PRIx64, + attr->value.u.integer_value.side_s128_split[SIDE_INTEGER128_SPLIT_HIGH], + attr->value.u.integer_value.side_s128_split[SIDE_INTEGER128_SPLIT_LOW]); + } break; case SIDE_ATTR_TYPE_FLOAT_BINARY16: #if __HAVE_FLOAT16 @@ -271,7 +374,9 @@ void tracer_print_attr_type(const char *separator, const struct side_attr *attr) abort(); #endif case SIDE_ATTR_TYPE_STRING: - printf("\"%s\"", (const char *)(uintptr_t) attr->value.u.string); + tracer_print_type_string(side_ptr_get(attr->value.u.string_value.p), + attr->value.u.string_value.unit_size, + side_enum_get(attr->value.u.string_value.byte_order), NULL); break; default: fprintf(stderr, "ERROR: "); @@ -284,116 +389,167 @@ static void print_attributes(const char *prefix_str, const char *separator, const struct side_attr *attr, uint32_t nr_attr) { - int i; + uint32_t i; if (!nr_attr) return; - printf("%s%s [ ", prefix_str, separator); + printf("%s%s [", prefix_str, separator); for (i = 0; i < nr_attr; i++) { - printf("%s", i ? ", " : ""); + printf("%s", i ? ", " : " "); tracer_print_attr_type(separator, &attr[i]); } printf(" ]"); } static -void print_enum(const struct side_type_description *type_desc, const struct side_arg_vec *item) +union int_value tracer_load_integer_value(const struct side_type_integer *type_integer, + const union side_integer_value *value, + uint16_t offset_bits, uint16_t *_len_bits) { - const struct side_enum_mappings *mappings = type_desc->u.side_enum.mappings; - const struct side_type_description *elem_type = type_desc->u.side_enum.elem_type; - int i, print_count = 0; - int64_t value; + union int_value v = {}; + uint16_t len_bits; + bool reverse_bo; - if (elem_type->type != item->type) { - fprintf(stderr, "ERROR: Unexpected enum element type\n"); + if (!type_integer->len_bits) + len_bits = type_integer->integer_size * CHAR_BIT; + else + len_bits = type_integer->len_bits; + if (len_bits + offset_bits > type_integer->integer_size * CHAR_BIT) abort(); - } - switch (item->type) { - case SIDE_TYPE_U8: - value = (int64_t) item->u.integer_value.side_u8; + reverse_bo = side_enum_get(type_integer->byte_order) != SIDE_TYPE_BYTE_ORDER_HOST; + switch (type_integer->integer_size) { + case 1: + if (type_integer->signedness) + v.s[SIDE_INTEGER128_SPLIT_LOW] = value->side_s8; + else + v.u[SIDE_INTEGER128_SPLIT_LOW] = value->side_u8; break; - case SIDE_TYPE_U16: - { - uint16_t v; + case 2: + if (type_integer->signedness) { + int16_t side_s16; - v = item->u.integer_value.side_u16; - if (type_to_host_reverse_bo(elem_type)) - v = side_bswap_16(v); - value = (int64_t) v; - break; - } - case SIDE_TYPE_U32: - { - uint32_t v; + side_s16 = value->side_s16; + if (reverse_bo) + side_s16 = side_bswap_16(side_s16); + v.s[SIDE_INTEGER128_SPLIT_LOW] = side_s16; + } else { + uint16_t side_u16; - v = item->u.integer_value.side_u32; - if (type_to_host_reverse_bo(elem_type)) - v = side_bswap_32(v); - value = (int64_t) v; + side_u16 = value->side_u16; + if (reverse_bo) + side_u16 = side_bswap_16(side_u16); + v.u[SIDE_INTEGER128_SPLIT_LOW] = side_u16; + } break; - } - case SIDE_TYPE_U64: - { - uint64_t v; + case 4: + if (type_integer->signedness) { + int32_t side_s32; - v = item->u.integer_value.side_u64; - if (type_to_host_reverse_bo(elem_type)) - v = side_bswap_64(v); - value = (int64_t) v; - break; - } - case SIDE_TYPE_S8: - value = (int64_t) item->u.integer_value.side_s8; - break; - case SIDE_TYPE_S16: - { - int16_t v; + side_s32 = value->side_s32; + if (reverse_bo) + side_s32 = side_bswap_32(side_s32); + v.s[SIDE_INTEGER128_SPLIT_LOW] = side_s32; + } else { + uint32_t side_u32; - v = item->u.integer_value.side_s16; - if (type_to_host_reverse_bo(elem_type)) - v = side_bswap_16(v); - value = (int64_t) v; + side_u32 = value->side_u32; + if (reverse_bo) + side_u32 = side_bswap_32(side_u32); + v.u[SIDE_INTEGER128_SPLIT_LOW] = side_u32; + } break; - } - case SIDE_TYPE_S32: - { - int32_t v; + case 8: + if (type_integer->signedness) { + int64_t side_s64; - v = item->u.integer_value.side_s32; - if (type_to_host_reverse_bo(elem_type)) - v = side_bswap_32(v); - value = (int64_t) v; - break; - } - case SIDE_TYPE_S64: - { - int64_t v; + side_s64 = value->side_s64; + if (reverse_bo) + side_s64 = side_bswap_64(side_s64); + v.s[SIDE_INTEGER128_SPLIT_LOW] = side_s64; + } else { + uint64_t side_u64; - v = item->u.integer_value.side_s64; - if (type_to_host_reverse_bo(elem_type)) - v = side_bswap_64(v); - value = v; + side_u64 = value->side_u64; + if (reverse_bo) + side_u64 = side_bswap_64(side_u64); + v.u[SIDE_INTEGER128_SPLIT_LOW] = side_u64; + } + break; + case 16: + if (type_integer->signedness) { + int64_t side_s64[NR_SIDE_INTEGER128_SPLIT]; + + side_s64[SIDE_INTEGER128_SPLIT_LOW] = value->side_s128_split[SIDE_INTEGER128_SPLIT_LOW]; + side_s64[SIDE_INTEGER128_SPLIT_HIGH] = value->side_s128_split[SIDE_INTEGER128_SPLIT_HIGH]; + if (reverse_bo) { + side_s64[SIDE_INTEGER128_SPLIT_LOW] = side_bswap_64(side_s64[SIDE_INTEGER128_SPLIT_LOW]); + side_s64[SIDE_INTEGER128_SPLIT_HIGH] = side_bswap_64(side_s64[SIDE_INTEGER128_SPLIT_HIGH]); + v.s[SIDE_INTEGER128_SPLIT_LOW] = side_s64[SIDE_INTEGER128_SPLIT_HIGH]; + v.s[SIDE_INTEGER128_SPLIT_HIGH] = side_s64[SIDE_INTEGER128_SPLIT_LOW]; + } else { + v.s[SIDE_INTEGER128_SPLIT_LOW] = side_s64[SIDE_INTEGER128_SPLIT_LOW]; + v.s[SIDE_INTEGER128_SPLIT_HIGH] = side_s64[SIDE_INTEGER128_SPLIT_HIGH]; + } + } else { + uint64_t side_u64[NR_SIDE_INTEGER128_SPLIT]; + + side_u64[SIDE_INTEGER128_SPLIT_LOW] = value->side_u128_split[SIDE_INTEGER128_SPLIT_LOW]; + side_u64[SIDE_INTEGER128_SPLIT_HIGH] = value->side_u128_split[SIDE_INTEGER128_SPLIT_HIGH]; + if (reverse_bo) { + side_u64[SIDE_INTEGER128_SPLIT_LOW] = side_bswap_64(side_u64[SIDE_INTEGER128_SPLIT_LOW]); + side_u64[SIDE_INTEGER128_SPLIT_HIGH] = side_bswap_64(side_u64[SIDE_INTEGER128_SPLIT_HIGH]); + v.u[SIDE_INTEGER128_SPLIT_LOW] = side_u64[SIDE_INTEGER128_SPLIT_HIGH]; + v.u[SIDE_INTEGER128_SPLIT_HIGH] = side_u64[SIDE_INTEGER128_SPLIT_LOW]; + } else { + v.u[SIDE_INTEGER128_SPLIT_LOW] = side_u64[SIDE_INTEGER128_SPLIT_LOW]; + v.u[SIDE_INTEGER128_SPLIT_HIGH] = side_u64[SIDE_INTEGER128_SPLIT_HIGH]; + } + } break; - } default: - fprintf(stderr, "ERROR: Unexpected enum element type\n"); abort(); } - print_attributes("attr", ":", mappings->attr, mappings->nr_attr); - printf("%s", mappings->nr_attr ? ", " : ""); - tracer_print_type(type_desc->u.side_enum.elem_type, item); + if (type_integer->integer_size <= 8) { + v.u[SIDE_INTEGER128_SPLIT_LOW] >>= offset_bits; + if (len_bits < 64) { + v.u[SIDE_INTEGER128_SPLIT_LOW] &= (1ULL << len_bits) - 1; + if (type_integer->signedness) { + /* Sign-extend. */ + if (v.u[SIDE_INTEGER128_SPLIT_LOW] & (1ULL << (len_bits - 1))) { + v.u[SIDE_INTEGER128_SPLIT_LOW] |= ~((1ULL << len_bits) - 1); + v.u[SIDE_INTEGER128_SPLIT_HIGH] = ~0ULL; + } + } + } + } else { + //TODO: Implement 128-bit integer with len_bits != 128 or nonzero offset_bits + if (len_bits < 128 || offset_bits != 0) + abort(); + } + if (_len_bits) + *_len_bits = len_bits; + return v; +} + +static +void print_enum_labels(const struct side_enum_mappings *mappings, union int_value v) +{ + uint32_t i, print_count = 0; + + side_check_value_s64(v); printf(", labels: [ "); for (i = 0; i < mappings->nr_mappings; i++) { - const struct side_enum_mapping *mapping = &mappings->mappings[i]; + const struct side_enum_mapping *mapping = &side_ptr_get(mappings->mappings)[i]; if (mapping->range_end < mapping->range_begin) { fprintf(stderr, "ERROR: Unexpected enum range: %" PRIu64 "-%" PRIu64 "\n", mapping->range_begin, mapping->range_end); abort(); } - if (value >= mapping->range_begin && value <= mapping->range_end) { + if (v.s[SIDE_INTEGER128_SPLIT_LOW] >= mapping->range_begin && v.s[SIDE_INTEGER128_SPLIT_LOW] <= mapping->range_end) { printf("%s", print_count++ ? ", " : ""); - printf("\"%s\"", mapping->label); + tracer_print_type_string(side_ptr_get(mapping->label.p), mapping->label.unit_size, + side_enum_get(mapping->label.byte_order), NULL); } } if (!print_count) @@ -402,267 +558,311 @@ void print_enum(const struct side_type_description *type_desc, const struct side } static -uint32_t enum_elem_type_to_stride(const struct side_type_description *elem_type) +uint32_t elem_type_to_stride(const struct side_type *elem_type) { uint32_t stride_bit; - switch (elem_type->type) { - case SIDE_TYPE_U8: /* Fall-through */ + switch (side_enum_get(elem_type->type)) { case SIDE_TYPE_BYTE: stride_bit = 8; break; + + case SIDE_TYPE_U8: case SIDE_TYPE_U16: - stride_bit = 16; - break; case SIDE_TYPE_U32: - stride_bit = 32; - break; case SIDE_TYPE_U64: - stride_bit = 64; - break; + case SIDE_TYPE_U128: + case SIDE_TYPE_S8: + case SIDE_TYPE_S16: + case SIDE_TYPE_S32: + case SIDE_TYPE_S64: + case SIDE_TYPE_S128: + return elem_type->u.side_integer.integer_size * CHAR_BIT; default: - fprintf(stderr, "ERROR: Unexpected enum element type\n"); + fprintf(stderr, "ERROR: Unexpected enum bitmap element type\n"); abort(); } return stride_bit; } static -void print_enum_bitmap(const struct side_type_description *type_desc, - const struct side_arg_vec *item) +void print_integer_binary(uint64_t v[NR_SIDE_INTEGER128_SPLIT], int bits) { - const struct side_type_description *elem_type = type_desc->u.side_enum_bitmap.elem_type; - const struct side_enum_bitmap_mappings *side_enum_mappings = type_desc->u.side_enum_bitmap.mappings; - int i, print_count = 0; - uint32_t stride_bit, nr_items; - bool reverse_byte_order = false; - const struct side_arg_vec *array_item; + int bit; - switch (elem_type->type) { - case SIDE_TYPE_U8: /* Fall-through */ - case SIDE_TYPE_BYTE: /* Fall-through */ - case SIDE_TYPE_U16: /* Fall-through */ - case SIDE_TYPE_U32: /* Fall-through */ - case SIDE_TYPE_U64: - stride_bit = enum_elem_type_to_stride(elem_type); - reverse_byte_order = type_to_host_reverse_bo(elem_type); - array_item = item; - nr_items = 1; + printf("0b"); + if (bits > 64) { + bits -= 64; + v[SIDE_INTEGER128_SPLIT_HIGH] <<= 64 - bits; + for (bit = 0; bit < bits; bit++) { + printf("%c", v[SIDE_INTEGER128_SPLIT_HIGH] & (1ULL << 63) ? '1' : '0'); + v[SIDE_INTEGER128_SPLIT_HIGH] <<= 1; + } + bits = 64; + } + v[SIDE_INTEGER128_SPLIT_LOW] <<= 64 - bits; + for (bit = 0; bit < bits; bit++) { + printf("%c", v[SIDE_INTEGER128_SPLIT_LOW] & (1ULL << 63) ? '1' : '0'); + v[SIDE_INTEGER128_SPLIT_LOW] <<= 1; + } +} + +static +void tracer_print_type_header(const char *separator, + const struct side_attr *attr, uint32_t nr_attr) +{ + print_attributes("attr", separator, attr, nr_attr); + printf("%s", nr_attr ? ", " : ""); + printf("value%s ", separator); +} + +static +void tracer_print_type_bool(const char *separator, + const struct side_type_bool *type_bool, + const union side_bool_value *value, + uint16_t offset_bits) +{ + uint32_t len_bits; + bool reverse_bo; + uint64_t v; + + if (!type_bool->len_bits) + len_bits = type_bool->bool_size * CHAR_BIT; + else + len_bits = type_bool->len_bits; + if (len_bits + offset_bits > type_bool->bool_size * CHAR_BIT) + abort(); + reverse_bo = side_enum_get(type_bool->byte_order) != SIDE_TYPE_BYTE_ORDER_HOST; + switch (type_bool->bool_size) { + case 1: + v = value->side_bool8; break; - case SIDE_TYPE_ARRAY: - stride_bit = enum_elem_type_to_stride(elem_type->u.side_array.elem_type); - reverse_byte_order = type_to_host_reverse_bo(elem_type->u.side_array.elem_type); - array_item = item->u.side_array->sav; - nr_items = type_desc->u.side_array.length; + case 2: + { + uint16_t side_u16; + + side_u16 = value->side_bool16; + if (reverse_bo) + side_u16 = side_bswap_16(side_u16); + v = side_u16; break; - case SIDE_TYPE_VLA: - stride_bit = enum_elem_type_to_stride(elem_type->u.side_vla.elem_type); - reverse_byte_order = type_to_host_reverse_bo(elem_type->u.side_vla.elem_type); - array_item = item->u.side_vla->sav; - nr_items = item->u.side_vla->len; + } + case 4: + { + uint32_t side_u32; + + side_u32 = value->side_bool32; + if (reverse_bo) + side_u32 = side_bswap_32(side_u32); + v = side_u32; + break; + } + case 8: + { + uint64_t side_u64; + + side_u64 = value->side_bool64; + if (reverse_bo) + side_u64 = side_bswap_64(side_u64); + v = side_u64; break; + } default: - fprintf(stderr, "ERROR: Unexpected enum element type\n"); abort(); } + v >>= offset_bits; + if (len_bits < 64) + v &= (1ULL << len_bits) - 1; + tracer_print_type_header(separator, side_ptr_get(type_bool->attr), type_bool->nr_attr); + printf("%s", v ? "true" : "false"); +} - print_attributes("attr", ":", side_enum_mappings->attr, side_enum_mappings->nr_attr); - printf("%s", side_enum_mappings->nr_attr ? ", " : ""); - printf("labels: [ "); - for (i = 0; i < side_enum_mappings->nr_mappings; i++) { - const struct side_enum_bitmap_mapping *mapping = &side_enum_mappings->mappings[i]; - bool match = false; - uint64_t bit; +/* 2^128 - 1 */ +#define U128_BASE_10_ARRAY_LEN sizeof("340282366920938463463374607431768211455") +/* -2^127 */ +#define S128_BASE_10_ARRAY_LEN sizeof("-170141183460469231731687303715884105728") - if (mapping->range_end < mapping->range_begin) { - fprintf(stderr, "ERROR: Unexpected enum bitmap range: %" PRIu64 "-%" PRIu64 "\n", - mapping->range_begin, mapping->range_end); - abort(); +/* + * u128_tostring_base_10 is inspired from https://stackoverflow.com/a/4364365 + */ +static +void u128_tostring_base_10(union int_value v, char str[U128_BASE_10_ARRAY_LEN]) +{ + int d[39] = {}, i, j, str_i = 0; + + for (i = 63; i > -1; i--) { + if ((v.u[SIDE_INTEGER128_SPLIT_HIGH] >> i) & 1) + d[0]++; + for (j = 0; j < 39; j++) + d[j] *= 2; + for (j = 0; j < 38; j++) { + d[j + 1] += d[j] / 10; + d[j] %= 10; } - for (bit = mapping->range_begin; bit <= mapping->range_end; bit++) { - if (bit > (nr_items * stride_bit) - 1) - break; - switch (stride_bit) { - case 8: - { - uint8_t v = array_item[bit / 8].u.integer_value.side_u8; - if (v & (1ULL << (bit % 8))) { - match = true; - goto match; - } - break; - } - case 16: - { - uint16_t v = array_item[bit / 16].u.integer_value.side_u16; - if (reverse_byte_order) - v = side_bswap_16(v); - if (v & (1ULL << (bit % 16))) { - match = true; - goto match; - } - break; - } - case 32: - { - uint32_t v = array_item[bit / 32].u.integer_value.side_u32; - if (reverse_byte_order) - v = side_bswap_32(v); - if (v & (1ULL << (bit % 32))) { - match = true; - goto match; - } - break; - } - case 64: - { - uint64_t v = array_item[bit / 64].u.integer_value.side_u64; - if (reverse_byte_order) - v = side_bswap_64(v); - if (v & (1ULL << (bit % 64))) { - match = true; - goto match; - } - break; - } - default: - abort(); - } + } + for (i = 63; i > -1; i--) { + if ((v.u[SIDE_INTEGER128_SPLIT_LOW] >> i) & 1) + d[0]++; + if (i > 0) { + for (j = 0; j < 39; j++) + d[j] *= 2; } -match: - if (match) { - printf("%s", print_count++ ? ", " : ""); - printf("\"%s\"", mapping->label); + for (j = 0; j < 38; j++) { + d[j + 1] += d[j] / 10; + d[j] %= 10; } } - if (!print_count) - printf(""); - printf(" ]"); + for (i = 38; i > 0; i--) + if (d[i] > 0) + break; + for (; i > -1; i--) { + str[str_i++] = '0' + d[i]; + } + str[str_i] = '\0'; } static -void print_integer_binary(uint64_t v, int bits) +void s128_tostring_base_10(union int_value v, char str[S128_BASE_10_ARRAY_LEN]) { - int i; + uint64_t low, high, tmp; - printf("0b"); - v <<= 64 - bits; - for (i = 0; i < bits; i++) { - printf("%c", v & (1ULL << 63) ? '1' : '0'); - v <<= 1; + if (v.s[SIDE_INTEGER128_SPLIT_HIGH] >= 0) { + /* Positive. */ + v.u[SIDE_INTEGER128_SPLIT_LOW] = (uint64_t) v.s[SIDE_INTEGER128_SPLIT_LOW]; + v.u[SIDE_INTEGER128_SPLIT_HIGH] = (uint64_t) v.s[SIDE_INTEGER128_SPLIT_HIGH]; + u128_tostring_base_10(v, str); + return; + } + + /* Negative. */ + + /* Special-case minimum value, which has no positive signed representation. */ + if ((v.s[SIDE_INTEGER128_SPLIT_HIGH] == INT64_MIN) && (v.s[SIDE_INTEGER128_SPLIT_LOW] == 0)) { + memcpy(str, "-170141183460469231731687303715884105728", S128_BASE_10_ARRAY_LEN); + return; } + /* Convert from two's complement. */ + high = ~(uint64_t) v.s[SIDE_INTEGER128_SPLIT_HIGH]; + low = ~(uint64_t) v.s[SIDE_INTEGER128_SPLIT_LOW]; + tmp = low + 1; + if (tmp < low) { + high++; + /* Clear overflow to sign bit. */ + high &= ~0x8000000000000000ULL; + } + v.u[SIDE_INTEGER128_SPLIT_LOW] = tmp; + v.u[SIDE_INTEGER128_SPLIT_HIGH] = high; + str[0] = '-'; + u128_tostring_base_10(v, str + 1); } +/* 2^128 - 1 */ +#define U128_BASE_8_ARRAY_LEN sizeof("3777777777777777777777777777777777777777777") + static -void tracer_print_type_header(const char *separator, - const struct side_attr *attr, uint32_t nr_attr) +void u128_tostring_base_8(union int_value v, char str[U128_BASE_8_ARRAY_LEN]) { - print_attributes("attr", separator, attr, nr_attr); - printf("%s", nr_attr ? ", " : ""); - printf("value%s ", separator); + int d[43] = {}, i, j, str_i = 0; + + for (i = 63; i > -1; i--) { + if ((v.u[SIDE_INTEGER128_SPLIT_HIGH] >> i) & 1) + d[0]++; + for (j = 0; j < 43; j++) + d[j] *= 2; + for (j = 0; j < 42; j++) { + d[j + 1] += d[j] / 8; + d[j] %= 8; + } + } + for (i = 63; i > -1; i--) { + if ((v.u[SIDE_INTEGER128_SPLIT_LOW] >> i) & 1) + d[0]++; + if (i > 0) { + for (j = 0; j < 43; j++) + d[j] *= 2; + } + for (j = 0; j < 42; j++) { + d[j + 1] += d[j] / 8; + d[j] %= 8; + } + } + for (i = 42; i > 0; i--) + if (d[i] > 0) + break; + for (; i > -1; i--) { + str[str_i++] = '0' + d[i]; + } + str[str_i] = '\0'; } static void tracer_print_type_integer(const char *separator, const struct side_type_integer *type_integer, - const union side_integer_value *value) + const union side_integer_value *value, + uint16_t offset_bits, + enum tracer_display_base default_base) { enum tracer_display_base base; - union { - uint64_t v_unsigned; - int64_t v_signed; - } v; - - if (!type_integer->len_bits || - type_integer->len_bits > type_integer->integer_size_bits) - abort(); - base = get_attr_display_base(type_integer->attr, - type_integer->nr_attr); - switch (type_integer->integer_size_bits) { - case 8: - if (type_integer->signedness) - v.v_signed = value->side_s8; - else - v.v_unsigned = value->side_u8; - break; - case 16: - if (type_integer->signedness) { - int16_t side_s16; - - side_s16 = value->side_s16; - if (type_integer->byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - side_s16 = side_bswap_16(side_s16); - v.v_signed = side_s16; - } else { - uint16_t side_u16; + union int_value v; + uint16_t len_bits; - side_u16 = value->side_u16; - if (type_integer->byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - side_u16 = side_bswap_16(side_u16); - v.v_unsigned = side_u16; - } + v = tracer_load_integer_value(type_integer, value, offset_bits, &len_bits); + tracer_print_type_header(separator, side_ptr_get(type_integer->attr), type_integer->nr_attr); + base = get_attr_display_base(side_ptr_get(type_integer->attr), type_integer->nr_attr, default_base); + switch (base) { + case TRACER_DISPLAY_BASE_2: + print_integer_binary(v.u, len_bits); break; - case 32: - if (type_integer->signedness) { - int32_t side_s32; - - side_s32 = value->side_s32; - if (type_integer->byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - side_s32 = side_bswap_32(side_s32); - v.v_signed = side_s32; - } else { - uint32_t side_u32; - - side_u32 = value->side_u32; - if (type_integer->byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - side_u32 = side_bswap_32(side_u32); - v.v_unsigned = side_u32; + case TRACER_DISPLAY_BASE_8: + /* Clear sign bits beyond len_bits */ + if (len_bits < 64) { + v.u[SIDE_INTEGER128_SPLIT_LOW] &= (1ULL << len_bits) - 1; + v.u[SIDE_INTEGER128_SPLIT_HIGH] = 0; + } else if (len_bits < 128) { + v.u[SIDE_INTEGER128_SPLIT_HIGH] &= (1ULL << (len_bits - 64)) - 1; } - break; - case 64: - if (type_integer->signedness) { - int64_t side_s64; - - side_s64 = value->side_s64; - if (type_integer->byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - side_s64 = side_bswap_64(side_s64); - v.v_signed = side_s64; + if (len_bits <= 64) { + printf("0o%" PRIo64, v.u[SIDE_INTEGER128_SPLIT_LOW]); } else { - uint64_t side_u64; + char str[U128_BASE_8_ARRAY_LEN]; - side_u64 = value->side_u64; - if (type_integer->byte_order != SIDE_TYPE_BYTE_ORDER_HOST) - side_u64 = side_bswap_64(side_u64); - v.v_unsigned = side_u64; + u128_tostring_base_8(v, str); + printf("0o%s", str); } break; - default: - abort(); - } - if (type_integer->len_bits < 64) - v.v_unsigned &= (1ULL << type_integer->len_bits) - 1; - tracer_print_type_header(separator, type_integer->attr, type_integer->nr_attr); - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v.v_unsigned, type_integer->len_bits); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo64, v.v_unsigned); - break; case TRACER_DISPLAY_BASE_10: - if (type_integer->signedness) { - /* Sign-extend. */ - if (type_integer->len_bits < 64) { - if (v.v_unsigned & (1ULL << (type_integer->len_bits - 1))) - v.v_unsigned |= ~((1ULL << type_integer->len_bits) - 1); - } - printf("%" PRId64, v.v_signed); + if (len_bits <= 64) { + if (type_integer->signedness) + printf("%" PRId64, v.s[SIDE_INTEGER128_SPLIT_LOW]); + else + printf("%" PRIu64, v.u[SIDE_INTEGER128_SPLIT_LOW]); } else { - printf("%" PRIu64, v.v_unsigned); + if (type_integer->signedness) { + char str[S128_BASE_10_ARRAY_LEN]; + s128_tostring_base_10(v, str); + printf("%s", str); + } else { + char str[U128_BASE_10_ARRAY_LEN]; + u128_tostring_base_10(v, str); + printf("%s", str); + } } break; case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx64, v.v_unsigned); + /* Clear sign bits beyond len_bits */ + if (len_bits < 64) { + v.u[SIDE_INTEGER128_SPLIT_LOW] &= (1ULL << len_bits) - 1; + v.u[SIDE_INTEGER128_SPLIT_HIGH] = 0; + } else if (len_bits < 128) { + v.u[SIDE_INTEGER128_SPLIT_HIGH] &= (1ULL << (len_bits - 64)) - 1; + } + if (len_bits <= 64 || v.u[SIDE_INTEGER128_SPLIT_HIGH] == 0) { + printf("0x%" PRIx64, v.u[SIDE_INTEGER128_SPLIT_LOW]); + } else { + printf("0x%" PRIx64 "%016" PRIx64, + v.u[SIDE_INTEGER128_SPLIT_HIGH], + v.u[SIDE_INTEGER128_SPLIT_LOW]); + } break; default: abort(); @@ -670,170 +870,27 @@ void tracer_print_type_integer(const char *separator, } static -void tracer_print_type(const struct side_type_description *type_desc, const struct side_arg_vec *item) +void tracer_print_type_float(const char *separator, + const struct side_type_float *type_float, + const union side_float_value *value) { - enum side_type type; - - switch (type_desc->type) { - case SIDE_TYPE_ARRAY: - switch (item->type) { - case SIDE_TYPE_ARRAY_U8: - case SIDE_TYPE_ARRAY_U16: - case SIDE_TYPE_ARRAY_U32: - case SIDE_TYPE_ARRAY_U64: - case SIDE_TYPE_ARRAY_S8: - case SIDE_TYPE_ARRAY_S16: - case SIDE_TYPE_ARRAY_S32: - case SIDE_TYPE_ARRAY_S64: - case SIDE_TYPE_ARRAY_POINTER32: - case SIDE_TYPE_ARRAY_POINTER64: - case SIDE_TYPE_ARRAY_BYTE: - case SIDE_TYPE_ARRAY: - break; - default: - fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); - abort(); - break; - } - break; - - case SIDE_TYPE_VLA: - switch (item->type) { - case SIDE_TYPE_VLA_U8: - case SIDE_TYPE_VLA_U16: - case SIDE_TYPE_VLA_U32: - case SIDE_TYPE_VLA_U64: - case SIDE_TYPE_VLA_S8: - case SIDE_TYPE_VLA_S16: - case SIDE_TYPE_VLA_S32: - case SIDE_TYPE_VLA_S64: - case SIDE_TYPE_VLA_BYTE: - case SIDE_TYPE_VLA_POINTER32: - case SIDE_TYPE_VLA_POINTER64: - case SIDE_TYPE_VLA: - break; - default: - fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); - abort(); - break; - } - break; - - case SIDE_TYPE_ENUM: - switch (item->type) { - case SIDE_TYPE_U8: - case SIDE_TYPE_U16: - case SIDE_TYPE_U32: - case SIDE_TYPE_U64: - case SIDE_TYPE_S8: - case SIDE_TYPE_S16: - case SIDE_TYPE_S32: - case SIDE_TYPE_S64: - break; - default: - fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); - abort(); - break; - } - break; - - case SIDE_TYPE_ENUM_BITMAP: - switch (item->type) { - case SIDE_TYPE_U8: - case SIDE_TYPE_BYTE: - case SIDE_TYPE_U16: - case SIDE_TYPE_U32: - case SIDE_TYPE_U64: - case SIDE_TYPE_ARRAY: - case SIDE_TYPE_VLA: - break; - default: - fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); - abort(); - break; - } - break; - - default: - if (type_desc->type != item->type) { - fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); - abort(); - } - break; - } - - if (type_desc->type == SIDE_TYPE_ENUM || type_desc->type == SIDE_TYPE_ENUM_BITMAP) - type = type_desc->type; - else - type = item->type; - - printf("{ "); - switch (type) { - case SIDE_TYPE_BOOL: - tracer_print_type_header(":", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", item->u.side_bool ? "true" : "false"); - break; - - case SIDE_TYPE_U8: - case SIDE_TYPE_U16: - case SIDE_TYPE_U32: - case SIDE_TYPE_U64: - case SIDE_TYPE_S8: - case SIDE_TYPE_S16: - case SIDE_TYPE_S32: - case SIDE_TYPE_S64: - tracer_print_type_integer(":", &type_desc->u.side_integer, - &item->u.integer_value); - break; - - case SIDE_TYPE_POINTER32: - { - uint32_t v; - - v = item->u.integer_value.side_u32; - if (type_to_host_reverse_bo(type_desc)) - v = side_bswap_32(v); - tracer_print_type_header(":", type_desc->u.side_integer.attr, type_desc->u.side_integer.nr_attr); - printf("0x%" PRIx32, v); - break; - } - case SIDE_TYPE_POINTER64: - { - uint64_t v; - - v = item->u.integer_value.side_u64; - if (type_to_host_reverse_bo(type_desc)) - v = side_bswap_64(v); - tracer_print_type_header(":", type_desc->u.side_integer.attr, type_desc->u.side_integer.nr_attr); - printf("0x%" PRIx64, v); - break; - } - case SIDE_TYPE_BYTE: - tracer_print_type_header(":", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("0x%" PRIx8, item->u.side_byte); - break; - - case SIDE_TYPE_ENUM: - print_enum(type_desc, item); - break; - - case SIDE_TYPE_ENUM_BITMAP: - print_enum_bitmap(type_desc, item); - break; + bool reverse_bo; - case SIDE_TYPE_FLOAT_BINARY16: + tracer_print_type_header(separator, side_ptr_get(type_float->attr), type_float->nr_attr); + reverse_bo = side_enum_get(type_float->byte_order) != SIDE_TYPE_FLOAT_WORD_ORDER_HOST; + switch (type_float->float_size) { + case 2: { #if __HAVE_FLOAT16 union { _Float16 f; uint16_t u; } float16 = { - .f = item->u.float_value.side_float_binary16, + .f = value->side_float_binary16, }; - if (type_to_host_reverse_bo(type_desc)) + if (reverse_bo) float16.u = side_bswap_16(float16.u); - tracer_print_type_header(":", type_desc->u.side_float.attr, type_desc->u.side_float.nr_attr); printf("%g", (double) float16.f); break; #else @@ -841,19 +898,18 @@ void tracer_print_type(const struct side_type_description *type_desc, const stru abort(); #endif } - case SIDE_TYPE_FLOAT_BINARY32: + case 4: { #if __HAVE_FLOAT32 union { _Float32 f; uint32_t u; } float32 = { - .f = item->u.float_value.side_float_binary32, + .f = value->side_float_binary32, }; - if (type_to_host_reverse_bo(type_desc)) + if (reverse_bo) float32.u = side_bswap_32(float32.u); - tracer_print_type_header(":", type_desc->u.side_float.attr, type_desc->u.side_float.nr_attr); printf("%g", (double) float32.f); break; #else @@ -861,19 +917,18 @@ void tracer_print_type(const struct side_type_description *type_desc, const stru abort(); #endif } - case SIDE_TYPE_FLOAT_BINARY64: + case 8: { #if __HAVE_FLOAT64 union { _Float64 f; uint64_t u; } float64 = { - .f = item->u.float_value.side_float_binary64, + .f = value->side_float_binary64, }; - if (type_to_host_reverse_bo(type_desc)) + if (reverse_bo) float64.u = side_bswap_64(float64.u); - tracer_print_type_header(":", type_desc->u.side_float.attr, type_desc->u.side_float.nr_attr); printf("%g", (double) float64.f); break; #else @@ -881,19 +936,18 @@ void tracer_print_type(const struct side_type_description *type_desc, const stru abort(); #endif } - case SIDE_TYPE_FLOAT_BINARY128: + case 16: { #if __HAVE_FLOAT128 union { _Float128 f; char arr[16]; } float128 = { - .f = item->u.float_value.side_float_binary128, + .f = value->side_float_binary128, }; - if (type_to_host_reverse_bo(type_desc)) + if (reverse_bo) side_bswap_128p(float128.arr); - tracer_print_type_header(":", type_desc->u.side_float.attr, type_desc->u.side_float.nr_attr); printf("%Lg", (long double) float128.f); break; #else @@ -901,1296 +955,771 @@ void tracer_print_type(const struct side_type_description *type_desc, const stru abort(); #endif } - case SIDE_TYPE_STRING: - tracer_print_type_header(":", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("\"%s\"", (const char *)(uintptr_t) item->u.string); - break; - case SIDE_TYPE_STRUCT: - tracer_print_struct(type_desc, item->u.side_struct); - break; - case SIDE_TYPE_STRUCT_SG: - tracer_print_struct_sg(type_desc, item->u.side_struct_sg_ptr); - break; - case SIDE_TYPE_ARRAY: - tracer_print_array(type_desc, item->u.side_array); - break; - case SIDE_TYPE_VLA: - tracer_print_vla(type_desc, item->u.side_vla); - break; - case SIDE_TYPE_VLA_VISITOR: - tracer_print_vla_visitor(type_desc, item->u.side_vla_app_visitor_ctx); - break; - case SIDE_TYPE_ARRAY_U8: - case SIDE_TYPE_ARRAY_U16: - case SIDE_TYPE_ARRAY_U32: - case SIDE_TYPE_ARRAY_U64: - case SIDE_TYPE_ARRAY_S8: - case SIDE_TYPE_ARRAY_S16: - case SIDE_TYPE_ARRAY_S32: - case SIDE_TYPE_ARRAY_S64: - case SIDE_TYPE_ARRAY_BYTE: - case SIDE_TYPE_ARRAY_POINTER32: - case SIDE_TYPE_ARRAY_POINTER64: - tracer_print_array_fixint(type_desc, item); - break; - case SIDE_TYPE_VLA_U8: - case SIDE_TYPE_VLA_U16: - case SIDE_TYPE_VLA_U32: - case SIDE_TYPE_VLA_U64: - case SIDE_TYPE_VLA_S8: - case SIDE_TYPE_VLA_S16: - case SIDE_TYPE_VLA_S32: - case SIDE_TYPE_VLA_S64: - case SIDE_TYPE_VLA_BYTE: - case SIDE_TYPE_VLA_POINTER32: - case SIDE_TYPE_VLA_POINTER64: - tracer_print_vla_fixint(type_desc, item); - break; - case SIDE_TYPE_DYNAMIC: - tracer_print_type_header(":", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - tracer_print_dynamic(&item->u.dynamic); - break; default: - fprintf(stderr, ""); + fprintf(stderr, "ERROR: Unknown float size\n"); abort(); } - printf(" }"); } static -void tracer_print_field(const struct side_event_field *item_desc, const struct side_arg_vec *item) +void push_nesting(struct print_ctx *ctx) +{ + if (++ctx->nesting >= MAX_NESTING) { + fprintf(stderr, "ERROR: Nesting too deep.\n"); + abort(); + } + ctx->item_nr[ctx->nesting] = 0; +} + +static +void pop_nesting(struct print_ctx *ctx) +{ + ctx->item_nr[ctx->nesting] = 0; + if (ctx->nesting-- <= 0) { + fprintf(stderr, "ERROR: Nesting underflow.\n"); + abort(); + } +} + +static +int get_nested_item_nr(struct print_ctx *ctx) +{ + return ctx->item_nr[ctx->nesting]; +} + +static +void inc_nested_item_nr(struct print_ctx *ctx) { - printf("%s: ", item_desc->field_name); - tracer_print_type(&item_desc->side_type, item); + ctx->item_nr[ctx->nesting]++; } static -void tracer_print_struct(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc) +void tracer_print_event(enum side_type_visitor_location loc, + const struct side_event_description *desc, + const struct side_arg_vec *side_arg_vec, + const struct side_arg_dynamic_struct *var_struct __attribute__((unused)), + void *caller_addr, void *priv __attribute__((unused))) { - const struct side_arg_vec *sav = sav_desc->sav; - uint32_t side_sav_len = sav_desc->len; - int i; + uint32_t side_sav_len = side_arg_vec->len; - if (type_desc->u.side_struct->nr_fields != side_sav_len) { - fprintf(stderr, "ERROR: number of fields mismatch between description and arguments of structure\n"); + if (desc->nr_fields != side_sav_len) { + fprintf(stderr, "ERROR: number of fields mismatch between description and arguments\n"); abort(); } - print_attributes("attr", ":", type_desc->u.side_struct->attr, type_desc->u.side_struct->nr_attr); - printf("%s", type_desc->u.side_struct->nr_attr ? ", " : ""); - printf("fields: { "); - for (i = 0; i < side_sav_len; i++) { - printf("%s", i ? ", " : ""); - tracer_print_field(&type_desc->u.side_struct->fields[i], &sav[i]); + + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + if (print_caller) + printf("caller: [%p], ", caller_addr); + printf("provider: %s, event: %s", + side_ptr_get(desc->provider_name), + side_ptr_get(desc->event_name)); + print_attributes(", attr", ":", side_ptr_get(desc->attr), desc->nr_attr); + break; + case SIDE_TYPE_VISITOR_AFTER: + printf("\n"); + break; } - printf(" }"); } static -void tracer_print_sg_integer_type_header(const struct side_type_sg_description *sg_type) +void tracer_print_static_fields(enum side_type_visitor_location loc, + const struct side_arg_vec *side_arg_vec, + void *priv) { - print_attributes("attr", ":", sg_type->u.side_basic.attr, sg_type->u.side_basic.nr_attr); - printf("%s", sg_type->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); + struct print_ctx *ctx = (struct print_ctx *) priv; + uint32_t side_sav_len = side_arg_vec->len; + + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + printf("%s", side_sav_len ? ", fields: {" : ""); + push_nesting(ctx); + break; + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); + if (side_sav_len) + printf(" }"); + break; + } } static -void tracer_print_sg_type(const struct side_type_sg_description *sg_type, void *_ptr) +void tracer_print_variadic_fields(enum side_type_visitor_location loc, + const struct side_arg_dynamic_struct *var_struct, + void *priv) { - enum tracer_display_base base = TRACER_DISPLAY_BASE_10; - const char *ptr = (const char *) _ptr; + struct print_ctx *ctx = (struct print_ctx *) priv; + uint32_t var_struct_len = var_struct->len; - switch (sg_type->type) { - case SIDE_TYPE_SG_UNSIGNED_INT: - case SIDE_TYPE_SG_SIGNED_INT: - base = get_attr_display_base(sg_type->u.side_basic.attr, - sg_type->u.side_basic.nr_attr); + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + print_attributes(", attr ", "::", side_ptr_get(var_struct->attr), var_struct->nr_attr); + printf("%s", var_struct_len ? ", fields:: {" : ""); + push_nesting(ctx); break; - default: + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); + if (var_struct_len) + printf(" }"); break; } +} - printf("{ "); - switch (sg_type->type) { - case SIDE_TYPE_SG_UNSIGNED_INT: - { - tracer_print_sg_integer_type_header(sg_type); - switch (sg_type->u.side_basic.integer_size_bits) { - case 8: - { - uint8_t v; +static +void tracer_print_field(enum side_type_visitor_location loc, const struct side_event_field *item_desc, void *priv) +{ + struct print_ctx *ctx = (struct print_ctx *) priv; - if (!sg_type->u.side_basic.len_bits || sg_type->u.side_basic.len_bits + sg_type->u.side_basic.offset_bits > 8) - abort(); - memcpy(&v, ptr + sg_type->u.side_basic.integer_offset, sizeof(v)); - v >>= sg_type->u.side_basic.offset_bits; - if (sg_type->u.side_basic.len_bits < 8) - v &= (1U << sg_type->u.side_basic.len_bits) - 1; - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, sg_type->u.side_basic.len_bits); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo8, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRIu8, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx8, v); - break; - default: - abort(); - } - break; - } - case 16: - { - uint16_t v; + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + if (get_nested_item_nr(ctx) != 0) + printf(","); + printf(" %s: { ", side_ptr_get(item_desc->field_name)); + break; + case SIDE_TYPE_VISITOR_AFTER: + printf(" }"); + inc_nested_item_nr(ctx); + break; + } +} - if (!sg_type->u.side_basic.len_bits || sg_type->u.side_basic.len_bits + sg_type->u.side_basic.offset_bits > 16) - abort(); - memcpy(&v, ptr + sg_type->u.side_basic.integer_offset, sizeof(v)); - if (sg_type_to_host_reverse_bo(sg_type)) - v = side_bswap_16(v); - v >>= sg_type->u.side_basic.offset_bits; - if (sg_type->u.side_basic.len_bits < 16) - v &= (1U << sg_type->u.side_basic.len_bits) - 1; - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, sg_type->u.side_basic.len_bits); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo16, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRIu16, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx16, v); - break; - default: - abort(); - } - break; - } - case 32: - { - uint32_t v; - - if (!sg_type->u.side_basic.len_bits || sg_type->u.side_basic.len_bits + sg_type->u.side_basic.offset_bits > 32) - abort(); - memcpy(&v, ptr + sg_type->u.side_basic.integer_offset, sizeof(v)); - if (sg_type_to_host_reverse_bo(sg_type)) - v = side_bswap_32(v); - v >>= sg_type->u.side_basic.offset_bits; - if (sg_type->u.side_basic.len_bits < 32) - v &= (1U << sg_type->u.side_basic.len_bits) - 1; - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, sg_type->u.side_basic.len_bits); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo32, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRIu32, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx32, v); - break; - default: - abort(); - } - break; - } - case 64: - { - uint64_t v; +static +void tracer_print_elem(enum side_type_visitor_location loc, const struct side_type *type_desc __attribute__((unused)), void *priv) +{ + struct print_ctx *ctx = (struct print_ctx *) priv; - if (!sg_type->u.side_basic.len_bits || sg_type->u.side_basic.len_bits + sg_type->u.side_basic.offset_bits > 64) - abort(); - memcpy(&v, ptr + sg_type->u.side_basic.integer_offset, sizeof(v)); - if (sg_type_to_host_reverse_bo(sg_type)) - v = side_bswap_64(v); - v >>= sg_type->u.side_basic.offset_bits; - if (sg_type->u.side_basic.len_bits < 64) - v &= (1ULL << sg_type->u.side_basic.len_bits) - 1; - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, sg_type->u.side_basic.len_bits); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo64, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRIu64, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx64, v); - break; - default: - abort(); - } - break; - } - default: - fprintf(stderr, ""); - abort(); - } + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + if (get_nested_item_nr(ctx) != 0) + printf(", { "); + else + printf(" { "); break; - } - case SIDE_TYPE_SG_SIGNED_INT: - { - tracer_print_sg_integer_type_header(sg_type); - switch (sg_type->u.side_basic.integer_size_bits) { - case 8: - { - int8_t v; - - if (!sg_type->u.side_basic.len_bits || sg_type->u.side_basic.len_bits + sg_type->u.side_basic.offset_bits > 8) - abort(); - memcpy(&v, ptr + sg_type->u.side_basic.integer_offset, sizeof(v)); - v >>= sg_type->u.side_basic.offset_bits; - if (sg_type->u.side_basic.len_bits < 8) - v &= (1U << sg_type->u.side_basic.len_bits) - 1; - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, sg_type->u.side_basic.len_bits); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo8, v); - break; - case TRACER_DISPLAY_BASE_10: - /* Sign-extend. */ - if (sg_type->u.side_basic.len_bits < 8) { - if (v & (1U << (sg_type->u.side_basic.len_bits - 1))) - v |= ~((1U << sg_type->u.side_basic.len_bits) - 1); - } - printf("%" PRId8, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx8, v); - break; - default: - abort(); - } - break; - } - case 16: - { - int16_t v; - - if (!sg_type->u.side_basic.len_bits || sg_type->u.side_basic.len_bits + sg_type->u.side_basic.offset_bits > 16) - abort(); - memcpy(&v, ptr + sg_type->u.side_basic.integer_offset, sizeof(v)); - if (sg_type_to_host_reverse_bo(sg_type)) - v = side_bswap_16(v); - v >>= sg_type->u.side_basic.offset_bits; - if (sg_type->u.side_basic.len_bits < 16) - v &= (1U << sg_type->u.side_basic.len_bits) - 1; - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, sg_type->u.side_basic.len_bits); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo16, v); - break; - case TRACER_DISPLAY_BASE_10: - /* Sign-extend. */ - if (sg_type->u.side_basic.len_bits < 16) { - if (v & (1U << (sg_type->u.side_basic.len_bits - 1))) - v |= ~((1U << sg_type->u.side_basic.len_bits) - 1); - } - printf("%" PRId16, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx16, v); - break; - default: - abort(); - } - break; - } - case 32: - { - uint32_t v; - - if (!sg_type->u.side_basic.len_bits || sg_type->u.side_basic.len_bits + sg_type->u.side_basic.offset_bits > 32) - abort(); - memcpy(&v, ptr + sg_type->u.side_basic.integer_offset, sizeof(v)); - if (sg_type_to_host_reverse_bo(sg_type)) - v = side_bswap_32(v); - v >>= sg_type->u.side_basic.offset_bits; - if (sg_type->u.side_basic.len_bits < 32) - v &= (1U << sg_type->u.side_basic.len_bits) - 1; - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, sg_type->u.side_basic.len_bits); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo32, v); - break; - case TRACER_DISPLAY_BASE_10: - /* Sign-extend. */ - if (sg_type->u.side_basic.len_bits < 32) { - if (v & (1U << (sg_type->u.side_basic.len_bits - 1))) - v |= ~((1U << sg_type->u.side_basic.len_bits) - 1); - } - printf("%" PRId32, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx32, v); - break; - default: - abort(); - } - break; - } - case 64: - { - uint64_t v; - - if (!sg_type->u.side_basic.len_bits || sg_type->u.side_basic.len_bits + sg_type->u.side_basic.offset_bits > 64) - abort(); - memcpy(&v, ptr + sg_type->u.side_basic.integer_offset, sizeof(v)); - if (sg_type_to_host_reverse_bo(sg_type)) - v = side_bswap_64(v); - v >>= sg_type->u.side_basic.offset_bits; - if (sg_type->u.side_basic.len_bits < 64) - v &= (1ULL << sg_type->u.side_basic.len_bits) - 1; - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, sg_type->u.side_basic.len_bits); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo64, v); - break; - case TRACER_DISPLAY_BASE_10: - /* Sign-extend. */ - if (sg_type->u.side_basic.len_bits < 64) { - if (v & (1ULL << (sg_type->u.side_basic.len_bits - 1))) - v |= ~((1ULL << sg_type->u.side_basic.len_bits) - 1); - } - printf("%" PRId64, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx64, v); - break; - default: - abort(); - } - break; - } - default: - fprintf(stderr, ""); - abort(); - } + case SIDE_TYPE_VISITOR_AFTER: + printf(" }"); + inc_nested_item_nr(ctx); break; } - default: - fprintf(stderr, ""); - abort(); - } - printf(" }"); } static -void tracer_print_sg_field(const struct side_struct_field_sg *field_sg, void *ptr) +void tracer_print_null(const struct side_type *type_desc, + const struct side_arg *item __attribute__((unused)), + void *priv __attribute__((unused))) { - printf("%s: ", field_sg->field_name); - tracer_print_sg_type(&field_sg->side_type, ptr); + tracer_print_type_header(":", side_ptr_get(type_desc->u.side_null.attr), + type_desc->u.side_null.nr_attr); + printf(""); } static -void tracer_print_struct_sg(const struct side_type_description *type_desc, void *ptr) +void tracer_print_bool(const struct side_type *type_desc, + const struct side_arg *item, + void *priv __attribute__((unused))) { - const struct side_type_struct_sg *struct_sg = type_desc->u.side_struct_sg; - int i; - - print_attributes("attr", ":", struct_sg->attr, struct_sg->nr_attr); - printf("%s", struct_sg->nr_attr ? ", " : ""); - printf("fields: { "); - for (i = 0; i < struct_sg->nr_fields; i++) { - printf("%s", i ? ", " : ""); - tracer_print_sg_field(&struct_sg->fields_sg[i], ptr); - } - printf(" }"); + tracer_print_type_bool(":", &type_desc->u.side_bool, &item->u.side_static.bool_value, 0); } static -void tracer_print_array(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc) +void tracer_print_integer(const struct side_type *type_desc, + const struct side_arg *item, + void *priv __attribute__((unused))) { - const struct side_arg_vec *sav = sav_desc->sav; - uint32_t side_sav_len = sav_desc->len; - int i; - - if (type_desc->u.side_array.length != side_sav_len) { - fprintf(stderr, "ERROR: length mismatch between description and arguments of array\n"); - abort(); - } - print_attributes("attr", ":", type_desc->u.side_array.attr, type_desc->u.side_array.nr_attr); - printf("%s", type_desc->u.side_array.nr_attr ? ", " : ""); - printf("elements: "); - printf("[ "); - for (i = 0; i < side_sav_len; i++) { - printf("%s", i ? ", " : ""); - tracer_print_type(type_desc->u.side_array.elem_type, &sav[i]); - } - printf(" ]"); + tracer_print_type_integer(":", &type_desc->u.side_integer, &item->u.side_static.integer_value, 0, TRACER_DISPLAY_BASE_10); } static -void tracer_print_vla(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc) +void tracer_print_byte(const struct side_type *type_desc __attribute__((unused)), + const struct side_arg *item, + void *priv __attribute__((unused))) { - const struct side_arg_vec *sav = sav_desc->sav; - uint32_t side_sav_len = sav_desc->len; - int i; - - print_attributes("attr", ":", type_desc->u.side_vla.attr, type_desc->u.side_vla.nr_attr); - printf("%s", type_desc->u.side_vla.nr_attr ? ", " : ""); - printf("elements: "); - printf("[ "); - for (i = 0; i < side_sav_len; i++) { - printf("%s", i ? ", " : ""); - tracer_print_type(type_desc->u.side_vla.elem_type, &sav[i]); - } - printf(" ]"); + tracer_print_type_header(":", side_ptr_get(type_desc->u.side_byte.attr), type_desc->u.side_byte.nr_attr); + printf("0x%" PRIx8, item->u.side_static.byte_value); } -struct tracer_visitor_priv { - const struct side_type_description *elem_type; - int i; -}; +static +void tracer_print_pointer(const struct side_type *type_desc, + const struct side_arg *item, + void *priv __attribute__((unused))) +{ + tracer_print_type_integer(":", &type_desc->u.side_integer, &item->u.side_static.integer_value, 0, TRACER_DISPLAY_BASE_16); +} static -enum side_visitor_status tracer_write_elem_cb(const struct side_tracer_visitor_ctx *tracer_ctx, - const struct side_arg_vec *elem) +void tracer_print_float(const struct side_type *type_desc, + const struct side_arg *item, + void *priv __attribute__((unused))) { - struct tracer_visitor_priv *tracer_priv = tracer_ctx->priv; + tracer_print_type_float(":", &type_desc->u.side_float, &item->u.side_static.float_value); +} - printf("%s", tracer_priv->i++ ? ", " : ""); - tracer_print_type(tracer_priv->elem_type, elem); - return SIDE_VISITOR_STATUS_OK; +static +void tracer_print_string(const struct side_type *type_desc, + const struct side_arg *item, + void *priv __attribute__((unused))) +{ + tracer_print_type_header(":", side_ptr_get(type_desc->u.side_string.attr), type_desc->u.side_string.nr_attr); + tracer_print_type_string(side_ptr_get(item->u.side_static.string_value), + type_desc->u.side_string.unit_size, + side_enum_get(type_desc->u.side_string.byte_order), NULL); } static -void tracer_print_vla_visitor(const struct side_type_description *type_desc, void *app_ctx) +void tracer_print_struct(enum side_type_visitor_location loc, + const struct side_type_struct *side_struct, + const struct side_arg_vec *side_arg_vec __attribute__((unused)), void *priv) { - enum side_visitor_status status; - struct tracer_visitor_priv tracer_priv = { - .elem_type = type_desc->u.side_vla_visitor.elem_type, - .i = 0, - }; - const struct side_tracer_visitor_ctx tracer_ctx = { - .write_elem = tracer_write_elem_cb, - .priv = &tracer_priv, - }; + struct print_ctx *ctx = (struct print_ctx *) priv; - print_attributes("attr", ":", type_desc->u.side_vla_visitor.attr, type_desc->u.side_vla_visitor.nr_attr); - printf("%s", type_desc->u.side_vla_visitor.nr_attr ? ", " : ""); - printf("elements: "); - printf("[ "); - status = type_desc->u.side_vla_visitor.visitor(&tracer_ctx, app_ctx); - switch (status) { - case SIDE_VISITOR_STATUS_OK: + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + print_attributes("attr", ":", side_ptr_get(side_struct->attr), side_struct->nr_attr); + printf("%s", side_struct->nr_attr ? ", " : ""); + printf("fields: {"); + push_nesting(ctx); + break; + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); + printf(" }"); break; - case SIDE_VISITOR_STATUS_ERROR: - fprintf(stderr, "ERROR: Visitor error\n"); - abort(); } - printf(" ]"); } -void tracer_print_array_fixint(const struct side_type_description *type_desc, const struct side_arg_vec *item) +static +void tracer_print_array(enum side_type_visitor_location loc, + const struct side_type_array *side_array, + const struct side_arg_vec *side_arg_vec __attribute__((unused)), void *priv) { - const struct side_type_description *elem_type = type_desc->u.side_array.elem_type; - uint32_t side_sav_len = type_desc->u.side_array.length; - void *p = item->u.side_array_fixint; - enum side_type side_type; - int i; + struct print_ctx *ctx = (struct print_ctx *) priv; - print_attributes("attr", ":", type_desc->u.side_array.attr, type_desc->u.side_array.nr_attr); - printf("%s", type_desc->u.side_array.nr_attr ? ", " : ""); - printf("elements: "); - switch (item->type) { - case SIDE_TYPE_ARRAY_U8: - if (elem_type->type != SIDE_TYPE_U8) - goto type_error; - break; - case SIDE_TYPE_ARRAY_U16: - if (elem_type->type != SIDE_TYPE_U16) - goto type_error; - break; - case SIDE_TYPE_ARRAY_U32: - if (elem_type->type != SIDE_TYPE_U32) - goto type_error; - break; - case SIDE_TYPE_ARRAY_U64: - if (elem_type->type != SIDE_TYPE_U64) - goto type_error; + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + print_attributes("attr", ":", side_ptr_get(side_array->attr), side_array->nr_attr); + printf("%s", side_array->nr_attr ? ", " : ""); + printf("elements: ["); + push_nesting(ctx); break; - case SIDE_TYPE_ARRAY_S8: - if (elem_type->type != SIDE_TYPE_S8) - goto type_error; - break; - case SIDE_TYPE_ARRAY_S16: - if (elem_type->type != SIDE_TYPE_S16) - goto type_error; - break; - case SIDE_TYPE_ARRAY_S32: - if (elem_type->type != SIDE_TYPE_S32) - goto type_error; - break; - case SIDE_TYPE_ARRAY_S64: - if (elem_type->type != SIDE_TYPE_S64) - goto type_error; + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); + printf(" ]"); break; - case SIDE_TYPE_ARRAY_BYTE: - if (elem_type->type != SIDE_TYPE_BYTE) - goto type_error; + } +} + +static +void tracer_print_vla(enum side_type_visitor_location loc, + const struct side_type_vla *side_vla, + const struct side_arg_vec *side_arg_vec __attribute__((unused)), void *priv) +{ + struct print_ctx *ctx = (struct print_ctx *) priv; + + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + print_attributes("attr", ":", side_ptr_get(side_vla->attr), side_vla->nr_attr); + printf("%s", side_vla->nr_attr ? ", " : ""); + printf("elements: ["); + push_nesting(ctx); break; - case SIDE_TYPE_ARRAY_POINTER32: - if (elem_type->type != SIDE_TYPE_POINTER32) - goto type_error; - case SIDE_TYPE_ARRAY_POINTER64: - if (elem_type->type != SIDE_TYPE_POINTER64) - goto type_error; + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); + printf(" ]"); break; - default: - goto type_error; } - side_type = elem_type->type; +} - printf("[ "); - for (i = 0; i < side_sav_len; i++) { - struct side_arg_vec sav_elem = { - .type = side_type, - }; +static +void tracer_print_vla_visitor(enum side_type_visitor_location loc, + const struct side_type_vla_visitor *side_vla_visitor, + const struct side_arg_vla_visitor *side_arg_vla_visitor __attribute__((unused)), void *priv) +{ + struct print_ctx *ctx = (struct print_ctx *) priv; - switch (side_type) { - case SIDE_TYPE_U8: - sav_elem.u.integer_value.side_u8 = ((const uint8_t *) p)[i]; - break; - case SIDE_TYPE_S8: - sav_elem.u.integer_value.side_s8 = ((const int8_t *) p)[i]; - break; - case SIDE_TYPE_U16: - sav_elem.u.integer_value.side_u16 = ((const uint16_t *) p)[i]; - break; - case SIDE_TYPE_S16: - sav_elem.u.integer_value.side_s16 = ((const int16_t *) p)[i]; - break; - case SIDE_TYPE_U32: - sav_elem.u.integer_value.side_u32 = ((const uint32_t *) p)[i]; - break; - case SIDE_TYPE_S32: - sav_elem.u.integer_value.side_s32 = ((const int32_t *) p)[i]; - break; - case SIDE_TYPE_U64: - sav_elem.u.integer_value.side_u64 = ((const uint64_t *) p)[i]; - break; - case SIDE_TYPE_S64: - sav_elem.u.integer_value.side_s64 = ((const int64_t *) p)[i]; - break; - case SIDE_TYPE_BYTE: - sav_elem.u.side_byte = ((const uint8_t *) p)[i]; - break; - case SIDE_TYPE_POINTER32: - sav_elem.u.integer_value.side_u32 = ((const uint32_t *) p)[i]; - break; - case SIDE_TYPE_POINTER64: - sav_elem.u.integer_value.side_u64 = ((const uint64_t *) p)[i]; - break; + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + print_attributes("attr", ":", side_ptr_get(side_vla_visitor->attr), side_vla_visitor->nr_attr); + printf("%s", side_vla_visitor->nr_attr ? ", " : ""); + printf("elements: ["); + push_nesting(ctx); + break; + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); + printf(" ]"); + break; + } +} - default: - fprintf(stderr, "ERROR: Unexpected type\n"); - abort(); - } +static void tracer_print_enum(const struct side_type *type_desc, + const struct side_arg *item, void *priv) +{ + const struct side_enum_mappings *mappings = side_ptr_get(type_desc->u.side_enum.mappings); + const struct side_type *elem_type = side_ptr_get(type_desc->u.side_enum.elem_type); + union int_value v; - printf("%s", i ? ", " : ""); - tracer_print_type(elem_type, &sav_elem); + if (side_enum_get(elem_type->type) != side_enum_get(item->type)) { + fprintf(stderr, "ERROR: Unexpected enum element type\n"); + abort(); } - printf(" ]"); - return; - -type_error: - fprintf(stderr, "ERROR: type mismatch\n"); - abort(); + v = tracer_load_integer_value(&elem_type->u.side_integer, + &item->u.side_static.integer_value, 0, NULL); + print_attributes("attr", ":", side_ptr_get(mappings->attr), mappings->nr_attr); + printf("%s", mappings->nr_attr ? ", " : ""); + printf("{ "); + tracer_print_integer(elem_type, item, priv); + printf(" }"); + print_enum_labels(mappings, v); } -void tracer_print_vla_fixint(const struct side_type_description *type_desc, const struct side_arg_vec *item) +static void tracer_print_enum_bitmap(const struct side_type *type_desc, + const struct side_arg *item, void *priv __attribute__((unused))) { - const struct side_type_description *elem_type = type_desc->u.side_vla.elem_type; - uint32_t side_sav_len = item->u.side_vla_fixint.length; - void *p = item->u.side_vla_fixint.p; - enum side_type side_type; - int i; + const struct side_enum_bitmap_mappings *side_enum_mappings = side_ptr_get(type_desc->u.side_enum_bitmap.mappings); + const struct side_type *enum_elem_type = side_ptr_get(type_desc->u.side_enum_bitmap.elem_type), *elem_type; + uint32_t i, print_count = 0, stride_bit, nr_items; + const struct side_arg *array_item; - print_attributes("attr", ":", type_desc->u.side_vla.attr, type_desc->u.side_vla.nr_attr); - printf("%s", type_desc->u.side_vla.nr_attr ? ", " : ""); - printf("elements: "); - switch (item->type) { - case SIDE_TYPE_VLA_U8: - if (elem_type->type != SIDE_TYPE_U8) - goto type_error; - break; - case SIDE_TYPE_VLA_U16: - if (elem_type->type != SIDE_TYPE_U16) - goto type_error; - break; - case SIDE_TYPE_VLA_U32: - if (elem_type->type != SIDE_TYPE_U32) - goto type_error; - break; - case SIDE_TYPE_VLA_U64: - if (elem_type->type != SIDE_TYPE_U64) - goto type_error; - break; - case SIDE_TYPE_VLA_S8: - if (elem_type->type != SIDE_TYPE_S8) - goto type_error; - break; - case SIDE_TYPE_VLA_S16: - if (elem_type->type != SIDE_TYPE_S16) - goto type_error; - break; - case SIDE_TYPE_VLA_S32: - if (elem_type->type != SIDE_TYPE_S32) - goto type_error; - break; - case SIDE_TYPE_VLA_S64: - if (elem_type->type != SIDE_TYPE_S64) - goto type_error; + switch (side_enum_get(enum_elem_type->type)) { + case SIDE_TYPE_U8: /* Fall-through */ + case SIDE_TYPE_BYTE: /* Fall-through */ + case SIDE_TYPE_U16: /* Fall-through */ + case SIDE_TYPE_U32: /* Fall-through */ + case SIDE_TYPE_U64: /* Fall-through */ + case SIDE_TYPE_U128: /* Fall-through */ + case SIDE_TYPE_S8: /* Fall-through */ + case SIDE_TYPE_S16: /* Fall-through */ + case SIDE_TYPE_S32: /* Fall-through */ + case SIDE_TYPE_S64: /* Fall-through */ + case SIDE_TYPE_S128: + elem_type = enum_elem_type; + array_item = item; + nr_items = 1; break; - case SIDE_TYPE_VLA_BYTE: - if (elem_type->type != SIDE_TYPE_BYTE) - goto type_error; + case SIDE_TYPE_ARRAY: + elem_type = side_ptr_get(enum_elem_type->u.side_array.elem_type); + array_item = side_ptr_get(side_ptr_get(item->u.side_static.side_array)->sav); + nr_items = type_desc->u.side_array.length; break; - case SIDE_TYPE_VLA_POINTER32: - if (elem_type->type != SIDE_TYPE_POINTER32) - goto type_error; - case SIDE_TYPE_VLA_POINTER64: - if (elem_type->type != SIDE_TYPE_POINTER64) - goto type_error; + case SIDE_TYPE_VLA: + elem_type = side_ptr_get(enum_elem_type->u.side_vla.elem_type); + array_item = side_ptr_get(side_ptr_get(item->u.side_static.side_vla)->sav); + nr_items = side_ptr_get(item->u.side_static.side_vla)->len; break; default: - goto type_error; + fprintf(stderr, "ERROR: Unexpected enum element type\n"); + abort(); } - side_type = elem_type->type; + stride_bit = elem_type_to_stride(elem_type); - printf("[ "); - for (i = 0; i < side_sav_len; i++) { - struct side_arg_vec sav_elem = { - .type = side_type, - }; - - switch (side_type) { - case SIDE_TYPE_U8: - sav_elem.u.integer_value.side_u8 = ((const uint8_t *) p)[i]; - break; - case SIDE_TYPE_S8: - sav_elem.u.integer_value.side_s8 = ((const int8_t *) p)[i]; - break; - case SIDE_TYPE_U16: - sav_elem.u.integer_value.side_u16 = ((const uint16_t *) p)[i]; - break; - case SIDE_TYPE_S16: - sav_elem.u.integer_value.side_s16 = ((const int16_t *) p)[i]; - break; - case SIDE_TYPE_U32: - sav_elem.u.integer_value.side_u32 = ((const uint32_t *) p)[i]; - break; - case SIDE_TYPE_S32: - sav_elem.u.integer_value.side_s32 = ((const int32_t *) p)[i]; - break; - case SIDE_TYPE_U64: - sav_elem.u.integer_value.side_u64 = ((const uint64_t *) p)[i]; - break; - case SIDE_TYPE_S64: - sav_elem.u.integer_value.side_s64 = ((const int64_t *) p)[i]; - break; - case SIDE_TYPE_BYTE: - sav_elem.u.side_byte = ((const uint8_t *) p)[i]; - break; - case SIDE_TYPE_POINTER32: - sav_elem.u.integer_value.side_u32 = ((const uint32_t *) p)[i]; - break; - case SIDE_TYPE_POINTER64: - sav_elem.u.integer_value.side_u64 = ((const uint64_t *) p)[i]; - break; + print_attributes("attr", ":", side_ptr_get(side_enum_mappings->attr), side_enum_mappings->nr_attr); + printf("%s", side_enum_mappings->nr_attr ? ", " : ""); + printf("labels: [ "); + for (i = 0; i < side_enum_mappings->nr_mappings; i++) { + const struct side_enum_bitmap_mapping *mapping = &side_ptr_get(side_enum_mappings->mappings)[i]; + bool match = false; + uint64_t bit; - default: - fprintf(stderr, "ERROR: Unexpected type\n"); + if (mapping->range_end < mapping->range_begin) { + fprintf(stderr, "ERROR: Unexpected enum bitmap range: %" PRIu64 "-%" PRIu64 "\n", + mapping->range_begin, mapping->range_end); abort(); } + for (bit = mapping->range_begin; bit <= mapping->range_end; bit++) { + if (bit > (nr_items * stride_bit) - 1) + break; + if (side_enum_get(elem_type->type) == SIDE_TYPE_BYTE) { + uint8_t v = array_item[bit / 8].u.side_static.byte_value; + if (v & (1ULL << (bit % 8))) { + match = true; + goto match; + } + } else { + union int_value v = {}; - printf("%s", i ? ", " : ""); - tracer_print_type(elem_type, &sav_elem); + v = tracer_load_integer_value(&elem_type->u.side_integer, + &array_item[bit / stride_bit].u.side_static.integer_value, + 0, NULL); + side_check_value_u64(v); + if (v.u[SIDE_INTEGER128_SPLIT_LOW] & (1ULL << (bit % stride_bit))) { + match = true; + goto match; + } + } + } +match: + if (match) { + printf("%s", print_count++ ? ", " : ""); + tracer_print_type_string(side_ptr_get(mapping->label.p), mapping->label.unit_size, + side_enum_get(mapping->label.byte_order), NULL); + } } + if (!print_count) + printf(""); printf(" ]"); - return; - -type_error: - fprintf(stderr, "ERROR: type mismatch\n"); - abort(); } static -void tracer_print_dynamic_struct(const struct side_arg_dynamic_event_struct *dynamic_struct) +void tracer_print_gather_bool(const struct side_type_gather_bool *type, + const union side_bool_value *value, + void *priv __attribute__((unused))) { - const struct side_arg_dynamic_event_field *fields = dynamic_struct->fields; - uint32_t len = dynamic_struct->len; - int i; - - print_attributes("attr", "::", dynamic_struct->attr, dynamic_struct->nr_attr); - printf("%s", dynamic_struct->nr_attr ? ", " : ""); - printf("fields:: "); - printf("[ "); - for (i = 0; i < len; i++) { - printf("%s", i ? ", " : ""); - printf("%s:: ", fields[i].field_name); - tracer_print_dynamic(&fields[i].elem); - } - printf(" ]"); + tracer_print_type_bool(":", &type->type, value, type->offset_bits); } -struct tracer_dynamic_struct_visitor_priv { - int i; -}; +static +void tracer_print_gather_byte(const struct side_type_gather_byte *type, + const uint8_t *_ptr, + void *priv __attribute__((unused))) +{ + tracer_print_type_header(":", side_ptr_get(type->type.attr), + type->type.nr_attr); + printf("0x%" PRIx8, *_ptr); +} static -enum side_visitor_status tracer_dynamic_struct_write_elem_cb( - const struct side_tracer_dynamic_struct_visitor_ctx *tracer_ctx, - const struct side_arg_dynamic_event_field *dynamic_field) +void tracer_print_gather_integer(const struct side_type_gather_integer *type, + const union side_integer_value *value, + void *priv __attribute__((unused))) { - struct tracer_dynamic_struct_visitor_priv *tracer_priv = tracer_ctx->priv; + tracer_print_type_integer(":", &type->type, value, type->offset_bits, TRACER_DISPLAY_BASE_10); +} - printf("%s", tracer_priv->i++ ? ", " : ""); - printf("%s:: ", dynamic_field->field_name); - tracer_print_dynamic(&dynamic_field->elem); - return SIDE_VISITOR_STATUS_OK; +static +void tracer_print_gather_pointer(const struct side_type_gather_integer *type, + const union side_integer_value *value, + void *priv __attribute__((unused))) +{ + tracer_print_type_integer(":", &type->type, value, type->offset_bits, TRACER_DISPLAY_BASE_16); } static -void tracer_print_dynamic_struct_visitor(const struct side_arg_dynamic_vec *item) +void tracer_print_gather_float(const struct side_type_gather_float *type, + const union side_float_value *value, + void *priv __attribute__((unused))) { - enum side_visitor_status status; - struct tracer_dynamic_struct_visitor_priv tracer_priv = { - .i = 0, - }; - const struct side_tracer_dynamic_struct_visitor_ctx tracer_ctx = { - .write_field = tracer_dynamic_struct_write_elem_cb, - .priv = &tracer_priv, - }; - void *app_ctx = item->u.side_dynamic_struct_visitor.app_ctx; + tracer_print_type_float(":", &type->type, value); +} - print_attributes("attr", "::", item->u.side_dynamic_struct_visitor.attr, item->u.side_dynamic_struct_visitor.nr_attr); - printf("%s", item->u.side_dynamic_struct_visitor.nr_attr ? ", " : ""); - printf("fields:: "); - printf("[ "); - status = item->u.side_dynamic_struct_visitor.visitor(&tracer_ctx, app_ctx); - switch (status) { - case SIDE_VISITOR_STATUS_OK: - break; - case SIDE_VISITOR_STATUS_ERROR: - fprintf(stderr, "ERROR: Visitor error\n"); - abort(); - } - printf(" ]"); +static +void tracer_print_gather_string(const struct side_type_gather_string *type, + const void *p, uint8_t unit_size, + enum side_type_label_byte_order byte_order, + size_t strlen_with_null __attribute__((unused)), + void *priv __attribute__((unused))) +{ + //TODO use strlen_with_null input + tracer_print_type_header(":", side_ptr_get(type->type.attr), + type->type.nr_attr); + tracer_print_type_string(p, unit_size, byte_order, NULL); } static -void tracer_print_dynamic_vla(const struct side_arg_dynamic_vec_vla *vla) +void tracer_print_gather_struct(enum side_type_visitor_location loc, + const struct side_type_struct *side_struct, + void *priv) { - const struct side_arg_dynamic_vec *sav = vla->sav; - uint32_t side_sav_len = vla->len; - int i; + tracer_print_struct(loc, side_struct, NULL, priv); +} - print_attributes("attr", "::", vla->attr, vla->nr_attr); - printf("%s", vla->nr_attr ? ", " : ""); - printf("elements:: "); - printf("[ "); - for (i = 0; i < side_sav_len; i++) { - printf("%s", i ? ", " : ""); - tracer_print_dynamic(&sav[i]); - } - printf(" ]"); +static +void tracer_print_gather_array(enum side_type_visitor_location loc, + const struct side_type_array *side_array, + void *priv) +{ + tracer_print_array(loc, side_array, NULL, priv); } -struct tracer_dynamic_vla_visitor_priv { - int i; -}; +static +void tracer_print_gather_vla(enum side_type_visitor_location loc, + const struct side_type_vla *side_vla, + uint32_t length __attribute__((unused)), + void *priv) +{ + tracer_print_vla(loc, side_vla, NULL, priv); +} static -enum side_visitor_status tracer_dynamic_vla_write_elem_cb( - const struct side_tracer_dynamic_vla_visitor_ctx *tracer_ctx, - const struct side_arg_dynamic_vec *elem) +void tracer_print_gather_enum(const struct side_type_gather_enum *type, + const union side_integer_value *value, + void *priv __attribute__((unused))) { - struct tracer_dynamic_vla_visitor_priv *tracer_priv = tracer_ctx->priv; + const struct side_enum_mappings *mappings = side_ptr_get(type->mappings); + const struct side_type *enum_elem_type = side_ptr_get(type->elem_type); + const struct side_type_gather_integer *side_integer = &enum_elem_type->u.side_gather.u.side_integer; + union int_value v; - printf("%s", tracer_priv->i++ ? ", " : ""); - tracer_print_dynamic(elem); - return SIDE_VISITOR_STATUS_OK; + v = tracer_load_integer_value(&side_integer->type, value, 0, NULL); + print_attributes("attr", ":", side_ptr_get(mappings->attr), mappings->nr_attr); + printf("%s", mappings->nr_attr ? ", " : ""); + printf("{ "); + tracer_print_type_integer(":", &side_integer->type, value, 0, TRACER_DISPLAY_BASE_10); + printf(" }"); + print_enum_labels(mappings, v); } static -void tracer_print_dynamic_vla_visitor(const struct side_arg_dynamic_vec *item) +void tracer_print_dynamic_field(enum side_type_visitor_location loc, const struct side_arg_dynamic_field *field, void *priv) { - enum side_visitor_status status; - struct tracer_dynamic_vla_visitor_priv tracer_priv = { - .i = 0, - }; - const struct side_tracer_dynamic_vla_visitor_ctx tracer_ctx = { - .write_elem = tracer_dynamic_vla_write_elem_cb, - .priv = &tracer_priv, - }; - void *app_ctx = item->u.side_dynamic_vla_visitor.app_ctx; + struct print_ctx *ctx = (struct print_ctx *) priv; - print_attributes("attr", "::", item->u.side_dynamic_vla_visitor.attr, item->u.side_dynamic_vla_visitor.nr_attr); - printf("%s", item->u.side_dynamic_vla_visitor.nr_attr ? ", " : ""); - printf("elements:: "); - printf("[ "); - status = item->u.side_dynamic_vla_visitor.visitor(&tracer_ctx, app_ctx); - switch (status) { - case SIDE_VISITOR_STATUS_OK: + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + if (get_nested_item_nr(ctx) != 0) + printf(","); + printf(" %s:: { ", side_ptr_get(field->field_name)); + break; + case SIDE_TYPE_VISITOR_AFTER: + printf(" }"); + inc_nested_item_nr(ctx); break; - case SIDE_VISITOR_STATUS_ERROR: - fprintf(stderr, "ERROR: Visitor error\n"); - abort(); } - printf(" ]"); } static -void tracer_print_dynamic(const struct side_arg_dynamic_vec *item) +void tracer_print_dynamic_elem(enum side_type_visitor_location loc, + const struct side_arg *dynamic_item __attribute__((unused)), void *priv) { - enum tracer_display_base base = TRACER_DISPLAY_BASE_10; + tracer_print_elem(loc, NULL, priv); +} - switch (item->dynamic_type) { - case SIDE_DYNAMIC_TYPE_U8: - case SIDE_DYNAMIC_TYPE_U16: - case SIDE_DYNAMIC_TYPE_U32: - case SIDE_DYNAMIC_TYPE_U64: - case SIDE_DYNAMIC_TYPE_S8: - case SIDE_DYNAMIC_TYPE_S16: - case SIDE_DYNAMIC_TYPE_S32: - case SIDE_DYNAMIC_TYPE_S64: - base = get_attr_display_base(item->u.side_integer.type.attr, - item->u.side_integer.type.nr_attr); - break; - default: - break; - } +static +void tracer_print_dynamic_null(const struct side_arg *item, + void *priv __attribute__((unused))) +{ + tracer_print_type_header("::", side_ptr_get(item->u.side_dynamic.side_null.attr), + item->u.side_dynamic.side_null.nr_attr); + printf(""); +} - printf("{ "); - switch (item->dynamic_type) { - case SIDE_DYNAMIC_TYPE_NULL: - tracer_print_type_header("::", item->u.side_basic.attr, item->u.side_basic.nr_attr); - printf(""); - break; - case SIDE_DYNAMIC_TYPE_BOOL: - tracer_print_type_header("::", item->u.side_basic.attr, item->u.side_basic.nr_attr); - printf("%s", item->u.side_basic.u.side_bool ? "true" : "false"); - break; - case SIDE_DYNAMIC_TYPE_U8: - { - uint8_t v; +static +void tracer_print_dynamic_bool(const struct side_arg *item, + void *priv __attribute__((unused))) +{ + tracer_print_type_bool("::", &item->u.side_dynamic.side_bool.type, &item->u.side_dynamic.side_bool.value, 0); +} - v = item->u.side_integer.value.side_u8; - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, 8); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo8, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRIu8, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx8, v); - break; - default: - abort(); - } - break; - } - case SIDE_DYNAMIC_TYPE_U16: - { - uint16_t v; - - v = item->u.side_integer.value.side_u16; - if (dynamic_type_to_host_reverse_bo(item)) - v = side_bswap_16(v); - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, 16); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo16, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRIu16, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx16, v); - break; - default: - abort(); - } - break; - } - case SIDE_DYNAMIC_TYPE_U32: - { - uint32_t v; - - v = item->u.side_integer.value.side_u32; - if (dynamic_type_to_host_reverse_bo(item)) - v = side_bswap_32(v); - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, 32); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo32, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRIu32, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx32, v); - break; - default: - abort(); - } - break; - } - case SIDE_DYNAMIC_TYPE_U64: - { - uint64_t v; - - v = item->u.side_integer.value.side_u64; - if (dynamic_type_to_host_reverse_bo(item)) - v = side_bswap_64(v); - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, 64); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo64, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRIu64, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx64, v); - break; - default: - abort(); - } - break; - } - case SIDE_DYNAMIC_TYPE_S8: - { - int8_t v; +static +void tracer_print_dynamic_integer(const struct side_arg *item, + void *priv __attribute__((unused))) +{ + tracer_print_type_integer("::", &item->u.side_dynamic.side_integer.type, &item->u.side_dynamic.side_integer.value, 0, + TRACER_DISPLAY_BASE_10); +} - v = item->u.side_integer.value.side_s8; - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, 8); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo8, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRId8, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx8, v); - break; - default: - abort(); - } - break; - } - case SIDE_DYNAMIC_TYPE_S16: - { - int16_t v; - - v = item->u.side_integer.value.side_s16; - if (dynamic_type_to_host_reverse_bo(item)) - v = side_bswap_16(v); - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, 16); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo16, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRId16, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx16, v); - break; - default: - abort(); - } - break; - } - case SIDE_DYNAMIC_TYPE_S32: - { - int32_t v; - - v = item->u.side_integer.value.side_s32; - if (dynamic_type_to_host_reverse_bo(item)) - v = side_bswap_32(v); - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, 32); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo32, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRId32, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx32, v); - break; - default: - abort(); - } - break; - } - case SIDE_DYNAMIC_TYPE_S64: - { - int64_t v; - - v = item->u.side_integer.value.side_s64; - if (dynamic_type_to_host_reverse_bo(item)) - v = side_bswap_64(v); - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - switch (base) { - case TRACER_DISPLAY_BASE_2: - print_integer_binary(v, 64); - break; - case TRACER_DISPLAY_BASE_8: - printf("0%" PRIo64, v); - break; - case TRACER_DISPLAY_BASE_10: - printf("%" PRId64, v); - break; - case TRACER_DISPLAY_BASE_16: - printf("0x%" PRIx64, v); - break; - default: - abort(); - } - break; - } - case SIDE_DYNAMIC_TYPE_BYTE: - tracer_print_type_header("::", item->u.side_basic.attr, item->u.side_basic.nr_attr); - printf("0x%" PRIx8, item->u.side_basic.u.side_byte); - break; - case SIDE_DYNAMIC_TYPE_POINTER32: - { - uint32_t v; +static +void tracer_print_dynamic_byte(const struct side_arg *item, + void *priv __attribute__((unused))) +{ + tracer_print_type_header("::", side_ptr_get(item->u.side_dynamic.side_byte.type.attr), item->u.side_dynamic.side_byte.type.nr_attr); + printf("0x%" PRIx8, item->u.side_dynamic.side_byte.value); +} - v = item->u.side_integer.value.side_u32; - if (dynamic_type_to_host_reverse_bo(item)) - v = side_bswap_32(v); - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - printf("0x%" PRIx32, v); - break; - } +static +void tracer_print_dynamic_pointer(const struct side_arg *item, + void *priv __attribute__((unused))) +{ + tracer_print_type_integer("::", &item->u.side_dynamic.side_integer.type, &item->u.side_dynamic.side_integer.value, 0, + TRACER_DISPLAY_BASE_16); +} - case SIDE_DYNAMIC_TYPE_POINTER64: - { - uint64_t v; +static +void tracer_print_dynamic_float(const struct side_arg *item, + void *priv __attribute__((unused))) +{ + tracer_print_type_float("::", &item->u.side_dynamic.side_float.type, + &item->u.side_dynamic.side_float.value); +} - v = item->u.side_integer.value.side_u64; - if (dynamic_type_to_host_reverse_bo(item)) - v = side_bswap_64(v); - tracer_print_type_header("::", item->u.side_integer.type.attr, item->u.side_integer.type.nr_attr); - printf("0x%" PRIx64, v); - break; - } +static +void tracer_print_dynamic_string(const struct side_arg *item, + void *priv __attribute__((unused))) +{ + tracer_print_type_header("::", side_ptr_get(item->u.side_dynamic.side_string.type.attr), item->u.side_dynamic.side_string.type.nr_attr); + tracer_print_type_string((const char *)(uintptr_t) item->u.side_dynamic.side_string.value, + item->u.side_dynamic.side_string.type.unit_size, + side_enum_get(item->u.side_dynamic.side_string.type.byte_order), NULL); +} - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY16: - { -#if __HAVE_FLOAT16 - union { - _Float16 f; - uint16_t u; - } float16 = { - .f = item->u.side_float.value.side_float_binary16, - }; +static +void tracer_print_dynamic_struct(enum side_type_visitor_location loc, + const struct side_arg_dynamic_struct *dynamic_struct, + void *priv) +{ + struct print_ctx *ctx = (struct print_ctx *) priv; - if (dynamic_type_to_host_reverse_bo(item)) - float16.u = side_bswap_16(float16.u); - tracer_print_type_header("::", item->u.side_float.type.attr, item->u.side_float.type.nr_attr); - printf("%g", (double) float16.f); + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + print_attributes("attr", "::", side_ptr_get(dynamic_struct->attr), dynamic_struct->nr_attr); + printf("%s", dynamic_struct->nr_attr ? ", " : ""); + printf("fields:: {"); + push_nesting(ctx); break; -#else - fprintf(stderr, "ERROR: Unsupported binary16 float type\n"); - abort(); -#endif - } - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY32: - { -#if __HAVE_FLOAT32 - union { - _Float32 f; - uint32_t u; - } float32 = { - .f = item->u.side_float.value.side_float_binary32, - }; - - if (dynamic_type_to_host_reverse_bo(item)) - float32.u = side_bswap_32(float32.u); - tracer_print_type_header("::", item->u.side_float.type.attr, item->u.side_float.type.nr_attr); - printf("%g", (double) float32.f); + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); + printf(" }"); break; -#else - fprintf(stderr, "ERROR: Unsupported binary32 float type\n"); - abort(); -#endif } - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY64: - { -#if __HAVE_FLOAT64 - union { - _Float64 f; - uint64_t u; - } float64 = { - .f = item->u.side_float.value.side_float_binary64, - }; +} - if (dynamic_type_to_host_reverse_bo(item)) - float64.u = side_bswap_64(float64.u); - tracer_print_type_header("::", item->u.side_float.type.attr, item->u.side_float.type.nr_attr); - printf("%g", (double) float64.f); - break; -#else - fprintf(stderr, "ERROR: Unsupported binary64 float type\n"); - abort(); -#endif - } - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY128: - { -#if __HAVE_FLOAT128 - union { - _Float128 f; - char arr[16]; - } float128 = { - .f = item->u.side_float.value.side_float_binary128, - }; +static +void tracer_print_dynamic_struct_visitor(enum side_type_visitor_location loc, + const struct side_arg *item, + void *priv) +{ + struct side_arg_dynamic_struct_visitor *dynamic_struct_visitor; + struct print_ctx *ctx = (struct print_ctx *) priv; - if (dynamic_type_to_host_reverse_bo(item)) - side_bswap_128p(float128.arr); - tracer_print_type_header("::", item->u.side_float.type.attr, item->u.side_float.type.nr_attr); - printf("%Lg", (long double) float128.f); - break; -#else - fprintf(stderr, "ERROR: Unsupported binary128 float type\n"); + dynamic_struct_visitor = side_ptr_get(item->u.side_dynamic.side_dynamic_struct_visitor); + if (!dynamic_struct_visitor) abort(); -#endif - } - case SIDE_DYNAMIC_TYPE_STRING: - tracer_print_type_header("::", item->u.side_basic.attr, item->u.side_basic.nr_attr); - printf("\"%s\"", (const char *)(uintptr_t) item->u.side_basic.u.string); - break; - case SIDE_DYNAMIC_TYPE_STRUCT: - tracer_print_dynamic_struct(item->u.side_dynamic_struct); + + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + print_attributes("attr", "::", side_ptr_get(dynamic_struct_visitor->attr), dynamic_struct_visitor->nr_attr); + printf("%s", dynamic_struct_visitor->nr_attr ? ", " : ""); + printf("fields:: {"); + push_nesting(ctx); break; - case SIDE_DYNAMIC_TYPE_STRUCT_VISITOR: - tracer_print_dynamic_struct_visitor(item); + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); + printf(" }"); break; - case SIDE_DYNAMIC_TYPE_VLA: - tracer_print_dynamic_vla(item->u.side_dynamic_vla); + } +} + +static +void tracer_print_dynamic_vla(enum side_type_visitor_location loc, + const struct side_arg_dynamic_vla *dynamic_vla, + void *priv) +{ + struct print_ctx *ctx = (struct print_ctx *) priv; + + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + print_attributes("attr", "::", side_ptr_get(dynamic_vla->attr), dynamic_vla->nr_attr); + printf("%s", dynamic_vla->nr_attr ? ", " : ""); + printf("elements:: ["); + push_nesting(ctx); break; - case SIDE_DYNAMIC_TYPE_VLA_VISITOR: - tracer_print_dynamic_vla_visitor(item); + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); + printf(" ]"); break; - default: - fprintf(stderr, ""); - abort(); } - printf(" }"); } static -void tracer_print_static_fields(const struct side_event_description *desc, - const struct side_arg_vec_description *sav_desc, - int *nr_items) +void tracer_print_dynamic_vla_visitor(enum side_type_visitor_location loc, + const struct side_arg *item, + void *priv) { - const struct side_arg_vec *sav = sav_desc->sav; - uint32_t side_sav_len = sav_desc->len; - int i; + struct side_arg_dynamic_vla_visitor *dynamic_vla_visitor; + struct print_ctx *ctx = (struct print_ctx *) priv; - printf("provider: %s, event: %s", desc->provider_name, desc->event_name); - if (desc->nr_fields != side_sav_len) { - fprintf(stderr, "ERROR: number of fields mismatch between description and arguments\n"); + dynamic_vla_visitor = side_ptr_get(item->u.side_dynamic.side_dynamic_vla_visitor); + if (!dynamic_vla_visitor) abort(); - } - print_attributes(", attr", ":", desc->attr, desc->nr_attr); - printf("%s", side_sav_len ? ", fields: [ " : ""); - for (i = 0; i < side_sav_len; i++) { - printf("%s", i ? ", " : ""); - tracer_print_field(&desc->fields[i], &sav[i]); - } - if (nr_items) - *nr_items = i; - if (side_sav_len) + + switch (loc) { + case SIDE_TYPE_VISITOR_BEFORE: + print_attributes("attr", "::", side_ptr_get(dynamic_vla_visitor->attr), dynamic_vla_visitor->nr_attr); + printf("%s", dynamic_vla_visitor->nr_attr ? ", " : ""); + printf("elements:: ["); + push_nesting(ctx); + break; + case SIDE_TYPE_VISITOR_AFTER: + pop_nesting(ctx); printf(" ]"); + break; + } } +static struct side_type_visitor type_visitor = { + .event_func = tracer_print_event, + .static_fields_func = tracer_print_static_fields, + .variadic_fields_func = tracer_print_variadic_fields, + + /* Stack-copy basic types. */ + .field_func = tracer_print_field, + .elem_func = tracer_print_elem, + .null_type_func = tracer_print_null, + .bool_type_func = tracer_print_bool, + .integer_type_func = tracer_print_integer, + .byte_type_func = tracer_print_byte, + .pointer_type_func = tracer_print_pointer, + .float_type_func = tracer_print_float, + .string_type_func = tracer_print_string, + + /* Stack-copy compound types. */ + .struct_type_func = tracer_print_struct, + .array_type_func = tracer_print_array, + .vla_type_func = tracer_print_vla, + .vla_visitor_type_func = tracer_print_vla_visitor, + + /* Stack-copy enumeration types. */ + .enum_type_func = tracer_print_enum, + .enum_bitmap_type_func = tracer_print_enum_bitmap, + + /* Gather basic types. */ + .gather_bool_type_func = tracer_print_gather_bool, + .gather_byte_type_func = tracer_print_gather_byte, + .gather_integer_type_func = tracer_print_gather_integer, + .gather_pointer_type_func = tracer_print_gather_pointer, + .gather_float_type_func = tracer_print_gather_float, + .gather_string_type_func = tracer_print_gather_string, + + /* Gather compound types. */ + .gather_struct_type_func = tracer_print_gather_struct, + .gather_array_type_func = tracer_print_gather_array, + .gather_vla_type_func = tracer_print_gather_vla, + + /* Gather enumeration types. */ + .gather_enum_type_func = tracer_print_gather_enum, + + /* Dynamic basic types. */ + .dynamic_field_func = tracer_print_dynamic_field, + .dynamic_elem_func = tracer_print_dynamic_elem, + + .dynamic_null_func = tracer_print_dynamic_null, + .dynamic_bool_func = tracer_print_dynamic_bool, + .dynamic_integer_func = tracer_print_dynamic_integer, + .dynamic_byte_func = tracer_print_dynamic_byte, + .dynamic_pointer_func = tracer_print_dynamic_pointer, + .dynamic_float_func = tracer_print_dynamic_float, + .dynamic_string_func = tracer_print_dynamic_string, + + /* Dynamic compound types. */ + .dynamic_struct_func = tracer_print_dynamic_struct, + .dynamic_struct_visitor_func = tracer_print_dynamic_struct_visitor, + .dynamic_vla_func = tracer_print_dynamic_vla, + .dynamic_vla_visitor_func = tracer_print_dynamic_vla_visitor, +}; + +static void tracer_call(const struct side_event_description *desc, - const struct side_arg_vec_description *sav_desc, - void *priv __attribute__((unused))) + const struct side_arg_vec *side_arg_vec, + void *priv __attribute__((unused)), + void *caller_addr) { - int nr_fields = 0; + struct print_ctx ctx = {}; - tracer_print_static_fields(desc, sav_desc, &nr_fields); - printf("\n"); + type_visitor_event(&type_visitor, desc, side_arg_vec, NULL, caller_addr, &ctx); } +static void tracer_call_variadic(const struct side_event_description *desc, - const struct side_arg_vec_description *sav_desc, - const struct side_arg_dynamic_event_struct *var_struct, - void *priv __attribute__((unused))) + const struct side_arg_vec *side_arg_vec, + const struct side_arg_dynamic_struct *var_struct, + void *priv __attribute__((unused)), + void *caller_addr) { - uint32_t var_struct_len = var_struct->len; - int nr_fields = 0, i; - - tracer_print_static_fields(desc, sav_desc, &nr_fields); + struct print_ctx ctx = {}; - if (side_unlikely(!(desc->flags & SIDE_EVENT_FLAG_VARIADIC))) { - fprintf(stderr, "ERROR: unexpected non-variadic event description\n"); - abort(); - } - print_attributes(", attr ", "::", var_struct->attr, var_struct->nr_attr); - printf("%s", var_struct_len ? ", fields:: [ " : ""); - for (i = 0; i < var_struct_len; i++, nr_fields++) { - printf("%s", i ? ", " : ""); - printf("%s:: ", var_struct->fields[i].field_name); - tracer_print_dynamic(&var_struct->fields[i].elem); - } - if (i) - printf(" ]"); - printf("\n"); + type_visitor_event(&type_visitor, desc, side_arg_vec, var_struct, caller_addr, &ctx); } +static void tracer_event_notification(enum side_tracer_notification notif, - struct side_event_description **events, uint32_t nr_events, void *priv) + struct side_event_description **events, uint32_t nr_events, + void *priv __attribute__((unused))) { uint32_t i; int ret; @@ -2204,25 +1733,44 @@ void tracer_event_notification(enum side_tracer_notification notif, /* Skip NULL pointers */ if (!event) continue; + if (event->version != SIDE_EVENT_DESCRIPTION_ABI_VERSION) { + printf("Error: event description ABI version (%u) does not match the version supported by the tracer (%u)\n", + event->version, SIDE_EVENT_DESCRIPTION_ABI_VERSION); + return; + } printf("provider: %s, event: %s\n", - event->provider_name, event->event_name); - if (notif == SIDE_TRACER_NOTIFICATION_INSERT_EVENTS) { + side_ptr_get(event->provider_name), side_ptr_get(event->event_name)); + if (event->struct_size != side_offsetofend(struct side_event_description, side_event_description_orig_abi_last)) { + printf("Warning: Event %s.%s description contains fields unknown to the tracer\n", + side_ptr_get(event->provider_name), side_ptr_get(event->event_name)); + } + if (notif == SIDE_TRACER_NOTIFICATION_INSERT_EVENTS) { + if (event->nr_side_type_label > _NR_SIDE_TYPE_LABEL) { + printf("Warning: event %s:%s may contain unknown field types (%u unknown types)\n", + side_ptr_get(event->provider_name), side_ptr_get(event->event_name), + event->nr_side_type_label - _NR_SIDE_TYPE_LABEL); + } + if (event->nr_side_attr_type > _NR_SIDE_ATTR_TYPE) { + printf("Warning: event %s:%s may contain unknown attribute types (%u unknown types)\n", + side_ptr_get(event->provider_name), side_ptr_get(event->event_name), + event->nr_side_attr_type - _NR_SIDE_ATTR_TYPE); + } if (event->flags & SIDE_EVENT_FLAG_VARIADIC) { - ret = side_tracer_callback_variadic_register(event, tracer_call_variadic, NULL); + ret = side_tracer_callback_variadic_register(event, tracer_call_variadic, NULL, tracer_key); if (ret) abort(); } else { - ret = side_tracer_callback_register(event, tracer_call, NULL); + ret = side_tracer_callback_register(event, tracer_call, NULL, tracer_key); if (ret) abort(); } } else { if (event->flags & SIDE_EVENT_FLAG_VARIADIC) { - ret = side_tracer_callback_variadic_unregister(event, tracer_call_variadic, NULL); + ret = side_tracer_callback_variadic_unregister(event, tracer_call_variadic, NULL, tracer_key); if (ret) abort(); } else { - ret = side_tracer_callback_unregister(event, tracer_call, NULL); + ret = side_tracer_callback_unregister(event, tracer_call, NULL, tracer_key); if (ret) abort(); } @@ -2236,6 +1784,8 @@ void tracer_init(void); static void tracer_init(void) { + if (side_tracer_request_key(&tracer_key)) + abort(); tracer_handle = side_tracer_event_notification_register(tracer_event_notification, NULL); if (!tracer_handle) abort();