X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=src%2Ftracer.c;h=1b95afc2513242f2fa38d9e50cac9a7019e79f97;hb=873bbf16c6bcfe2c11fca7e76dd7284c5afbee99;hp=5e3157f8ab7d77afa0461ee193c7d8c88f7d6516;hpb=b313067b604bc9a125308a65fdeb098b9d29bff9;p=libside.git diff --git a/src/tracer.c b/src/tracer.c index 5e3157f..1b95afc 100644 --- a/src/tracer.c +++ b/src/tracer.c @@ -20,9 +20,9 @@ enum tracer_display_base { TRACER_DISPLAY_BASE_16, }; -union int64_value { - uint64_t u; - int64_t s; +union int_value { + uint64_t u[NR_SIDE_INTEGER128_SPLIT]; + int64_t s[NR_SIDE_INTEGER128_SPLIT]; }; static struct side_tracer_handle *tracer_handle; @@ -36,7 +36,7 @@ void tracer_print_array(const struct side_type *type_desc, const struct side_arg static void tracer_print_vla(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec); static -void tracer_print_vla_visitor(const struct side_type *type_desc, void *app_ctx); +void tracer_print_vla_visitor(const struct side_type *type_desc, struct side_arg_vla_visitor *vla_visitor); static void tracer_print_dynamic(const struct side_arg *dynamic_item); static @@ -182,11 +182,36 @@ void tracer_print_string(const void *p, uint8_t unit_size, enum side_type_label_ } static -int64_t get_attr_integer_value(const struct side_attr *attr) +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 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_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; @@ -199,6 +224,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; @@ -211,6 +248,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(); @@ -230,12 +279,12 @@ enum tracer_display_base get_attr_display_base(const struct side_attr *_attr, ui bool cmp; tracer_convert_string_to_utf8(side_ptr_get(attr->key.p), attr->key.unit_size, - attr->key.byte_order, NULL, &utf8_str); + 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_integer_value(attr); + int64_t val = get_attr_integer64_value(attr); switch (val) { case 2: @@ -261,11 +310,11 @@ void tracer_print_attr_type(const char *separator, const struct side_attr *attr) char *utf8_str = NULL; tracer_convert_string_to_utf8(side_ptr_get(attr->key.p), attr->key.unit_size, - attr->key.byte_order, NULL, &utf8_str); + 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 (attr->value.type) { + switch (side_enum_get(attr->value.type)) { case SIDE_ATTR_TYPE_BOOL: printf("%s", attr->value.u.bool_value ? "true" : "false"); break; @@ -281,6 +330,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; @@ -293,6 +351,15 @@ 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_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 printf("%g", (double) attr->value.u.float_value.side_float_binary16); @@ -328,7 +395,7 @@ void tracer_print_attr_type(const char *separator, const struct side_attr *attr) case SIDE_ATTR_TYPE_STRING: tracer_print_string(side_ptr_get(attr->value.u.string_value.p), attr->value.u.string_value.unit_size, - attr->value.u.string_value.byte_order, NULL); + side_enum_get(attr->value.u.string_value.byte_order), NULL); break; default: fprintf(stderr, "ERROR: "); @@ -354,11 +421,11 @@ void print_attributes(const char *prefix_str, const char *separator, } static -union int64_value tracer_load_integer_value(const struct side_type_integer *type_integer, +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) { - union int64_value v64; + union int_value v = {}; uint16_t len_bits; bool reverse_bo; @@ -368,13 +435,13 @@ union int64_value tracer_load_integer_value(const struct side_type_integer *type len_bits = type_integer->len_bits; if (len_bits + offset_bits > type_integer->integer_size * CHAR_BIT) abort(); - reverse_bo = type_integer->byte_order != SIDE_TYPE_BYTE_ORDER_HOST; + 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) - v64.s = value->side_s8; + v.s[SIDE_INTEGER128_SPLIT_LOW] = value->side_s8; else - v64.u = value->side_u8; + v.u[SIDE_INTEGER128_SPLIT_LOW] = value->side_u8; break; case 2: if (type_integer->signedness) { @@ -383,14 +450,14 @@ union int64_value tracer_load_integer_value(const struct side_type_integer *type side_s16 = value->side_s16; if (reverse_bo) side_s16 = side_bswap_16(side_s16); - v64.s = side_s16; + v.s[SIDE_INTEGER128_SPLIT_LOW] = side_s16; } else { uint16_t side_u16; side_u16 = value->side_u16; if (reverse_bo) side_u16 = side_bswap_16(side_u16); - v64.u = side_u16; + v.u[SIDE_INTEGER128_SPLIT_LOW] = side_u16; } break; case 4: @@ -400,14 +467,14 @@ union int64_value tracer_load_integer_value(const struct side_type_integer *type side_s32 = value->side_s32; if (reverse_bo) side_s32 = side_bswap_32(side_s32); - v64.s = side_s32; + v.s[SIDE_INTEGER128_SPLIT_LOW] = side_s32; } else { uint32_t side_u32; side_u32 = value->side_u32; if (reverse_bo) side_u32 = side_bswap_32(side_u32); - v64.u = side_u32; + v.u[SIDE_INTEGER128_SPLIT_LOW] = side_u32; } break; case 8: @@ -417,50 +484,91 @@ union int64_value tracer_load_integer_value(const struct side_type_integer *type side_s64 = value->side_s64; if (reverse_bo) side_s64 = side_bswap_64(side_s64); - v64.s = side_s64; + v.s[SIDE_INTEGER128_SPLIT_LOW] = side_s64; } else { uint64_t side_u64; side_u64 = value->side_u64; if (reverse_bo) side_u64 = side_bswap_64(side_u64); - v64.u = 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: abort(); } - v64.u >>= offset_bits; - if (len_bits < 64) { - v64.u &= (1ULL << len_bits) - 1; - if (type_integer->signedness) { - /* Sign-extend. */ - if (v64.u & (1ULL << (len_bits - 1))) - v64.u |= ~((1ULL << len_bits) - 1); + 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 v64; + return v; } static -void print_enum_labels(const struct side_enum_mappings *mappings, union int64_value v64) +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 (v64.s >= mapping->range_begin && v64.s <= 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++ ? ", " : ""); - tracer_print_string(side_ptr_get(mapping->label.p), mapping->label.unit_size, mapping->label.byte_order, NULL); + tracer_print_string(side_ptr_get(mapping->label.p), mapping->label.unit_size, + side_enum_get(mapping->label.byte_order), NULL); } } if (!print_count) @@ -471,20 +579,20 @@ void print_enum_labels(const struct side_enum_mappings *mappings, union int64_va static void tracer_print_enum(const struct side_type *type_desc, const struct side_arg *item) { - const struct side_enum_mappings *mappings = type_desc->u.side_enum.mappings; - const struct side_type *elem_type = type_desc->u.side_enum.elem_type; - union int64_value v64; + 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; - if (elem_type->type != item->type) { + if (side_enum_get(elem_type->type) != side_enum_get(item->type)) { fprintf(stderr, "ERROR: Unexpected enum element type\n"); abort(); } - v64 = tracer_load_integer_value(&elem_type->u.side_integer, + v = tracer_load_integer_value(&elem_type->u.side_integer, &item->u.side_static.integer_value, 0, NULL); - print_attributes("attr", ":", mappings->attr, mappings->nr_attr); + print_attributes("attr", ":", side_ptr_get(mappings->attr), mappings->nr_attr); printf("%s", mappings->nr_attr ? ", " : ""); tracer_print_type(elem_type, item); - print_enum_labels(mappings, v64); + print_enum_labels(mappings, v); } static @@ -492,7 +600,7 @@ uint32_t elem_type_to_stride(const struct side_type *elem_type) { uint32_t stride_bit; - switch (elem_type->type) { + switch (side_enum_get(elem_type->type)) { case SIDE_TYPE_BYTE: stride_bit = 8; break; @@ -501,10 +609,12 @@ uint32_t elem_type_to_stride(const struct side_type *elem_type) case SIDE_TYPE_U16: case SIDE_TYPE_U32: case SIDE_TYPE_U64: + 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 bitmap element type\n"); @@ -517,34 +627,36 @@ static void tracer_print_enum_bitmap(const struct side_type *type_desc, const struct side_arg *item) { - const struct side_enum_bitmap_mappings *side_enum_mappings = type_desc->u.side_enum_bitmap.mappings; - const struct side_type *enum_elem_type = type_desc->u.side_enum_bitmap.elem_type, *elem_type; + 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; - switch (enum_elem_type->type) { + 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: + 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_ARRAY: - elem_type = enum_elem_type->u.side_array.elem_type; - array_item = item->u.side_static.side_array->sav; + 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: - elem_type = enum_elem_type->u.side_vla.elem_type; - array_item = item->u.side_static.side_vla->sav; - nr_items = item->u.side_static.side_vla->len; + 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: fprintf(stderr, "ERROR: Unexpected enum element type\n"); @@ -552,11 +664,11 @@ void tracer_print_enum_bitmap(const struct side_type *type_desc, } stride_bit = elem_type_to_stride(elem_type); - print_attributes("attr", ":", side_enum_mappings->attr, side_enum_mappings->nr_attr); + 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_enum_mappings->mappings[i]; + const struct side_enum_bitmap_mapping *mapping = &side_ptr_get(side_enum_mappings->mappings)[i]; bool match = false; uint64_t bit; @@ -568,19 +680,20 @@ void tracer_print_enum_bitmap(const struct side_type *type_desc, for (bit = mapping->range_begin; bit <= mapping->range_end; bit++) { if (bit > (nr_items * stride_bit) - 1) break; - if (elem_type->type == SIDE_TYPE_BYTE) { + 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 int64_value v64; + union int_value v = {}; - v64 = tracer_load_integer_value(&elem_type->u.side_integer, + v = tracer_load_integer_value(&elem_type->u.side_integer, &array_item[bit / stride_bit].u.side_static.integer_value, 0, NULL); - if (v64.u & (1ULL << (bit % stride_bit))) { + side_check_value_u64(v); + if (v.u[SIDE_INTEGER128_SPLIT_LOW] & (1ULL << (bit % stride_bit))) { match = true; goto match; } @@ -589,7 +702,8 @@ void tracer_print_enum_bitmap(const struct side_type *type_desc, match: if (match) { printf("%s", print_count++ ? ", " : ""); - tracer_print_string(side_ptr_get(mapping->label.p), mapping->label.unit_size, mapping->label.byte_order, NULL); + tracer_print_string(side_ptr_get(mapping->label.p), mapping->label.unit_size, + side_enum_get(mapping->label.byte_order), NULL); } } if (!print_count) @@ -598,15 +712,24 @@ match: } static -void print_integer_binary(uint64_t v, int bits) +void print_integer_binary(uint64_t v[NR_SIDE_INTEGER128_SPLIT], int bits) { - int i; + int bit; printf("0b"); - v <<= 64 - bits; - for (i = 0; i < bits; i++) { - printf("%c", v & (1ULL << 63) ? '1' : '0'); - v <<= 1; + 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; } } @@ -635,7 +758,7 @@ void tracer_print_type_bool(const char *separator, len_bits = type_bool->len_bits; if (len_bits + offset_bits > type_bool->bool_size * CHAR_BIT) abort(); - reverse_bo = type_bool->byte_order != SIDE_TYPE_BYTE_ORDER_HOST; + 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; @@ -676,10 +799,128 @@ void tracer_print_type_bool(const char *separator, v >>= offset_bits; if (len_bits < 64) v &= (1ULL << len_bits) - 1; - tracer_print_type_header(separator, type_bool->attr, type_bool->nr_attr); + tracer_print_type_header(separator, side_ptr_get(type_bool->attr), type_bool->nr_attr); printf("%s", v ? "true" : "false"); } +/* 2^128 - 1 */ +#define U128_BASE_10_ARRAY_LEN sizeof("340282366920938463463374607431768211455") +/* -2^127 */ +#define S128_BASE_10_ARRAY_LEN sizeof("-170141183460469231731687303715884105728") + +/* + * 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 (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; + } + for (j = 0; j < 38; j++) { + d[j + 1] += d[j] / 10; + d[j] %= 10; + } + } + 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 s128_tostring_base_10(union int_value v, char str[S128_BASE_10_ARRAY_LEN]) +{ + uint64_t low, high, tmp; + + 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 u128_tostring_base_8(union int_value v, char str[U128_BASE_8_ARRAY_LEN]) +{ + 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, @@ -688,33 +929,66 @@ void tracer_print_type_integer(const char *separator, enum tracer_display_base default_base) { enum tracer_display_base base; - union int64_value v64; + union int_value v; uint16_t len_bits; - v64 = tracer_load_integer_value(type_integer, value, offset_bits, &len_bits); - tracer_print_type_header(separator, type_integer->attr, type_integer->nr_attr); - base = get_attr_display_base(type_integer->attr, type_integer->nr_attr, default_base); + 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(v64.u, len_bits); + print_integer_binary(v.u, len_bits); break; case TRACER_DISPLAY_BASE_8: /* Clear sign bits beyond len_bits */ - if (len_bits < 64) - v64.u &= (1ULL << len_bits) - 1; - printf("0%" PRIo64, v64.u); + 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) { + printf("0o%" PRIo64, v.u[SIDE_INTEGER128_SPLIT_LOW]); + } else { + char str[U128_BASE_8_ARRAY_LEN]; + + u128_tostring_base_8(v, str); + printf("0o%s", str); + } break; case TRACER_DISPLAY_BASE_10: - if (type_integer->signedness) - printf("%" PRId64, v64.s); - else - printf("%" PRIu64, v64.u); + 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 { + 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: /* Clear sign bits beyond len_bits */ - if (len_bits < 64) - v64.u &= (1ULL << len_bits) - 1; - printf("0x%" PRIx64, v64.u); + 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(); @@ -728,8 +1002,8 @@ void tracer_print_type_float(const char *separator, { bool reverse_bo; - tracer_print_type_header(separator, type_float->attr, type_float->nr_attr); - reverse_bo = type_float->byte_order != SIDE_TYPE_FLOAT_WORD_ORDER_HOST; + 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: { @@ -818,17 +1092,19 @@ void tracer_print_type(const struct side_type *type_desc, const struct side_arg { enum side_type_label type; - switch (type_desc->type) { + switch (side_enum_get(type_desc->type)) { case SIDE_TYPE_ENUM: - switch (item->type) { + switch (side_enum_get(item->type)) { case SIDE_TYPE_U8: case SIDE_TYPE_U16: case SIDE_TYPE_U32: case SIDE_TYPE_U64: + case SIDE_TYPE_U128: case SIDE_TYPE_S8: case SIDE_TYPE_S16: case SIDE_TYPE_S32: case SIDE_TYPE_S64: + case SIDE_TYPE_S128: break; default: fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); @@ -838,12 +1114,13 @@ void tracer_print_type(const struct side_type *type_desc, const struct side_arg break; case SIDE_TYPE_ENUM_BITMAP: - switch (item->type) { + switch (side_enum_get(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_U128: case SIDE_TYPE_ARRAY: case SIDE_TYPE_VLA: break; @@ -855,7 +1132,7 @@ void tracer_print_type(const struct side_type *type_desc, const struct side_arg break; case SIDE_TYPE_GATHER_ENUM: - switch (item->type) { + switch (side_enum_get(item->type)) { case SIDE_TYPE_GATHER_INTEGER: break; default: @@ -866,7 +1143,7 @@ void tracer_print_type(const struct side_type *type_desc, const struct side_arg break; case SIDE_TYPE_DYNAMIC: - switch (item->type) { + switch (side_enum_get(item->type)) { case SIDE_TYPE_DYNAMIC_NULL: case SIDE_TYPE_DYNAMIC_BOOL: case SIDE_TYPE_DYNAMIC_INTEGER: @@ -887,18 +1164,17 @@ void tracer_print_type(const struct side_type *type_desc, const struct side_arg break; default: - if (type_desc->type != item->type) { + if (side_enum_get(type_desc->type) != side_enum_get(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_desc->type == SIDE_TYPE_GATHER_ENUM) - type = (enum side_type_label) type_desc->type; + if (side_enum_get(type_desc->type) == SIDE_TYPE_ENUM || side_enum_get(type_desc->type) == SIDE_TYPE_ENUM_BITMAP || side_enum_get(type_desc->type) == SIDE_TYPE_GATHER_ENUM) + type = side_enum_get(type_desc->type); else - type = (enum side_type_label) item->type; + type = side_enum_get(item->type); printf("{ "); switch (type) { @@ -917,16 +1193,18 @@ void tracer_print_type(const struct side_type *type_desc, const struct side_arg case SIDE_TYPE_U16: case SIDE_TYPE_U32: case SIDE_TYPE_U64: + case SIDE_TYPE_U128: case SIDE_TYPE_S8: case SIDE_TYPE_S16: case SIDE_TYPE_S32: case SIDE_TYPE_S64: + case SIDE_TYPE_S128: tracer_print_type_integer(":", &type_desc->u.side_integer, &item->u.side_static.integer_value, 0, TRACER_DISPLAY_BASE_10); break; case SIDE_TYPE_BYTE: - tracer_print_type_header(":", type_desc->u.side_byte.attr, type_desc->u.side_byte.nr_attr); + 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); break; @@ -945,26 +1223,26 @@ void tracer_print_type(const struct side_type *type_desc, const struct side_arg case SIDE_TYPE_STRING_UTF8: case SIDE_TYPE_STRING_UTF16: case SIDE_TYPE_STRING_UTF32: - tracer_print_type_header(":", type_desc->u.side_string.attr, type_desc->u.side_string.nr_attr); - tracer_print_string((const void *)(uintptr_t) item->u.side_static.string_value, - type_desc->u.side_string.unit_size, type_desc->u.side_string.byte_order, NULL); + tracer_print_type_header(":", side_ptr_get(type_desc->u.side_string.attr), type_desc->u.side_string.nr_attr); + tracer_print_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); break; /* Stack-copy compound types */ case SIDE_TYPE_STRUCT: - tracer_print_struct(type_desc, item->u.side_static.side_struct); + tracer_print_struct(type_desc, side_ptr_get(item->u.side_static.side_struct)); break; case SIDE_TYPE_VARIANT: - tracer_print_variant(type_desc, item->u.side_static.side_variant); + tracer_print_variant(type_desc, side_ptr_get(item->u.side_static.side_variant)); break; case SIDE_TYPE_ARRAY: - tracer_print_array(type_desc, item->u.side_static.side_array); + tracer_print_array(type_desc, side_ptr_get(item->u.side_static.side_array)); break; case SIDE_TYPE_VLA: - tracer_print_vla(type_desc, item->u.side_static.side_vla); + tracer_print_vla(type_desc, side_ptr_get(item->u.side_static.side_vla)); break; case SIDE_TYPE_VLA_VISITOR: - tracer_print_vla_visitor(type_desc, item->u.side_static.side_vla_app_visitor_ctx); + tracer_print_vla_visitor(type_desc, side_ptr_get(item->u.side_static.side_vla_visitor)); break; /* Stack-copy enumeration types */ @@ -977,41 +1255,41 @@ void tracer_print_type(const struct side_type *type_desc, const struct side_arg /* Gather basic types */ case SIDE_TYPE_GATHER_BOOL: - (void) tracer_print_gather_bool_type(&type_desc->u.side_gather, item->u.side_static.side_bool_gather_ptr); + (void) tracer_print_gather_bool_type(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_bool_gather_ptr)); break; case SIDE_TYPE_GATHER_INTEGER: - (void) tracer_print_gather_integer_type(&type_desc->u.side_gather, item->u.side_static.side_integer_gather_ptr, + (void) tracer_print_gather_integer_type(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_integer_gather_ptr), TRACER_DISPLAY_BASE_10); break; case SIDE_TYPE_GATHER_BYTE: - (void) tracer_print_gather_byte_type(&type_desc->u.side_gather, item->u.side_static.side_byte_gather_ptr); + (void) tracer_print_gather_byte_type(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_byte_gather_ptr)); break; case SIDE_TYPE_GATHER_POINTER: - (void) tracer_print_gather_integer_type(&type_desc->u.side_gather, item->u.side_static.side_integer_gather_ptr, + (void) tracer_print_gather_integer_type(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_integer_gather_ptr), TRACER_DISPLAY_BASE_16); break; case SIDE_TYPE_GATHER_FLOAT: - (void) tracer_print_gather_float_type(&type_desc->u.side_gather, item->u.side_static.side_float_gather_ptr); + (void) tracer_print_gather_float_type(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_float_gather_ptr)); break; case SIDE_TYPE_GATHER_STRING: - (void) tracer_print_gather_string_type(&type_desc->u.side_gather, item->u.side_static.side_string_gather_ptr); + (void) tracer_print_gather_string_type(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_string_gather_ptr)); break; /* Gather compound type */ case SIDE_TYPE_GATHER_STRUCT: - (void) tracer_print_gather_struct(&type_desc->u.side_gather, item->u.side_static.side_struct_gather_ptr); + (void) tracer_print_gather_struct(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_struct_gather_ptr)); break; case SIDE_TYPE_GATHER_ARRAY: - (void) tracer_print_gather_array(&type_desc->u.side_gather, item->u.side_static.side_array_gather_ptr); + (void) tracer_print_gather_array(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_array_gather_ptr)); break; case SIDE_TYPE_GATHER_VLA: - (void) tracer_print_gather_vla(&type_desc->u.side_gather, item->u.side_static.side_vla_gather.ptr, - item->u.side_static.side_vla_gather.length_ptr); + (void) tracer_print_gather_vla(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_vla_gather.ptr), + side_ptr_get(item->u.side_static.side_vla_gather.length_ptr)); break; /* Gather enumeration types */ case SIDE_TYPE_GATHER_ENUM: - (void) tracer_print_gather_enum_type(&type_desc->u.side_gather, item->u.side_static.side_integer_gather_ptr); + (void) tracer_print_gather_enum_type(&type_desc->u.side_gather, side_ptr_get(item->u.side_static.side_integer_gather_ptr)); break; /* Dynamic basic types */ @@ -1040,26 +1318,27 @@ void tracer_print_type(const struct side_type *type_desc, const struct side_arg static void tracer_print_field(const struct side_event_field *item_desc, const struct side_arg *item) { - printf("%s: ", item_desc->field_name); + printf("%s: ", side_ptr_get(item_desc->field_name)); tracer_print_type(&item_desc->side_type, item); } static void tracer_print_struct(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec) { - const struct side_arg *sav = side_arg_vec->sav; + const struct side_arg *sav = side_ptr_get(side_arg_vec->sav); + const struct side_type_struct *side_struct = side_ptr_get(type_desc->u.side_struct); uint32_t i, side_sav_len = side_arg_vec->len; - if (type_desc->u.side_struct->nr_fields != side_sav_len) { + if (side_struct->nr_fields != side_sav_len) { fprintf(stderr, "ERROR: number of fields mismatch between description and arguments of structure\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 ? ", " : ""); + print_attributes("attr", ":", side_ptr_get(side_struct->attr), side_struct->nr_attr); + printf("%s", 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]); + tracer_print_field(&side_ptr_get(side_struct->fields)[i], &sav[i]); } printf(" }"); } @@ -1067,60 +1346,63 @@ void tracer_print_struct(const struct side_type *type_desc, const struct side_ar static void tracer_print_variant(const struct side_type *type_desc, const struct side_arg_variant *side_arg_variant) { - const struct side_type_variant *side_type_variant = type_desc->u.side_variant; + const struct side_type_variant *side_type_variant = side_ptr_get(type_desc->u.side_variant); const struct side_type *selector_type = &side_type_variant->selector; - union int64_value v64; + union int_value v; uint32_t i; - if (selector_type->type != side_arg_variant->selector.type) { + if (side_enum_get(selector_type->type) != side_enum_get(side_arg_variant->selector.type)) { fprintf(stderr, "ERROR: Unexpected variant selector type\n"); abort(); } - switch (selector_type->type) { + switch (side_enum_get(selector_type->type)) { case SIDE_TYPE_U8: case SIDE_TYPE_U16: case SIDE_TYPE_U32: case SIDE_TYPE_U64: + case SIDE_TYPE_U128: case SIDE_TYPE_S8: case SIDE_TYPE_S16: case SIDE_TYPE_S32: case SIDE_TYPE_S64: + case SIDE_TYPE_S128: break; default: fprintf(stderr, "ERROR: Expecting integer variant selector type\n"); abort(); } - v64 = tracer_load_integer_value(&selector_type->u.side_integer, + v = tracer_load_integer_value(&selector_type->u.side_integer, &side_arg_variant->selector.u.side_static.integer_value, 0, NULL); + side_check_value_u64(v); for (i = 0; i < side_type_variant->nr_options; i++) { - const struct side_variant_option *option = &side_type_variant->options[i]; + const struct side_variant_option *option = &side_ptr_get(side_type_variant->options)[i]; - if (v64.s >= option->range_begin && v64.s <= option->range_end) { + if (v.s[SIDE_INTEGER128_SPLIT_LOW] >= option->range_begin && v.s[SIDE_INTEGER128_SPLIT_LOW] <= option->range_end) { tracer_print_type(&option->side_type, &side_arg_variant->option); return; } } - fprintf(stderr, "ERROR: Variant selector value unknown %" PRId64 "\n", v64.s); + fprintf(stderr, "ERROR: Variant selector value unknown %" PRId64 "\n", v.s[SIDE_INTEGER128_SPLIT_LOW]); abort(); } static void tracer_print_array(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec) { - const struct side_arg *sav = side_arg_vec->sav; + const struct side_arg *sav = side_ptr_get(side_arg_vec->sav); uint32_t i, side_sav_len = side_arg_vec->len; 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); + print_attributes("attr", ":", side_ptr_get(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]); + tracer_print_type(side_ptr_get(type_desc->u.side_array.elem_type), &sav[i]); } printf(" ]"); } @@ -1128,16 +1410,16 @@ void tracer_print_array(const struct side_type *type_desc, const struct side_arg static void tracer_print_vla(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec) { - const struct side_arg *sav = side_arg_vec->sav; + const struct side_arg *sav = side_ptr_get(side_arg_vec->sav); uint32_t i, side_sav_len = side_arg_vec->len; - print_attributes("attr", ":", type_desc->u.side_vla.attr, type_desc->u.side_vla.nr_attr); + print_attributes("attr", ":", side_ptr_get(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]); + tracer_print_type(side_ptr_get(type_desc->u.side_vla.elem_type), &sav[i]); } printf(" ]"); } @@ -1171,7 +1453,7 @@ uint32_t tracer_gather_size(enum side_type_gather_access_mode access_mode, uint3 } static -union int64_value tracer_load_gather_integer_value(const struct side_type_gather_integer *side_integer, +union int_value tracer_load_gather_integer_value(const struct side_type_gather_integer *side_integer, const void *_ptr) { enum side_type_gather_access_mode access_mode = @@ -1221,7 +1503,7 @@ uint32_t tracer_print_gather_byte_type(const struct side_type_gather *type_gathe ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_byte.offset); memcpy(&value, ptr, 1); - tracer_print_type_header(":", type_gather->u.side_byte.type.attr, + tracer_print_type_header(":", side_ptr_get(type_gather->u.side_byte.type.attr), type_gather->u.side_byte.type.nr_attr); printf("0x%" PRIx8, value); return tracer_gather_size(access_mode, 1); @@ -1242,6 +1524,7 @@ uint32_t tracer_print_gather_integer_type(const struct side_type_gather *type_ga case 2: case 4: case 8: + case 16: break; default: abort(); @@ -1286,11 +1569,11 @@ uint32_t tracer_print_gather_string_type(const struct side_type_gather *type_gat size_t string_len; ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_string.offset); - tracer_print_type_header(":", type_gather->u.side_string.type.attr, + tracer_print_type_header(":", side_ptr_get(type_gather->u.side_string.type.attr), type_gather->u.side_string.type.nr_attr); if (ptr) { tracer_print_string(ptr, type_gather->u.side_string.type.unit_size, - type_gather->u.side_string.type.byte_order, &string_len); + side_enum_get(type_gather->u.side_string.type.byte_order), &string_len); } else { printf(""); string_len = type_gather->u.side_string.type.unit_size; @@ -1304,7 +1587,7 @@ uint32_t tracer_print_gather_type(const struct side_type *type_desc, const void uint32_t len; printf("{ "); - switch (type_desc->type) { + switch (side_enum_get(type_desc->type)) { /* Gather basic types */ case SIDE_TYPE_GATHER_BOOL: len = tracer_print_gather_bool_type(&type_desc->u.side_gather, ptr); @@ -1353,39 +1636,40 @@ uint32_t tracer_print_gather_type(const struct side_type *type_desc, const void static uint32_t tracer_print_gather_enum_type(const struct side_type_gather *type_gather, const void *_ptr) { - const struct side_enum_mappings *mappings = type_gather->u.side_enum.mappings; - const struct side_type *enum_elem_type = type_gather->u.side_enum.elem_type; + const struct side_enum_mappings *mappings = side_ptr_get(type_gather->u.side_enum.mappings); + const struct side_type *enum_elem_type = side_ptr_get(type_gather->u.side_enum.elem_type); const struct side_type_gather_integer *side_integer = &enum_elem_type->u.side_gather.u.side_integer; enum side_type_gather_access_mode access_mode = (enum side_type_gather_access_mode) side_integer->access_mode; uint32_t integer_size_bytes = side_integer->type.integer_size; const char *ptr = (const char *) _ptr; union side_integer_value value; - union int64_value v64; + union int_value v; switch (integer_size_bytes) { case 1: case 2: case 4: case 8: + case 16: break; default: abort(); } ptr = tracer_gather_access(access_mode, ptr + side_integer->offset); memcpy(&value, ptr, integer_size_bytes); - v64 = tracer_load_gather_integer_value(side_integer, &value); - print_attributes("attr", ":", mappings->attr, mappings->nr_attr); + v = tracer_load_gather_integer_value(side_integer, &value); + print_attributes("attr", ":", side_ptr_get(mappings->attr), mappings->nr_attr); printf("%s", mappings->nr_attr ? ", " : ""); tracer_print_gather_type(enum_elem_type, ptr); - print_enum_labels(mappings, v64); + print_enum_labels(mappings, v); return tracer_gather_size(access_mode, integer_size_bytes); } static void tracer_print_gather_field(const struct side_event_field *field, const void *ptr) { - printf("%s: ", field->field_name); + printf("%s: ", side_ptr_get(field->field_name)); (void) tracer_print_gather_type(&field->side_type, ptr); } @@ -1394,16 +1678,17 @@ uint32_t tracer_print_gather_struct(const struct side_type_gather *type_gather, { enum side_type_gather_access_mode access_mode = (enum side_type_gather_access_mode) type_gather->u.side_struct.access_mode; + const struct side_type_struct *side_struct = side_ptr_get(type_gather->u.side_struct.type); const char *ptr = (const char *) _ptr; uint32_t i; ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_struct.offset); - print_attributes("attr", ":", type_gather->u.side_struct.type->attr, type_gather->u.side_struct.type->nr_attr); - printf("%s", type_gather->u.side_struct.type->nr_attr ? ", " : ""); + print_attributes("attr", ":", side_ptr_get(side_struct->attr), side_struct->nr_attr); + printf("%s", side_struct->nr_attr ? ", " : ""); printf("fields: { "); - for (i = 0; i < type_gather->u.side_struct.type->nr_fields; i++) { + for (i = 0; i < side_struct->nr_fields; i++) { printf("%s", i ? ", " : ""); - tracer_print_gather_field(&type_gather->u.side_struct.type->fields[i], ptr); + tracer_print_gather_field(&side_ptr_get(side_struct->fields)[i], ptr); } printf(" }"); return tracer_gather_size(access_mode, type_gather->u.side_struct.size); @@ -1419,12 +1704,14 @@ uint32_t tracer_print_gather_array(const struct side_type_gather *type_gather, c ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_array.offset); orig_ptr = ptr; - print_attributes("attr", ":", type_gather->u.side_array.type.attr, type_gather->u.side_array.type.nr_attr); + print_attributes("attr", ":", side_ptr_get(type_gather->u.side_array.type.attr), type_gather->u.side_array.type.nr_attr); printf("%s", type_gather->u.side_array.type.nr_attr ? ", " : ""); printf("elements: "); printf("[ "); for (i = 0; i < type_gather->u.side_array.type.length; i++) { - switch (type_gather->u.side_array.type.elem_type->type) { + const struct side_type *elem_type = side_ptr_get(type_gather->u.side_array.type.elem_type); + + switch (side_enum_get(elem_type->type)) { case SIDE_TYPE_GATHER_VLA: fprintf(stderr, "\n"); abort(); @@ -1432,7 +1719,7 @@ uint32_t tracer_print_gather_array(const struct side_type_gather *type_gather, c break; } printf("%s", i ? ", " : ""); - ptr += tracer_print_gather_type(type_gather->u.side_array.type.elem_type, ptr); + ptr += tracer_print_gather_type(elem_type, ptr); } printf(" ]"); return tracer_gather_size(access_mode, ptr - orig_ptr); @@ -1444,30 +1731,37 @@ uint32_t tracer_print_gather_vla(const struct side_type_gather *type_gather, con { enum side_type_gather_access_mode access_mode = (enum side_type_gather_access_mode) type_gather->u.side_vla.access_mode; + const struct side_type *length_type = side_ptr_get(type_gather->u.side_vla.length_type); const char *ptr = (const char *) _ptr, *orig_ptr; const char *length_ptr = (const char *) _length_ptr; - union int64_value v64; + union int_value v = {}; uint32_t i, length; /* Access length */ - switch (type_gather->u.side_vla.length_type->type) { + switch (side_enum_get(length_type->type)) { case SIDE_TYPE_GATHER_INTEGER: break; default: fprintf(stderr, "\n"); abort(); } - v64 = tracer_load_gather_integer_value(&type_gather->u.side_vla.length_type->u.side_gather.u.side_integer, + v = tracer_load_gather_integer_value(&length_type->u.side_gather.u.side_integer, length_ptr); - length = (uint32_t) v64.u; + if (v.u[SIDE_INTEGER128_SPLIT_HIGH] || v.u[SIDE_INTEGER128_SPLIT_LOW] > UINT32_MAX) { + fprintf(stderr, "Unexpected vla length value\n"); + abort(); + } + length = (uint32_t) v.u[SIDE_INTEGER128_SPLIT_LOW]; ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_vla.offset); orig_ptr = ptr; - print_attributes("attr", ":", type_gather->u.side_vla.type.attr, type_gather->u.side_vla.type.nr_attr); + print_attributes("attr", ":", side_ptr_get(type_gather->u.side_vla.type.attr), type_gather->u.side_vla.type.nr_attr); printf("%s", type_gather->u.side_vla.type.nr_attr ? ", " : ""); printf("elements: "); printf("[ "); for (i = 0; i < length; i++) { - switch (type_gather->u.side_vla.type.elem_type->type) { + const struct side_type *elem_type = side_ptr_get(type_gather->u.side_vla.type.elem_type); + + switch (side_enum_get(elem_type->type)) { case SIDE_TYPE_GATHER_VLA: fprintf(stderr, "\n"); abort(); @@ -1475,7 +1769,7 @@ uint32_t tracer_print_gather_vla(const struct side_type_gather *type_gather, con break; } printf("%s", i ? ", " : ""); - ptr += tracer_print_gather_type(type_gather->u.side_vla.type.elem_type, ptr); + ptr += tracer_print_gather_type(elem_type, ptr); } printf(" ]"); return tracer_gather_size(access_mode, ptr - orig_ptr); @@ -1498,23 +1792,29 @@ enum side_visitor_status tracer_write_elem_cb(const struct side_tracer_visitor_c } static -void tracer_print_vla_visitor(const struct side_type *type_desc, void *app_ctx) +void tracer_print_vla_visitor(const struct side_type *type_desc, struct side_arg_vla_visitor *vla_visitor) { + void *app_ctx; enum side_visitor_status status; struct tracer_visitor_priv tracer_priv = { - .elem_type = type_desc->u.side_vla_visitor.elem_type, + .elem_type = side_ptr_get(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, }; + side_visitor_func func; - print_attributes("attr", ":", type_desc->u.side_vla_visitor.attr, type_desc->u.side_vla_visitor.nr_attr); + if (!vla_visitor) + abort(); + app_ctx = side_ptr_get(vla_visitor->app_ctx); + print_attributes("attr", ":", side_ptr_get(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); + func = side_ptr_get(type_desc->u.side_vla_visitor.visitor); + status = func(&tracer_ctx, app_ctx); switch (status) { case SIDE_VISITOR_STATUS_OK: break; @@ -1528,16 +1828,16 @@ void tracer_print_vla_visitor(const struct side_type *type_desc, void *app_ctx) static void tracer_print_dynamic_struct(const struct side_arg_dynamic_struct *dynamic_struct) { - const struct side_arg_dynamic_field *fields = dynamic_struct->fields; + const struct side_arg_dynamic_field *fields = side_ptr_get(dynamic_struct->fields); uint32_t i, len = dynamic_struct->len; - print_attributes("attr", "::", dynamic_struct->attr, dynamic_struct->nr_attr); + print_attributes("attr", "::", side_ptr_get(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); + printf("%s:: ", side_ptr_get(fields[i].field_name)); tracer_print_dynamic(&fields[i].elem); } printf(" ]"); @@ -1556,7 +1856,7 @@ enum side_visitor_status tracer_dynamic_struct_write_elem_cb( (struct tracer_dynamic_struct_visitor_priv *) tracer_ctx->priv; printf("%s", tracer_priv->i++ ? ", " : ""); - printf("%s:: ", dynamic_field->field_name); + printf("%s:: ", side_ptr_get(dynamic_field->field_name)); tracer_print_dynamic(&dynamic_field->elem); return SIDE_VISITOR_STATUS_OK; } @@ -1564,7 +1864,7 @@ enum side_visitor_status tracer_dynamic_struct_write_elem_cb( static void tracer_print_dynamic_struct_visitor(const struct side_arg *item) { - enum side_visitor_status status; + struct side_arg_dynamic_struct_visitor *dynamic_struct_visitor; struct tracer_dynamic_struct_visitor_priv tracer_priv = { .i = 0, }; @@ -1572,13 +1872,18 @@ void tracer_print_dynamic_struct_visitor(const struct side_arg *item) .write_field = tracer_dynamic_struct_write_elem_cb, .priv = &tracer_priv, }; - void *app_ctx = item->u.side_dynamic.side_dynamic_struct_visitor.app_ctx; + enum side_visitor_status status; + void *app_ctx; - print_attributes("attr", "::", item->u.side_dynamic.side_dynamic_struct_visitor.attr, item->u.side_dynamic.side_dynamic_struct_visitor.nr_attr); - printf("%s", item->u.side_dynamic.side_dynamic_struct_visitor.nr_attr ? ", " : ""); + dynamic_struct_visitor = side_ptr_get(item->u.side_dynamic.side_dynamic_struct_visitor); + if (!dynamic_struct_visitor) + abort(); + app_ctx = side_ptr_get(dynamic_struct_visitor->app_ctx); + print_attributes("attr", "::", side_ptr_get(dynamic_struct_visitor->attr), dynamic_struct_visitor->nr_attr); + printf("%s", dynamic_struct_visitor->nr_attr ? ", " : ""); printf("fields:: "); printf("[ "); - status = item->u.side_dynamic.side_dynamic_struct_visitor.visitor(&tracer_ctx, app_ctx); + status = side_ptr_get(dynamic_struct_visitor->visitor)(&tracer_ctx, app_ctx); switch (status) { case SIDE_VISITOR_STATUS_OK: break; @@ -1592,10 +1897,10 @@ void tracer_print_dynamic_struct_visitor(const struct side_arg *item) static void tracer_print_dynamic_vla(const struct side_arg_dynamic_vla *vla) { - const struct side_arg *sav = vla->sav; + const struct side_arg *sav = side_ptr_get(vla->sav); uint32_t i, side_sav_len = vla->len; - print_attributes("attr", "::", vla->attr, vla->nr_attr); + print_attributes("attr", "::", side_ptr_get(vla->attr), vla->nr_attr); printf("%s", vla->nr_attr ? ", " : ""); printf("elements:: "); printf("[ "); @@ -1626,7 +1931,7 @@ enum side_visitor_status tracer_dynamic_vla_write_elem_cb( static void tracer_print_dynamic_vla_visitor(const struct side_arg *item) { - enum side_visitor_status status; + struct side_arg_dynamic_vla_visitor *dynamic_vla_visitor; struct tracer_dynamic_vla_visitor_priv tracer_priv = { .i = 0, }; @@ -1634,13 +1939,18 @@ void tracer_print_dynamic_vla_visitor(const struct side_arg *item) .write_elem = tracer_dynamic_vla_write_elem_cb, .priv = &tracer_priv, }; - void *app_ctx = item->u.side_dynamic.side_dynamic_vla_visitor.app_ctx; + enum side_visitor_status status; + void *app_ctx; - print_attributes("attr", "::", item->u.side_dynamic.side_dynamic_vla_visitor.attr, item->u.side_dynamic.side_dynamic_vla_visitor.nr_attr); - printf("%s", item->u.side_dynamic.side_dynamic_vla_visitor.nr_attr ? ", " : ""); + dynamic_vla_visitor = side_ptr_get(item->u.side_dynamic.side_dynamic_vla_visitor); + if (!dynamic_vla_visitor) + abort(); + app_ctx = side_ptr_get(dynamic_vla_visitor->app_ctx); + print_attributes("attr", "::", side_ptr_get(dynamic_vla_visitor->attr), dynamic_vla_visitor->nr_attr); + printf("%s", dynamic_vla_visitor->nr_attr ? ", " : ""); printf("elements:: "); printf("[ "); - status = item->u.side_dynamic.side_dynamic_vla_visitor.visitor(&tracer_ctx, app_ctx); + status = side_ptr_get(dynamic_vla_visitor->visitor)(&tracer_ctx, app_ctx); switch (status) { case SIDE_VISITOR_STATUS_OK: break; @@ -1655,7 +1965,7 @@ static void tracer_print_dynamic(const struct side_arg *item) { printf("{ "); - switch (item->type) { + switch (side_enum_get(item->type)) { /* Dynamic basic types */ case SIDE_TYPE_DYNAMIC_NULL: tracer_print_type_header("::", side_ptr_get(item->u.side_dynamic.side_null.attr), @@ -1670,7 +1980,7 @@ void tracer_print_dynamic(const struct side_arg *item) TRACER_DISPLAY_BASE_10); break; case SIDE_TYPE_DYNAMIC_BYTE: - tracer_print_type_header("::", item->u.side_dynamic.side_byte.type.attr, item->u.side_dynamic.side_byte.type.nr_attr); + 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); break; case SIDE_TYPE_DYNAMIC_POINTER: @@ -1682,21 +1992,21 @@ void tracer_print_dynamic(const struct side_arg *item) &item->u.side_dynamic.side_float.value); break; case SIDE_TYPE_DYNAMIC_STRING: - tracer_print_type_header("::", item->u.side_dynamic.side_string.type.attr, item->u.side_dynamic.side_string.type.nr_attr); + 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_string((const char *)(uintptr_t) item->u.side_dynamic.side_string.value, item->u.side_dynamic.side_string.type.unit_size, - item->u.side_dynamic.side_string.type.byte_order, NULL); + side_enum_get(item->u.side_dynamic.side_string.type.byte_order), NULL); break; /* Dynamic compound types */ case SIDE_TYPE_DYNAMIC_STRUCT: - tracer_print_dynamic_struct(item->u.side_dynamic.side_dynamic_struct); + tracer_print_dynamic_struct(side_ptr_get(item->u.side_dynamic.side_dynamic_struct)); break; case SIDE_TYPE_DYNAMIC_STRUCT_VISITOR: tracer_print_dynamic_struct_visitor(item); break; case SIDE_TYPE_DYNAMIC_VLA: - tracer_print_dynamic_vla(item->u.side_dynamic.side_dynamic_vla); + tracer_print_dynamic_vla(side_ptr_get(item->u.side_dynamic.side_dynamic_vla)); break; case SIDE_TYPE_DYNAMIC_VLA_VISITOR: tracer_print_dynamic_vla_visitor(item); @@ -1713,19 +2023,19 @@ void tracer_print_static_fields(const struct side_event_description *desc, const struct side_arg_vec *side_arg_vec, uint32_t *nr_items) { - const struct side_arg *sav = side_arg_vec->sav; + const struct side_arg *sav = side_ptr_get(side_arg_vec->sav); uint32_t i, side_sav_len = side_arg_vec->len; - printf("provider: %s, event: %s", desc->provider_name, desc->event_name); + printf("provider: %s, event: %s", side_ptr_get(desc->provider_name), side_ptr_get(desc->event_name)); if (desc->nr_fields != side_sav_len) { fprintf(stderr, "ERROR: number of fields mismatch between description and arguments\n"); abort(); } - print_attributes(", attr", ":", desc->attr, desc->nr_attr); + print_attributes(", attr", ":", side_ptr_get(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]); + tracer_print_field(&side_ptr_get(desc->fields)[i], &sav[i]); } if (nr_items) *nr_items = i; @@ -1758,12 +2068,12 @@ void tracer_call_variadic(const struct side_event_description *desc, fprintf(stderr, "ERROR: unexpected non-variadic event description\n"); abort(); } - print_attributes(", attr ", "::", var_struct->attr, var_struct->nr_attr); + print_attributes(", attr ", "::", side_ptr_get(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); + printf("%s:: ", side_ptr_get(side_ptr_get(var_struct->fields)[i].field_name)); + tracer_print_dynamic(&side_ptr_get(var_struct->fields)[i].elem); } if (i) printf(" ]"); @@ -1787,25 +2097,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); + 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_handle); if (ret) abort(); } else { - ret = side_tracer_callback_register(event, tracer_call, NULL); + ret = side_tracer_callback_register(event, tracer_call, NULL, tracer_handle); 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_handle); if (ret) abort(); } else { - ret = side_tracer_callback_unregister(event, tracer_call, NULL); + ret = side_tracer_callback_unregister(event, tracer_call, NULL, tracer_handle); if (ret) abort(); }