2 * Copyright (c) 2007 Hyogeol Lee <hyogeollee@gmail.com>
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer
10 * in this position and unchanged.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
15 * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
16 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
17 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
18 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
19 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
20 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
21 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
22 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
23 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
24 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26 #include <sys/types.h>
37 #include "_libelftc.h"
39 ELFTC_VCSID("$Id: libelftc_dem_gnu3.c 3512 2016-12-29 07:04:19Z kaiwang27 $");
42 * @file cpp_demangle.c
43 * @brief Decode IA-64 C++ ABI style implementation.
45 * IA-64 standard ABI(Itanium C++ ABI) references.
47 * http://www.codesourcery.com/cxx-abi/abi.html#mangling \n
48 * http://www.codesourcery.com/cxx-abi/abi-mangling.html
52 TYPE_PTR, TYPE_REF, TYPE_CMX, TYPE_IMG, TYPE_EXT, TYPE_RST, TYPE_VAT,
56 struct vector_type_qualifier {
57 size_t size, capacity;
58 enum type_qualifier *q_container;
59 struct vector_str ext_name;
63 READ_FAIL, READ_NEST, READ_TMPL, READ_EXPR, READ_EXPL, READ_LOCAL,
64 READ_TYPE, READ_FUNC, READ_PTRMEM
67 struct vector_read_cmd {
68 size_t size, capacity;
69 enum read_cmd *r_container;
72 struct cpp_demangle_data {
73 struct vector_str output; /* output string vector */
74 struct vector_str output_tmp;
75 struct vector_str subst; /* substitution string vector */
76 struct vector_str tmpl;
77 struct vector_str class_type;
78 struct vector_read_cmd cmd;
79 bool paren; /* parenthesis opened */
80 bool pfirst; /* first element of parameter */
81 bool mem_rst; /* restrict member function */
82 bool mem_vat; /* volatile member function */
83 bool mem_cst; /* const member function */
85 const char *cur; /* current mangled name ptr */
86 const char *last_sname; /* last source name */
90 #define CPP_DEMANGLE_TRY_LIMIT 128
91 #define FLOAT_SPRINTF_TRY_LIMIT 5
92 #define FLOAT_QUADRUPLE_BYTES 16
93 #define FLOAT_EXTENED_BYTES 10
95 #define SIMPLE_HASH(x,y) (64 * x + y)
96 #define DEM_PUSH_STR(d,s) cpp_demangle_push_str((d), (s), strlen((s)))
97 #define VEC_PUSH_STR(d,s) vector_str_push((d), (s), strlen((s)))
99 static void cpp_demangle_data_dest(struct cpp_demangle_data *);
100 static int cpp_demangle_data_init(struct cpp_demangle_data *,
102 static int cpp_demangle_get_subst(struct cpp_demangle_data *, size_t);
103 static int cpp_demangle_get_tmpl_param(struct cpp_demangle_data *, size_t);
104 static int cpp_demangle_push_fp(struct cpp_demangle_data *,
105 char *(*)(const char *, size_t));
106 static int cpp_demangle_push_str(struct cpp_demangle_data *, const char *,
108 static int cpp_demangle_push_subst(struct cpp_demangle_data *,
109 const char *, size_t);
110 static int cpp_demangle_push_subst_v(struct cpp_demangle_data *,
111 struct vector_str *);
112 static int cpp_demangle_push_type_qualifier(struct cpp_demangle_data *,
113 struct vector_type_qualifier *, const char *);
114 static int cpp_demangle_read_array(struct cpp_demangle_data *);
115 static int cpp_demangle_read_encoding(struct cpp_demangle_data *);
116 static int cpp_demangle_read_expr_primary(struct cpp_demangle_data *);
117 static int cpp_demangle_read_expression(struct cpp_demangle_data *);
118 static int cpp_demangle_read_expression_flat(struct cpp_demangle_data *,
120 static int cpp_demangle_read_expression_binary(struct cpp_demangle_data *,
121 const char *, size_t);
122 static int cpp_demangle_read_expression_unary(struct cpp_demangle_data *,
123 const char *, size_t);
124 static int cpp_demangle_read_expression_trinary(struct cpp_demangle_data *,
125 const char *, size_t, const char *, size_t);
126 static int cpp_demangle_read_function(struct cpp_demangle_data *, int *,
127 struct vector_type_qualifier *);
128 static int cpp_demangle_local_source_name(struct cpp_demangle_data *ddata);
129 static int cpp_demangle_read_local_name(struct cpp_demangle_data *);
130 static int cpp_demangle_read_name(struct cpp_demangle_data *);
131 static int cpp_demangle_read_name_flat(struct cpp_demangle_data *,
133 static int cpp_demangle_read_nested_name(struct cpp_demangle_data *);
134 static int cpp_demangle_read_number(struct cpp_demangle_data *, long *);
135 static int cpp_demangle_read_number_as_string(struct cpp_demangle_data *,
137 static int cpp_demangle_read_nv_offset(struct cpp_demangle_data *);
138 static int cpp_demangle_read_offset(struct cpp_demangle_data *);
139 static int cpp_demangle_read_offset_number(struct cpp_demangle_data *);
140 static int cpp_demangle_read_pointer_to_member(struct cpp_demangle_data *);
141 static int cpp_demangle_read_sname(struct cpp_demangle_data *);
142 static int cpp_demangle_read_subst(struct cpp_demangle_data *);
143 static int cpp_demangle_read_subst_std(struct cpp_demangle_data *);
144 static int cpp_demangle_read_subst_stdtmpl(struct cpp_demangle_data *,
145 const char *, size_t);
146 static int cpp_demangle_read_tmpl_arg(struct cpp_demangle_data *);
147 static int cpp_demangle_read_tmpl_args(struct cpp_demangle_data *);
148 static int cpp_demangle_read_tmpl_param(struct cpp_demangle_data *);
149 static int cpp_demangle_read_type(struct cpp_demangle_data *, int);
150 static int cpp_demangle_read_type_flat(struct cpp_demangle_data *,
152 static int cpp_demangle_read_uqname(struct cpp_demangle_data *);
153 static int cpp_demangle_read_v_offset(struct cpp_demangle_data *);
154 static char *decode_fp_to_double(const char *, size_t);
155 static char *decode_fp_to_float(const char *, size_t);
156 static char *decode_fp_to_float128(const char *, size_t);
157 static char *decode_fp_to_float80(const char *, size_t);
158 static char *decode_fp_to_long_double(const char *, size_t);
159 static int hex_to_dec(char);
160 static void vector_read_cmd_dest(struct vector_read_cmd *);
161 static int vector_read_cmd_find(struct vector_read_cmd *, enum read_cmd);
162 static int vector_read_cmd_init(struct vector_read_cmd *);
163 static int vector_read_cmd_pop(struct vector_read_cmd *);
164 static int vector_read_cmd_push(struct vector_read_cmd *, enum read_cmd);
165 static void vector_type_qualifier_dest(struct vector_type_qualifier *);
166 static int vector_type_qualifier_init(struct vector_type_qualifier *);
167 static int vector_type_qualifier_push(struct vector_type_qualifier *,
168 enum type_qualifier);
171 * @brief Decode the input string by IA-64 C++ ABI style.
173 * GNU GCC v3 use IA-64 standard ABI.
174 * @return New allocated demangled string or NULL if failed.
175 * @todo 1. Testing and more test case. 2. Code cleaning.
178 cpp_demangle_gnu3(const char *org)
180 struct cpp_demangle_data ddata;
185 if (org == NULL || (org_len = strlen(org)) < 2)
188 if (org_len > 11 && !strncmp(org, "_GLOBAL__I_", 11)) {
189 if ((rtn = malloc(org_len + 19)) == NULL)
191 snprintf(rtn, org_len + 19,
192 "global constructors keyed to %s", org + 11);
196 if (org[0] != '_' || org[1] != 'Z')
199 if (!cpp_demangle_data_init(&ddata, org + 2))
204 if (!cpp_demangle_read_encoding(&ddata))
208 while (*ddata.cur != '\0') {
210 * Breaking at some gcc info at tail. e.g) @@GLIBCXX_3.4
212 if (*ddata.cur == '@' && *(ddata.cur + 1) == '@')
214 if (!cpp_demangle_read_type(&ddata, 1))
216 if (limit++ > CPP_DEMANGLE_TRY_LIMIT)
220 if (ddata.output.size == 0)
222 if (ddata.paren && !VEC_PUSH_STR(&ddata.output, ")"))
224 if (ddata.mem_vat && !VEC_PUSH_STR(&ddata.output, " volatile"))
226 if (ddata.mem_cst && !VEC_PUSH_STR(&ddata.output, " const"))
228 if (ddata.mem_rst && !VEC_PUSH_STR(&ddata.output, " restrict"))
231 rtn = vector_str_get_flat(&ddata.output, (size_t *) NULL);
234 cpp_demangle_data_dest(&ddata);
240 cpp_demangle_data_dest(struct cpp_demangle_data *d)
246 vector_read_cmd_dest(&d->cmd);
247 vector_str_dest(&d->class_type);
248 vector_str_dest(&d->tmpl);
249 vector_str_dest(&d->subst);
250 vector_str_dest(&d->output_tmp);
251 vector_str_dest(&d->output);
255 cpp_demangle_data_init(struct cpp_demangle_data *d, const char *cur)
258 if (d == NULL || cur == NULL)
261 if (!vector_str_init(&d->output))
263 if (!vector_str_init(&d->output_tmp))
265 if (!vector_str_init(&d->subst))
267 if (!vector_str_init(&d->tmpl))
269 if (!vector_str_init(&d->class_type))
271 if (!vector_read_cmd_init(&d->cmd))
274 assert(d->output.container != NULL);
275 assert(d->output_tmp.container != NULL);
276 assert(d->subst.container != NULL);
277 assert(d->tmpl.container != NULL);
278 assert(d->class_type.container != NULL);
287 d->last_sname = NULL;
293 vector_str_dest(&d->class_type);
295 vector_str_dest(&d->tmpl);
297 vector_str_dest(&d->subst);
299 vector_str_dest(&d->output_tmp);
301 vector_str_dest(&d->output);
307 cpp_demangle_push_fp(struct cpp_demangle_data *ddata,
308 char *(*decoder)(const char *, size_t))
315 if (ddata == NULL || decoder == NULL)
319 while (*ddata->cur != 'E')
322 if ((f = decoder(fp, ddata->cur - fp)) == NULL)
326 if ((len = strlen(f)) > 0)
327 rtn = cpp_demangle_push_str(ddata, f, len);
337 cpp_demangle_push_str(struct cpp_demangle_data *ddata, const char *str,
341 if (ddata == NULL || str == NULL || len == 0)
344 if (ddata->push_head > 0)
345 return (vector_str_push(&ddata->output_tmp, str, len));
347 return (vector_str_push(&ddata->output, str, len));
351 cpp_demangle_push_subst(struct cpp_demangle_data *ddata, const char *str,
355 if (ddata == NULL || str == NULL || len == 0)
358 if (!vector_str_find(&ddata->subst, str, len))
359 return (vector_str_push(&ddata->subst, str, len));
365 cpp_demangle_push_subst_v(struct cpp_demangle_data *ddata, struct vector_str *v)
371 if (ddata == NULL || v == NULL)
374 if ((str = vector_str_get_flat(v, &str_len)) == NULL)
377 rtn = cpp_demangle_push_subst(ddata, str, str_len);
385 cpp_demangle_push_type_qualifier(struct cpp_demangle_data *ddata,
386 struct vector_type_qualifier *v, const char *type_str)
388 struct vector_str subst_v;
389 size_t idx, e_idx, e_len;
393 if (ddata == NULL || v == NULL)
396 if ((idx = v->size) == 0)
400 if (type_str != NULL) {
401 if (!vector_str_init(&subst_v))
403 if (!VEC_PUSH_STR(&subst_v, type_str))
409 switch (v->q_container[idx - 1]) {
411 if (!DEM_PUSH_STR(ddata, "*"))
413 if (type_str != NULL) {
414 if (!VEC_PUSH_STR(&subst_v, "*"))
416 if (!cpp_demangle_push_subst_v(ddata,
423 if (!DEM_PUSH_STR(ddata, "&"))
425 if (type_str != NULL) {
426 if (!VEC_PUSH_STR(&subst_v, "&"))
428 if (!cpp_demangle_push_subst_v(ddata,
435 if (!DEM_PUSH_STR(ddata, " complex"))
437 if (type_str != NULL) {
438 if (!VEC_PUSH_STR(&subst_v, " complex"))
440 if (!cpp_demangle_push_subst_v(ddata,
447 if (!DEM_PUSH_STR(ddata, " imaginary"))
449 if (type_str != NULL) {
450 if (!vector_str_push(&subst_v, " imaginary",
453 if (!cpp_demangle_push_subst_v(ddata,
460 if (v->ext_name.size == 0 ||
461 e_idx > v->ext_name.size - 1)
463 if ((e_len = strlen(v->ext_name.container[e_idx])) ==
466 if ((buf = malloc(e_len + 2)) == NULL)
468 snprintf(buf, e_len + 2, " %s",
469 v->ext_name.container[e_idx]);
471 if (!DEM_PUSH_STR(ddata, buf)) {
476 if (type_str != NULL) {
477 if (!VEC_PUSH_STR(&subst_v, buf)) {
481 if (!cpp_demangle_push_subst_v(ddata,
492 if (!DEM_PUSH_STR(ddata, " restrict"))
494 if (type_str != NULL) {
495 if (!VEC_PUSH_STR(&subst_v, " restrict"))
497 if (!cpp_demangle_push_subst_v(ddata,
504 if (!DEM_PUSH_STR(ddata, " volatile"))
506 if (type_str != NULL) {
507 if (!VEC_PUSH_STR(&subst_v, " volatile"))
509 if (!cpp_demangle_push_subst_v(ddata,
516 if (!DEM_PUSH_STR(ddata, " const"))
518 if (type_str != NULL) {
519 if (!VEC_PUSH_STR(&subst_v, " const"))
521 if (!cpp_demangle_push_subst_v(ddata,
528 if (v->ext_name.size == 0 ||
529 e_idx > v->ext_name.size - 1)
531 if ((e_len = strlen(v->ext_name.container[e_idx])) ==
534 if ((buf = malloc(e_len + 12)) == NULL)
536 snprintf(buf, e_len + 12, " __vector(%s)",
537 v->ext_name.container[e_idx]);
538 if (!DEM_PUSH_STR(ddata, buf)) {
542 if (type_str != NULL) {
543 if (!VEC_PUSH_STR(&subst_v, buf)) {
547 if (!cpp_demangle_push_subst_v(ddata,
562 if (type_str != NULL)
563 vector_str_dest(&subst_v);
569 cpp_demangle_get_subst(struct cpp_demangle_data *ddata, size_t idx)
573 if (ddata == NULL || ddata->subst.size <= idx)
575 if ((len = strlen(ddata->subst.container[idx])) == 0)
577 if (!cpp_demangle_push_str(ddata, ddata->subst.container[idx], len))
587 cpp_demangle_get_tmpl_param(struct cpp_demangle_data *ddata, size_t idx)
591 if (ddata == NULL || ddata->tmpl.size <= idx)
593 if ((len = strlen(ddata->tmpl.container[idx])) == 0)
595 if (!cpp_demangle_push_str(ddata, ddata->tmpl.container[idx], len))
604 cpp_demangle_read_array(struct cpp_demangle_data *ddata)
606 size_t i, num_len, exp_len, p_idx, idx;
610 if (ddata == NULL || *(++ddata->cur) == '\0')
613 if (*ddata->cur == '_') {
614 if (*(++ddata->cur) == '\0')
617 if (!cpp_demangle_read_type(ddata, 0))
620 if (!DEM_PUSH_STR(ddata, "[]"))
623 if (ELFTC_ISDIGIT(*ddata->cur) != 0) {
625 while (ELFTC_ISDIGIT(*ddata->cur) != 0)
627 if (*ddata->cur != '_')
629 num_len = ddata->cur - num;
631 if (*(++ddata->cur) == '\0')
633 if (!cpp_demangle_read_type(ddata, 0))
635 if (!DEM_PUSH_STR(ddata, "["))
637 if (!cpp_demangle_push_str(ddata, num, num_len))
639 if (!DEM_PUSH_STR(ddata, "]"))
642 p_idx = ddata->output.size;
643 if (!cpp_demangle_read_expression(ddata))
645 if ((exp = vector_str_substr(&ddata->output, p_idx,
646 ddata->output.size - 1, &exp_len)) == NULL)
648 idx = ddata->output.size;
649 for (i = p_idx; i < idx; ++i)
650 if (!vector_str_pop(&ddata->output)) {
654 if (*ddata->cur != '_') {
659 if (*ddata->cur == '\0') {
663 if (!cpp_demangle_read_type(ddata, 0)) {
667 if (!DEM_PUSH_STR(ddata, "[")) {
671 if (!cpp_demangle_push_str(ddata, exp, exp_len)) {
675 if (!DEM_PUSH_STR(ddata, "]")) {
687 cpp_demangle_read_expr_primary(struct cpp_demangle_data *ddata)
691 if (ddata == NULL || *(++ddata->cur) == '\0')
694 if (*ddata->cur == '_' && *(ddata->cur + 1) == 'Z') {
696 if (*ddata->cur == '\0')
698 if (!cpp_demangle_read_encoding(ddata))
704 switch (*ddata->cur) {
706 if (*(ddata->cur + 2) != 'E')
708 switch (*(++ddata->cur)) {
711 return (DEM_PUSH_STR(ddata, "false"));
714 return (DEM_PUSH_STR(ddata, "true"));
721 return (cpp_demangle_push_fp(ddata, decode_fp_to_double));
725 if (sizeof(long double) == 10)
726 return (cpp_demangle_push_fp(ddata,
727 decode_fp_to_double));
728 return (cpp_demangle_push_fp(ddata, decode_fp_to_float80));
732 return (cpp_demangle_push_fp(ddata, decode_fp_to_float));
736 if (sizeof(long double) == 16)
737 return (cpp_demangle_push_fp(ddata,
738 decode_fp_to_double));
739 return (cpp_demangle_push_fp(ddata, decode_fp_to_float128));
750 if (*(++ddata->cur) == 'n') {
751 if (!DEM_PUSH_STR(ddata, "-"))
756 while (*ddata->cur != 'E') {
757 if (!ELFTC_ISDIGIT(*ddata->cur))
762 return (cpp_demangle_push_str(ddata, num,
763 ddata->cur - num - 1));
771 cpp_demangle_read_expression(struct cpp_demangle_data *ddata)
774 if (ddata == NULL || *ddata->cur == '\0')
777 switch (SIMPLE_HASH(*ddata->cur, *(ddata->cur + 1))) {
778 case SIMPLE_HASH('s', 't'):
780 return (cpp_demangle_read_type(ddata, 0));
782 case SIMPLE_HASH('s', 'r'):
784 if (!cpp_demangle_read_type(ddata, 0))
786 if (!cpp_demangle_read_uqname(ddata))
788 if (*ddata->cur == 'I')
789 return (cpp_demangle_read_tmpl_args(ddata));
792 case SIMPLE_HASH('a', 'a'):
795 return (cpp_demangle_read_expression_binary(ddata, "&&", 2));
797 case SIMPLE_HASH('a', 'd'):
798 /* operator & (unary) */
800 return (cpp_demangle_read_expression_unary(ddata, "&", 1));
802 case SIMPLE_HASH('a', 'n'):
805 return (cpp_demangle_read_expression_binary(ddata, "&", 1));
807 case SIMPLE_HASH('a', 'N'):
810 return (cpp_demangle_read_expression_binary(ddata, "&=", 2));
812 case SIMPLE_HASH('a', 'S'):
815 return (cpp_demangle_read_expression_binary(ddata, "=", 1));
817 case SIMPLE_HASH('c', 'l'):
820 return (cpp_demangle_read_expression_binary(ddata, "()", 2));
822 case SIMPLE_HASH('c', 'm'):
825 return (cpp_demangle_read_expression_binary(ddata, ",", 1));
827 case SIMPLE_HASH('c', 'o'):
830 return (cpp_demangle_read_expression_binary(ddata, "~", 1));
832 case SIMPLE_HASH('c', 'v'):
833 /* operator (cast) */
835 return (cpp_demangle_read_expression_binary(ddata, "(cast)", 6));
837 case SIMPLE_HASH('d', 'a'):
838 /* operator delete [] */
840 return (cpp_demangle_read_expression_unary(ddata, "delete []", 9));
842 case SIMPLE_HASH('d', 'e'):
843 /* operator * (unary) */
845 return (cpp_demangle_read_expression_unary(ddata, "*", 1));
847 case SIMPLE_HASH('d', 'l'):
848 /* operator delete */
850 return (cpp_demangle_read_expression_unary(ddata, "delete", 6));
852 case SIMPLE_HASH('d', 'v'):
855 return (cpp_demangle_read_expression_binary(ddata, "/", 1));
857 case SIMPLE_HASH('d', 'V'):
860 return (cpp_demangle_read_expression_binary(ddata, "/=", 2));
862 case SIMPLE_HASH('e', 'o'):
865 return (cpp_demangle_read_expression_binary(ddata, "^", 1));
867 case SIMPLE_HASH('e', 'O'):
870 return (cpp_demangle_read_expression_binary(ddata, "^=", 2));
872 case SIMPLE_HASH('e', 'q'):
875 return (cpp_demangle_read_expression_binary(ddata, "==", 2));
877 case SIMPLE_HASH('g', 'e'):
880 return (cpp_demangle_read_expression_binary(ddata, ">=", 2));
882 case SIMPLE_HASH('g', 't'):
885 return (cpp_demangle_read_expression_binary(ddata, ">", 1));
887 case SIMPLE_HASH('i', 'x'):
890 return (cpp_demangle_read_expression_binary(ddata, "[]", 2));
892 case SIMPLE_HASH('l', 'e'):
895 return (cpp_demangle_read_expression_binary(ddata, "<=", 2));
897 case SIMPLE_HASH('l', 's'):
900 return (cpp_demangle_read_expression_binary(ddata, "<<", 2));
902 case SIMPLE_HASH('l', 'S'):
905 return (cpp_demangle_read_expression_binary(ddata, "<<=", 3));
907 case SIMPLE_HASH('l', 't'):
910 return (cpp_demangle_read_expression_binary(ddata, "<", 1));
912 case SIMPLE_HASH('m', 'i'):
915 return (cpp_demangle_read_expression_binary(ddata, "-", 1));
917 case SIMPLE_HASH('m', 'I'):
920 return (cpp_demangle_read_expression_binary(ddata, "-=", 2));
922 case SIMPLE_HASH('m', 'l'):
925 return (cpp_demangle_read_expression_binary(ddata, "*", 1));
927 case SIMPLE_HASH('m', 'L'):
930 return (cpp_demangle_read_expression_binary(ddata, "*=", 2));
932 case SIMPLE_HASH('m', 'm'):
935 return (cpp_demangle_read_expression_binary(ddata, "--", 2));
937 case SIMPLE_HASH('n', 'a'):
940 return (cpp_demangle_read_expression_unary(ddata, "new []", 6));
942 case SIMPLE_HASH('n', 'e'):
945 return (cpp_demangle_read_expression_binary(ddata, "!=", 2));
947 case SIMPLE_HASH('n', 'g'):
948 /* operator - (unary) */
950 return (cpp_demangle_read_expression_unary(ddata, "-", 1));
952 case SIMPLE_HASH('n', 't'):
955 return (cpp_demangle_read_expression_binary(ddata, "!", 1));
957 case SIMPLE_HASH('n', 'w'):
960 return (cpp_demangle_read_expression_unary(ddata, "new", 3));
962 case SIMPLE_HASH('o', 'o'):
965 return (cpp_demangle_read_expression_binary(ddata, "||", 2));
967 case SIMPLE_HASH('o', 'r'):
970 return (cpp_demangle_read_expression_binary(ddata, "|", 1));
972 case SIMPLE_HASH('o', 'R'):
975 return (cpp_demangle_read_expression_binary(ddata, "|=", 2));
977 case SIMPLE_HASH('p', 'l'):
980 return (cpp_demangle_read_expression_binary(ddata, "+", 1));
982 case SIMPLE_HASH('p', 'L'):
985 return (cpp_demangle_read_expression_binary(ddata, "+=", 2));
987 case SIMPLE_HASH('p', 'm'):
990 return (cpp_demangle_read_expression_binary(ddata, "->*", 3));
992 case SIMPLE_HASH('p', 'p'):
995 return (cpp_demangle_read_expression_binary(ddata, "++", 2));
997 case SIMPLE_HASH('p', 's'):
998 /* operator + (unary) */
1000 return (cpp_demangle_read_expression_unary(ddata, "+", 1));
1002 case SIMPLE_HASH('p', 't'):
1005 return (cpp_demangle_read_expression_binary(ddata, "->", 2));
1007 case SIMPLE_HASH('q', 'u'):
1010 return (cpp_demangle_read_expression_trinary(ddata, "?", 1,
1013 case SIMPLE_HASH('r', 'm'):
1016 return (cpp_demangle_read_expression_binary(ddata, "%", 1));
1018 case SIMPLE_HASH('r', 'M'):
1021 return (cpp_demangle_read_expression_binary(ddata, "%=", 2));
1023 case SIMPLE_HASH('r', 's'):
1026 return (cpp_demangle_read_expression_binary(ddata, ">>", 2));
1028 case SIMPLE_HASH('r', 'S'):
1031 return (cpp_demangle_read_expression_binary(ddata, ">>=", 3));
1033 case SIMPLE_HASH('r', 'z'):
1034 /* operator sizeof */
1036 return (cpp_demangle_read_expression_unary(ddata, "sizeof", 6));
1038 case SIMPLE_HASH('s', 'v'):
1039 /* operator sizeof */
1041 return (cpp_demangle_read_expression_unary(ddata, "sizeof", 6));
1044 switch (*ddata->cur) {
1046 return (cpp_demangle_read_expr_primary(ddata));
1048 return (cpp_demangle_read_tmpl_param(ddata));
1055 cpp_demangle_read_expression_flat(struct cpp_demangle_data *ddata, char **str)
1057 struct vector_str *output;
1058 size_t i, p_idx, idx, exp_len;
1061 output = ddata->push_head > 0 ? &ddata->output_tmp :
1064 p_idx = output->size;
1066 if (!cpp_demangle_read_expression(ddata))
1069 if ((exp = vector_str_substr(output, p_idx, output->size - 1,
1074 for (i = p_idx; i < idx; ++i) {
1075 if (!vector_str_pop(output)) {
1087 cpp_demangle_read_expression_binary(struct cpp_demangle_data *ddata,
1088 const char *name, size_t len)
1091 if (ddata == NULL || name == NULL || len == 0)
1093 if (!cpp_demangle_read_expression(ddata))
1095 if (!cpp_demangle_push_str(ddata, name, len))
1098 return (cpp_demangle_read_expression(ddata));
1102 cpp_demangle_read_expression_unary(struct cpp_demangle_data *ddata,
1103 const char *name, size_t len)
1106 if (ddata == NULL || name == NULL || len == 0)
1108 if (!cpp_demangle_read_expression(ddata))
1111 return (cpp_demangle_push_str(ddata, name, len));
1115 cpp_demangle_read_expression_trinary(struct cpp_demangle_data *ddata,
1116 const char *name1, size_t len1, const char *name2, size_t len2)
1119 if (ddata == NULL || name1 == NULL || len1 == 0 || name2 == NULL ||
1123 if (!cpp_demangle_read_expression(ddata))
1125 if (!cpp_demangle_push_str(ddata, name1, len1))
1127 if (!cpp_demangle_read_expression(ddata))
1129 if (!cpp_demangle_push_str(ddata, name2, len2))
1132 return (cpp_demangle_read_expression(ddata));
1136 cpp_demangle_read_function(struct cpp_demangle_data *ddata, int *ext_c,
1137 struct vector_type_qualifier *v)
1139 size_t class_type_size, class_type_len, limit;
1140 const char *class_type;
1142 if (ddata == NULL || *ddata->cur != 'F' || v == NULL)
1146 if (*ddata->cur == 'Y') {
1151 if (!cpp_demangle_read_type(ddata, 0))
1153 if (*ddata->cur != 'E') {
1154 if (!DEM_PUSH_STR(ddata, "("))
1156 if (vector_read_cmd_find(&ddata->cmd, READ_PTRMEM)) {
1157 if ((class_type_size = ddata->class_type.size) == 0)
1160 ddata->class_type.container[class_type_size - 1];
1161 if (class_type == NULL)
1163 if ((class_type_len = strlen(class_type)) == 0)
1165 if (!cpp_demangle_push_str(ddata, class_type,
1168 if (!DEM_PUSH_STR(ddata, "::*"))
1172 if (!cpp_demangle_push_type_qualifier(ddata, v,
1173 (const char *) NULL))
1175 vector_type_qualifier_dest(v);
1176 if (!vector_type_qualifier_init(v))
1180 if (!DEM_PUSH_STR(ddata, ")("))
1185 if (!cpp_demangle_read_type(ddata, 0))
1187 if (*ddata->cur == 'E')
1189 if (limit++ > CPP_DEMANGLE_TRY_LIMIT)
1193 if (vector_read_cmd_find(&ddata->cmd, READ_PTRMEM) == 1) {
1194 if (!cpp_demangle_push_type_qualifier(ddata, v,
1195 (const char *) NULL))
1197 vector_type_qualifier_dest(v);
1198 if (!vector_type_qualifier_init(v))
1202 if (!DEM_PUSH_STR(ddata, ")"))
1211 /* read encoding, encoding are function name, data name, special-name */
1213 cpp_demangle_read_encoding(struct cpp_demangle_data *ddata)
1215 char *name, *type, *num_str;
1219 if (ddata == NULL || *ddata->cur == '\0')
1223 switch (SIMPLE_HASH(*ddata->cur, *(ddata->cur + 1))) {
1224 case SIMPLE_HASH('G', 'A'):
1225 if (!DEM_PUSH_STR(ddata, "hidden alias for "))
1228 if (*ddata->cur == '\0')
1230 return (cpp_demangle_read_encoding(ddata));
1232 case SIMPLE_HASH('G', 'R'):
1233 if (!DEM_PUSH_STR(ddata, "reference temporary #"))
1236 if (*ddata->cur == '\0')
1238 if (!cpp_demangle_read_name_flat(ddata, &name))
1241 if (!cpp_demangle_read_number_as_string(ddata, &num_str))
1243 if (!DEM_PUSH_STR(ddata, num_str))
1245 if (!DEM_PUSH_STR(ddata, " for "))
1247 if (!DEM_PUSH_STR(ddata, name))
1256 case SIMPLE_HASH('G', 'T'):
1258 if (*ddata->cur == '\0')
1260 switch (*ddata->cur) {
1262 if (!DEM_PUSH_STR(ddata, "non-transaction clone for "))
1267 if (!DEM_PUSH_STR(ddata, "transaction clone for "))
1272 return (cpp_demangle_read_encoding(ddata));
1274 case SIMPLE_HASH('G', 'V'):
1275 /* sentry object for 1 time init */
1276 if (!DEM_PUSH_STR(ddata, "guard variable for "))
1281 case SIMPLE_HASH('T', 'c'):
1282 /* virtual function covariant override thunk */
1283 if (!DEM_PUSH_STR(ddata,
1284 "virtual function covariant override "))
1287 if (*ddata->cur == '\0')
1289 if (!cpp_demangle_read_offset(ddata))
1291 if (!cpp_demangle_read_offset(ddata))
1293 return (cpp_demangle_read_encoding(ddata));
1295 case SIMPLE_HASH('T', 'C'):
1296 /* construction vtable */
1297 if (!DEM_PUSH_STR(ddata, "construction vtable for "))
1300 if (*ddata->cur == '\0')
1302 if (!cpp_demangle_read_type_flat(ddata, &type))
1305 if (!cpp_demangle_read_number(ddata, &offset))
1307 if (*ddata->cur++ != '_')
1309 if (!cpp_demangle_read_type(ddata, 0))
1311 if (!DEM_PUSH_STR(ddata, "-in-"))
1313 if (!DEM_PUSH_STR(ddata, type))
1320 case SIMPLE_HASH('T', 'D'):
1321 /* typeinfo common proxy */
1324 case SIMPLE_HASH('T', 'F'):
1326 if (!DEM_PUSH_STR(ddata, "typeinfo fn for "))
1329 if (*ddata->cur == '\0')
1331 return (cpp_demangle_read_type(ddata, 0));
1333 case SIMPLE_HASH('T', 'h'):
1334 /* virtual function non-virtual override thunk */
1335 if (!DEM_PUSH_STR(ddata,
1336 "virtual function non-virtual override "))
1339 if (*ddata->cur == '\0')
1341 if (!cpp_demangle_read_nv_offset(ddata))
1343 return (cpp_demangle_read_encoding(ddata));
1345 case SIMPLE_HASH('T', 'H'):
1346 /* TLS init function */
1347 if (!DEM_PUSH_STR(ddata, "TLS init function for "))
1350 if (*ddata->cur == '\0')
1354 case SIMPLE_HASH('T', 'I'):
1355 /* typeinfo structure */
1356 if (!DEM_PUSH_STR(ddata, "typeinfo for "))
1359 if (*ddata->cur == '\0')
1361 return (cpp_demangle_read_type(ddata, 0));
1363 case SIMPLE_HASH('T', 'J'):
1365 if (!DEM_PUSH_STR(ddata, "java Class for "))
1368 if (*ddata->cur == '\0')
1370 return (cpp_demangle_read_type(ddata, 0));
1372 case SIMPLE_HASH('T', 'S'):
1373 /* RTTI name (NTBS) */
1374 if (!DEM_PUSH_STR(ddata, "typeinfo name for "))
1377 if (*ddata->cur == '\0')
1379 return (cpp_demangle_read_type(ddata, 0));
1381 case SIMPLE_HASH('T', 'T'):
1383 if (!DEM_PUSH_STR(ddata, "VTT for "))
1386 if (*ddata->cur == '\0')
1388 return (cpp_demangle_read_type(ddata, 0));
1390 case SIMPLE_HASH('T', 'v'):
1391 /* virtual function virtual override thunk */
1392 if (!DEM_PUSH_STR(ddata,
1393 "virtual function virtual override "))
1396 if (*ddata->cur == '\0')
1398 if (!cpp_demangle_read_v_offset(ddata))
1400 return (cpp_demangle_read_encoding(ddata));
1402 case SIMPLE_HASH('T', 'V'):
1404 if (!DEM_PUSH_STR(ddata, "vtable for "))
1407 if (*ddata->cur == '\0')
1409 return (cpp_demangle_read_type(ddata, 0));
1411 case SIMPLE_HASH('T', 'W'):
1412 /* TLS wrapper function */
1413 if (!DEM_PUSH_STR(ddata, "TLS wrapper function for "))
1416 if (*ddata->cur == '\0')
1421 return (cpp_demangle_read_name(ddata));
1425 cpp_demangle_read_local_name(struct cpp_demangle_data *ddata)
1431 if (*(++ddata->cur) == '\0')
1433 if (!cpp_demangle_read_encoding(ddata))
1438 if (!cpp_demangle_read_type(ddata, 1))
1440 if (*ddata->cur == 'E')
1442 if (limit++ > CPP_DEMANGLE_TRY_LIMIT)
1445 if (*(++ddata->cur) == '\0')
1447 if (ddata->paren == true) {
1448 if (!DEM_PUSH_STR(ddata, ")"))
1450 ddata->paren = false;
1452 if (*ddata->cur == 's')
1455 if (!DEM_PUSH_STR(ddata, "::"))
1457 if (!cpp_demangle_read_name(ddata))
1460 if (*ddata->cur == '_') {
1462 while (ELFTC_ISDIGIT(*ddata->cur) != 0)
1470 cpp_demangle_read_name(struct cpp_demangle_data *ddata)
1472 struct vector_str *output, v;
1473 size_t p_idx, subst_str_len;
1477 if (ddata == NULL || *ddata->cur == '\0')
1480 output = ddata->push_head > 0 ? &ddata->output_tmp : &ddata->output;
1484 switch (*ddata->cur) {
1486 return (cpp_demangle_read_subst(ddata));
1488 return (cpp_demangle_read_nested_name(ddata));
1490 return (cpp_demangle_read_local_name(ddata));
1493 if (!vector_str_init(&v))
1496 p_idx = output->size;
1498 if (!cpp_demangle_read_uqname(ddata))
1500 if ((subst_str = vector_str_substr(output, p_idx, output->size - 1,
1501 &subst_str_len)) == NULL)
1503 if (subst_str_len > 8 && strstr(subst_str, "operator") != NULL) {
1507 if (!vector_str_push(&v, subst_str, subst_str_len))
1509 if (!cpp_demangle_push_subst_v(ddata, &v))
1512 if (*ddata->cur == 'I') {
1513 p_idx = output->size;
1514 if (!cpp_demangle_read_tmpl_args(ddata))
1517 if ((subst_str = vector_str_substr(output, p_idx,
1518 output->size - 1, &subst_str_len)) == NULL)
1520 if (!vector_str_push(&v, subst_str, subst_str_len))
1522 if (!cpp_demangle_push_subst_v(ddata, &v))
1530 vector_str_dest(&v);
1536 cpp_demangle_read_name_flat(struct cpp_demangle_data *ddata, char **str)
1538 struct vector_str *output;
1539 size_t i, p_idx, idx, name_len;
1542 output = ddata->push_head > 0 ? &ddata->output_tmp :
1545 p_idx = output->size;
1547 if (!cpp_demangle_read_name(ddata))
1550 if ((name = vector_str_substr(output, p_idx, output->size - 1,
1551 &name_len)) == NULL)
1555 for (i = p_idx; i < idx; ++i) {
1556 if (!vector_str_pop(output)) {
1568 cpp_demangle_read_nested_name(struct cpp_demangle_data *ddata)
1570 struct vector_str *output, v;
1571 size_t limit, p_idx, subst_str_len;
1575 if (ddata == NULL || *ddata->cur != 'N')
1577 if (*(++ddata->cur) == '\0')
1580 while (*ddata->cur == 'r' || *ddata->cur == 'V' ||
1581 *ddata->cur == 'K') {
1582 switch (*ddata->cur) {
1584 ddata->mem_rst = true;
1587 ddata->mem_vat = true;
1590 ddata->mem_cst = true;
1596 output = ddata->push_head > 0 ? &ddata->output_tmp : &ddata->output;
1597 if (!vector_str_init(&v))
1603 p_idx = output->size;
1604 switch (*ddata->cur) {
1606 if (!cpp_demangle_read_tmpl_args(ddata))
1610 if (!cpp_demangle_read_subst(ddata))
1614 if (!cpp_demangle_read_tmpl_param(ddata))
1618 if (!cpp_demangle_read_uqname(ddata))
1622 if ((subst_str = vector_str_substr(output, p_idx,
1623 output->size - 1, &subst_str_len)) == NULL)
1625 if (!vector_str_push(&v, subst_str, subst_str_len)) {
1631 if (!cpp_demangle_push_subst_v(ddata, &v))
1633 if (*ddata->cur == 'E')
1635 else if (*ddata->cur != 'I' &&
1636 *ddata->cur != 'C' && *ddata->cur != 'D') {
1637 if (!DEM_PUSH_STR(ddata, "::"))
1639 if (!VEC_PUSH_STR(&v, "::"))
1642 if (limit++ > CPP_DEMANGLE_TRY_LIMIT)
1650 vector_str_dest(&v);
1657 * number ::= [n] <decimal>
1660 cpp_demangle_read_number(struct cpp_demangle_data *ddata, long *rtn)
1662 long len, negative_factor;
1664 if (ddata == NULL || rtn == NULL)
1667 negative_factor = 1;
1668 if (*ddata->cur == 'n') {
1669 negative_factor = -1;
1673 if (ELFTC_ISDIGIT(*ddata->cur) == 0)
1677 if ((len = strtol(ddata->cur, (char **) NULL, 10)) == 0 &&
1681 while (ELFTC_ISDIGIT(*ddata->cur) != 0)
1685 assert(negative_factor == 1 || negative_factor == -1);
1687 *rtn = len * negative_factor;
1693 cpp_demangle_read_number_as_string(struct cpp_demangle_data *ddata, char **str)
1697 if (!cpp_demangle_read_number(ddata, &n)) {
1702 if (asprintf(str, "%ld", n) < 0) {
1711 cpp_demangle_read_nv_offset(struct cpp_demangle_data *ddata)
1717 if (!DEM_PUSH_STR(ddata, "offset : "))
1720 return (cpp_demangle_read_offset_number(ddata));
1723 /* read offset, offset are nv-offset, v-offset */
1725 cpp_demangle_read_offset(struct cpp_demangle_data *ddata)
1731 if (*ddata->cur == 'h') {
1733 return (cpp_demangle_read_nv_offset(ddata));
1734 } else if (*ddata->cur == 'v') {
1736 return (cpp_demangle_read_v_offset(ddata));
1743 cpp_demangle_read_offset_number(struct cpp_demangle_data *ddata)
1748 if (ddata == NULL || *ddata->cur == '\0')
1751 /* offset could be negative */
1752 if (*ddata->cur == 'n') {
1754 start = ddata->cur + 1;
1760 while (*ddata->cur != '_')
1763 if (negative && !DEM_PUSH_STR(ddata, "-"))
1766 assert(start != NULL);
1768 if (!cpp_demangle_push_str(ddata, start, ddata->cur - start))
1770 if (!DEM_PUSH_STR(ddata, " "))
1779 cpp_demangle_read_pointer_to_member(struct cpp_demangle_data *ddata)
1781 size_t class_type_len, i, idx, p_idx;
1782 int p_func_type, rtn;
1785 if (ddata == NULL || *ddata->cur != 'M' || *(++ddata->cur) == '\0')
1788 p_idx = ddata->output.size;
1789 if (!cpp_demangle_read_type(ddata, 0))
1792 if ((class_type = vector_str_substr(&ddata->output, p_idx,
1793 ddata->output.size - 1, &class_type_len)) == NULL)
1797 idx = ddata->output.size;
1798 for (i = p_idx; i < idx; ++i)
1799 if (!vector_str_pop(&ddata->output))
1802 if (!vector_read_cmd_push(&ddata->cmd, READ_PTRMEM))
1805 if (!vector_str_push(&ddata->class_type, class_type, class_type_len))
1808 p_func_type = ddata->func_type;
1809 if (!cpp_demangle_read_type(ddata, 0))
1812 if (p_func_type == ddata->func_type) {
1813 if (!DEM_PUSH_STR(ddata, " "))
1815 if (!cpp_demangle_push_str(ddata, class_type, class_type_len))
1817 if (!DEM_PUSH_STR(ddata, "::*"))
1823 if (!vector_str_pop(&ddata->class_type))
1826 if (!vector_read_cmd_pop(&ddata->cmd))
1834 /* read source-name, source-name is <len> <ID> */
1836 cpp_demangle_read_sname(struct cpp_demangle_data *ddata)
1841 if (ddata == NULL || cpp_demangle_read_number(ddata, &len) == 0 ||
1845 if (len == 12 && (memcmp("_GLOBAL__N_1", ddata->cur, 12) == 0))
1846 err = DEM_PUSH_STR(ddata, "(anonymous namespace)");
1848 err = cpp_demangle_push_str(ddata, ddata->cur, len);
1853 assert(ddata->output.size > 0);
1854 if (vector_read_cmd_find(&ddata->cmd, READ_TMPL) == 0)
1856 ddata->output.container[ddata->output.size - 1];
1864 cpp_demangle_read_subst(struct cpp_demangle_data *ddata)
1868 if (ddata == NULL || *ddata->cur == '\0')
1871 /* abbreviations of the form Sx */
1872 switch (SIMPLE_HASH(*ddata->cur, *(ddata->cur + 1))) {
1873 case SIMPLE_HASH('S', 'a'):
1874 /* std::allocator */
1875 if (!DEM_PUSH_STR(ddata, "std::allocator"))
1878 if (*ddata->cur == 'I')
1879 return (cpp_demangle_read_subst_stdtmpl(ddata,
1880 "std::allocator", 14));
1883 case SIMPLE_HASH('S', 'b'):
1884 /* std::basic_string */
1885 if (!DEM_PUSH_STR(ddata, "std::basic_string"))
1888 if (*ddata->cur == 'I')
1889 return (cpp_demangle_read_subst_stdtmpl(ddata,
1890 "std::basic_string", 17));
1893 case SIMPLE_HASH('S', 'd'):
1894 /* std::basic_iostream<char, std::char_traits<char> > */
1895 if (!DEM_PUSH_STR(ddata, "std::basic_iostream"))
1897 ddata->last_sname = "basic_iostream";
1899 if (*ddata->cur == 'I')
1900 return (cpp_demangle_read_subst_stdtmpl(ddata,
1901 "std::basic_iostream", 19));
1904 case SIMPLE_HASH('S', 'i'):
1905 /* std::basic_istream<char, std::char_traits<char> > */
1906 if (!DEM_PUSH_STR(ddata, "std::basic_istream"))
1908 ddata->last_sname = "basic_istream";
1910 if (*ddata->cur == 'I')
1911 return (cpp_demangle_read_subst_stdtmpl(ddata,
1912 "std::basic_istream", 18));
1915 case SIMPLE_HASH('S', 'o'):
1916 /* std::basic_ostream<char, std::char_traits<char> > */
1917 if (!DEM_PUSH_STR(ddata, "std::basic_ostream"))
1919 ddata->last_sname = "basic_ostream";
1921 if (*ddata->cur == 'I')
1922 return (cpp_demangle_read_subst_stdtmpl(ddata,
1923 "std::basic_ostream", 18));
1926 case SIMPLE_HASH('S', 's'):
1928 * std::basic_string<char, std::char_traits<char>,
1929 * std::allocator<char> >
1933 if (!DEM_PUSH_STR(ddata, "std::string"))
1935 ddata->last_sname = "string";
1937 if (*ddata->cur == 'I')
1938 return (cpp_demangle_read_subst_stdtmpl(ddata,
1939 "std::string", 11));
1942 case SIMPLE_HASH('S', 't'):
1944 return (cpp_demangle_read_subst_std(ddata));
1947 if (*(++ddata->cur) == '\0')
1951 if (*ddata->cur == '_')
1952 return (cpp_demangle_get_subst(ddata, 0));
1955 /* substitution number is base 36 */
1956 if ((nth = strtol(ddata->cur, (char **) NULL, 36)) == 0 &&
1960 /* first was '_', so increase one */
1963 while (*ddata->cur != '_')
1968 return (cpp_demangle_get_subst(ddata, nth));
1976 cpp_demangle_read_subst_std(struct cpp_demangle_data *ddata)
1978 struct vector_str *output, v;
1979 size_t p_idx, subst_str_len;
1986 if (!vector_str_init(&v))
1991 if (!DEM_PUSH_STR(ddata, "std::"))
1994 if (!VEC_PUSH_STR(&v, "std::"))
1999 output = ddata->push_head > 0 ? &ddata->output_tmp : &ddata->output;
2001 p_idx = output->size;
2002 if (!cpp_demangle_read_uqname(ddata))
2005 if ((subst_str = vector_str_substr(output, p_idx, output->size - 1,
2006 &subst_str_len)) == NULL)
2009 if (!vector_str_push(&v, subst_str, subst_str_len))
2012 if (!cpp_demangle_push_subst_v(ddata, &v))
2015 if (*ddata->cur == 'I') {
2016 p_idx = output->size;
2017 if (!cpp_demangle_read_tmpl_args(ddata))
2020 if ((subst_str = vector_str_substr(output, p_idx,
2021 output->size - 1, &subst_str_len)) == NULL)
2023 if (!vector_str_push(&v, subst_str, subst_str_len))
2025 if (!cpp_demangle_push_subst_v(ddata, &v))
2032 vector_str_dest(&v);
2038 cpp_demangle_read_subst_stdtmpl(struct cpp_demangle_data *ddata,
2039 const char *str, size_t len)
2041 struct vector_str *output;
2042 size_t p_idx, substr_len;
2044 char *subst_str, *substr;
2046 if (ddata == NULL || str == NULL || len == 0)
2049 output = ddata->push_head > 0 ? &ddata->output_tmp : &ddata->output;
2051 p_idx = output->size;
2055 if (!cpp_demangle_read_tmpl_args(ddata))
2057 if ((substr = vector_str_substr(output, p_idx, output->size - 1,
2058 &substr_len)) == NULL)
2062 if ((subst_str = malloc(sizeof(char) * (substr_len + len + 1))) ==
2066 memcpy(subst_str, str, len);
2067 memcpy(subst_str + len, substr, substr_len);
2068 subst_str[substr_len + len] = '\0';
2070 if (!cpp_demangle_push_subst(ddata, subst_str, substr_len + len))
2082 cpp_demangle_read_tmpl_arg(struct cpp_demangle_data *ddata)
2085 if (ddata == NULL || *ddata->cur == '\0')
2088 switch (*ddata->cur) {
2090 return (cpp_demangle_read_expr_primary(ddata));
2092 return (cpp_demangle_read_expression(ddata));
2095 return (cpp_demangle_read_type(ddata, 0));
2099 cpp_demangle_read_tmpl_args(struct cpp_demangle_data *ddata)
2101 struct vector_str *v;
2102 size_t arg_len, idx, limit, size;
2105 if (ddata == NULL || *ddata->cur == '\0')
2110 if (!vector_read_cmd_push(&ddata->cmd, READ_TMPL))
2113 if (!DEM_PUSH_STR(ddata, "<"))
2117 v = ddata->push_head > 0 ? &ddata->output_tmp : &ddata->output;
2120 if (!cpp_demangle_read_tmpl_arg(ddata))
2122 if ((arg = vector_str_substr(v, idx, v->size - 1, &arg_len)) ==
2125 if (!vector_str_find(&ddata->tmpl, arg, arg_len) &&
2126 !vector_str_push(&ddata->tmpl, arg, arg_len)) {
2133 if (*ddata->cur == 'E') {
2137 if (!strncmp(v->container[size - 1], ">", 1)) {
2138 if (!DEM_PUSH_STR(ddata, " >"))
2140 } else if (!DEM_PUSH_STR(ddata, ">"))
2143 } else if (*ddata->cur != 'I' &&
2144 !DEM_PUSH_STR(ddata, ", "))
2147 if (limit++ > CPP_DEMANGLE_TRY_LIMIT)
2151 return (vector_read_cmd_pop(&ddata->cmd));
2155 * Read template parameter that forms in 'T[number]_'.
2156 * This function much like to read_subst but only for types.
2159 cpp_demangle_read_tmpl_param(struct cpp_demangle_data *ddata)
2163 if (ddata == NULL || *ddata->cur != 'T')
2168 if (*ddata->cur == '_')
2169 return (cpp_demangle_get_tmpl_param(ddata, 0));
2173 if ((nth = strtol(ddata->cur, (char **) NULL, 36)) == 0 &&
2180 while (*ddata->cur != '_')
2185 return (cpp_demangle_get_tmpl_param(ddata, nth));
2193 cpp_demangle_read_type(struct cpp_demangle_data *ddata, int delimit)
2195 struct vector_type_qualifier v;
2196 struct vector_str *output;
2197 size_t p_idx, type_str_len;
2198 int extern_c, is_builtin;
2200 char *type_str, *exp_str, *num_str;
2205 output = &ddata->output;
2206 if (!strncmp(ddata->output.container[ddata->output.size - 1], ">", 1)) {
2208 output = &ddata->output_tmp;
2209 } else if (delimit == 1) {
2210 if (ddata->paren == false) {
2211 if (!DEM_PUSH_STR(ddata, "("))
2213 if (ddata->output.size < 2)
2215 ddata->paren = true;
2216 ddata->pfirst = true;
2217 /* Need pop function name */
2218 if (ddata->subst.size == 1 &&
2219 !vector_str_pop(&ddata->subst))
2224 ddata->pfirst = false;
2225 else if (*ddata->cur != 'I' &&
2226 !DEM_PUSH_STR(ddata, ", "))
2230 assert(output != NULL);
2232 * [r, V, K] [P, R, C, G, U] builtin, function, class-enum, array
2233 * pointer-to-member, template-param, template-template-param, subst
2236 if (!vector_type_qualifier_init(&v))
2241 p_idx = output->size;
2242 type_str = exp_str = num_str = NULL;
2245 switch (*ddata->cur) {
2248 if (!DEM_PUSH_STR(ddata, "signed char"))
2255 if (!cpp_demangle_read_array(ddata))
2262 if (!DEM_PUSH_STR(ddata, "bool"))
2269 if (!vector_type_qualifier_push(&v, TYPE_CMX))
2276 if (!DEM_PUSH_STR(ddata, "char"))
2283 if (!DEM_PUSH_STR(ddata, "double"))
2290 switch (*ddata->cur) {
2292 /* IEEE 754r decimal floating point (64 bits) */
2293 if (!DEM_PUSH_STR(ddata, "decimal64"))
2298 /* IEEE 754r decimal floating point (128 bits) */
2299 if (!DEM_PUSH_STR(ddata, "decimal128"))
2304 /* IEEE 754r decimal floating point (32 bits) */
2305 if (!DEM_PUSH_STR(ddata, "decimal32"))
2310 /* IEEE 754r half-precision floating point (16 bits) */
2311 if (!DEM_PUSH_STR(ddata, "half"))
2317 if (!DEM_PUSH_STR(ddata, "char32_t"))
2322 /* std::nullptr_t (i.e., decltype(nullptr)) */
2323 if (!DEM_PUSH_STR(ddata, "decltype(nullptr)"))
2329 if (!DEM_PUSH_STR(ddata, "char16_t"))
2334 /* gcc vector_size extension. */
2336 if (*ddata->cur == '_') {
2338 if (!cpp_demangle_read_expression_flat(ddata,
2341 if (!VEC_PUSH_STR(&v.ext_name, exp_str))
2344 if (!cpp_demangle_read_number_as_string(ddata,
2347 if (!VEC_PUSH_STR(&v.ext_name, num_str))
2350 if (*ddata->cur != '_')
2353 if (!vector_type_qualifier_push(&v, TYPE_VEC))
2363 if (!DEM_PUSH_STR(ddata, "long double"))
2370 if (!DEM_PUSH_STR(ddata, "float"))
2377 if (!cpp_demangle_read_function(ddata, &extern_c, &v))
2384 if (!DEM_PUSH_STR(ddata, "__float128"))
2391 if (!vector_type_qualifier_push(&v, TYPE_IMG))
2398 if (!DEM_PUSH_STR(ddata, "unsigned char"))
2405 if (!DEM_PUSH_STR(ddata, "int"))
2412 if (!DEM_PUSH_STR(ddata, "unsigned int"))
2419 if (!vector_type_qualifier_push(&v, TYPE_CST))
2426 if (!DEM_PUSH_STR(ddata, "long"))
2433 if (!DEM_PUSH_STR(ddata, "unsigned long"))
2440 /* pointer to member */
2441 if (!cpp_demangle_read_pointer_to_member(ddata))
2448 if (!DEM_PUSH_STR(ddata, "__int128"))
2454 /* unsigned __int128 */
2455 if (!DEM_PUSH_STR(ddata, "unsigned __int128"))
2462 if (!vector_type_qualifier_push(&v, TYPE_PTR))
2469 if (!vector_type_qualifier_push(&v, TYPE_RST))
2476 if (!vector_type_qualifier_push(&v, TYPE_REF))
2482 /* short, local string */
2483 if (!DEM_PUSH_STR(ddata, "short"))
2490 if (!cpp_demangle_read_subst(ddata))
2496 /* unsigned short */
2497 if (!DEM_PUSH_STR(ddata, "unsigned short"))
2503 /* template parameter */
2504 if (!cpp_demangle_read_tmpl_param(ddata))
2510 /* vendor extended builtin */
2512 if (!cpp_demangle_read_sname(ddata))
2518 /* vendor extended type qualifier */
2519 if (!cpp_demangle_read_number(ddata, &len))
2523 if (!vector_str_push(&v.ext_name, ddata->cur, len))
2526 if (!vector_type_qualifier_push(&v, TYPE_EXT))
2532 if (!DEM_PUSH_STR(ddata, "void"))
2539 if (!vector_type_qualifier_push(&v, TYPE_VAT))
2546 if (!DEM_PUSH_STR(ddata, "wchar_t"))
2553 if (!DEM_PUSH_STR(ddata, "long long"))
2559 /* unsigned long long */
2560 if (!DEM_PUSH_STR(ddata, "unsigned long long"))
2567 if (!DEM_PUSH_STR(ddata, "..."))
2573 if (!cpp_demangle_read_name(ddata))
2578 if ((type_str = vector_str_substr(output, p_idx, output->size - 1,
2579 &type_str_len)) == NULL)
2582 if (is_builtin == 0) {
2583 if (!vector_str_find(&ddata->subst, type_str, type_str_len) &&
2584 !vector_str_push(&ddata->subst, type_str, type_str_len))
2588 if (!cpp_demangle_push_type_qualifier(ddata, &v, type_str))
2594 vector_type_qualifier_dest(&v);
2596 if (ddata->push_head > 0) {
2597 if (*ddata->cur == 'I' && cpp_demangle_read_tmpl_args(ddata)
2601 if (--ddata->push_head > 0)
2604 if (!VEC_PUSH_STR(&ddata->output_tmp, " "))
2607 if (!vector_str_push_vector_head(&ddata->output,
2608 &ddata->output_tmp))
2611 vector_str_dest(&ddata->output_tmp);
2612 if (!vector_str_init(&ddata->output_tmp))
2615 if (!DEM_PUSH_STR(ddata, "("))
2618 ddata->paren = true;
2619 ddata->pfirst = true;
2627 vector_type_qualifier_dest(&v);
2633 cpp_demangle_read_type_flat(struct cpp_demangle_data *ddata, char **str)
2635 struct vector_str *output;
2636 size_t i, p_idx, idx, type_len;
2639 output = ddata->push_head > 0 ? &ddata->output_tmp :
2642 p_idx = output->size;
2644 if (!cpp_demangle_read_type(ddata, 0))
2647 if ((type = vector_str_substr(output, p_idx, output->size - 1,
2648 &type_len)) == NULL)
2652 for (i = p_idx; i < idx; ++i) {
2653 if (!vector_str_pop(output)) {
2665 * read unqualified-name, unqualified name are operator-name, ctor-dtor-name,
2669 cpp_demangle_read_uqname(struct cpp_demangle_data *ddata)
2673 if (ddata == NULL || *ddata->cur == '\0')
2677 switch (SIMPLE_HASH(*ddata->cur, *(ddata->cur + 1))) {
2678 case SIMPLE_HASH('a', 'a'):
2680 if (!DEM_PUSH_STR(ddata, "operator&&"))
2685 case SIMPLE_HASH('a', 'd'):
2686 /* operator & (unary) */
2687 if (!DEM_PUSH_STR(ddata, "operator&"))
2692 case SIMPLE_HASH('a', 'n'):
2694 if (!DEM_PUSH_STR(ddata, "operator&"))
2699 case SIMPLE_HASH('a', 'N'):
2701 if (!DEM_PUSH_STR(ddata, "operator&="))
2706 case SIMPLE_HASH('a', 'S'):
2708 if (!DEM_PUSH_STR(ddata, "operator="))
2713 case SIMPLE_HASH('c', 'l'):
2715 if (!DEM_PUSH_STR(ddata, "operator()"))
2720 case SIMPLE_HASH('c', 'm'):
2722 if (!DEM_PUSH_STR(ddata, "operator,"))
2727 case SIMPLE_HASH('c', 'o'):
2729 if (!DEM_PUSH_STR(ddata, "operator~"))
2734 case SIMPLE_HASH('c', 'v'):
2735 /* operator (cast) */
2736 if (!DEM_PUSH_STR(ddata, "operator(cast)"))
2739 return (cpp_demangle_read_type(ddata, 1));
2741 case SIMPLE_HASH('d', 'a'):
2742 /* operator delete [] */
2743 if (!DEM_PUSH_STR(ddata, "operator delete []"))
2748 case SIMPLE_HASH('d', 'e'):
2749 /* operator * (unary) */
2750 if (!DEM_PUSH_STR(ddata, "operator*"))
2755 case SIMPLE_HASH('d', 'l'):
2756 /* operator delete */
2757 if (!DEM_PUSH_STR(ddata, "operator delete"))
2762 case SIMPLE_HASH('d', 'v'):
2764 if (!DEM_PUSH_STR(ddata, "operator/"))
2769 case SIMPLE_HASH('d', 'V'):
2771 if (!DEM_PUSH_STR(ddata, "operator/="))
2776 case SIMPLE_HASH('e', 'o'):
2778 if (!DEM_PUSH_STR(ddata, "operator^"))
2783 case SIMPLE_HASH('e', 'O'):
2785 if (!DEM_PUSH_STR(ddata, "operator^="))
2790 case SIMPLE_HASH('e', 'q'):
2792 if (!DEM_PUSH_STR(ddata, "operator=="))
2797 case SIMPLE_HASH('g', 'e'):
2799 if (!DEM_PUSH_STR(ddata, "operator>="))
2804 case SIMPLE_HASH('g', 't'):
2806 if (!DEM_PUSH_STR(ddata, "operator>"))
2811 case SIMPLE_HASH('i', 'x'):
2813 if (!DEM_PUSH_STR(ddata, "operator[]"))
2818 case SIMPLE_HASH('l', 'e'):
2820 if (!DEM_PUSH_STR(ddata, "operator<="))
2825 case SIMPLE_HASH('l', 's'):
2827 if (!DEM_PUSH_STR(ddata, "operator<<"))
2832 case SIMPLE_HASH('l', 'S'):
2834 if (!DEM_PUSH_STR(ddata, "operator<<="))
2839 case SIMPLE_HASH('l', 't'):
2841 if (!DEM_PUSH_STR(ddata, "operator<"))
2846 case SIMPLE_HASH('m', 'i'):
2848 if (!DEM_PUSH_STR(ddata, "operator-"))
2853 case SIMPLE_HASH('m', 'I'):
2855 if (!DEM_PUSH_STR(ddata, "operator-="))
2860 case SIMPLE_HASH('m', 'l'):
2862 if (!DEM_PUSH_STR(ddata, "operator*"))
2867 case SIMPLE_HASH('m', 'L'):
2869 if (!DEM_PUSH_STR(ddata, "operator*="))
2874 case SIMPLE_HASH('m', 'm'):
2876 if (!DEM_PUSH_STR(ddata, "operator--"))
2881 case SIMPLE_HASH('n', 'a'):
2882 /* operator new[] */
2883 if (!DEM_PUSH_STR(ddata, "operator new []"))
2888 case SIMPLE_HASH('n', 'e'):
2890 if (!DEM_PUSH_STR(ddata, "operator!="))
2895 case SIMPLE_HASH('n', 'g'):
2896 /* operator - (unary) */
2897 if (!DEM_PUSH_STR(ddata, "operator-"))
2902 case SIMPLE_HASH('n', 't'):
2904 if (!DEM_PUSH_STR(ddata, "operator!"))
2909 case SIMPLE_HASH('n', 'w'):
2911 if (!DEM_PUSH_STR(ddata, "operator new"))
2916 case SIMPLE_HASH('o', 'o'):
2918 if (!DEM_PUSH_STR(ddata, "operator||"))
2923 case SIMPLE_HASH('o', 'r'):
2925 if (!DEM_PUSH_STR(ddata, "operator|"))
2930 case SIMPLE_HASH('o', 'R'):
2932 if (!DEM_PUSH_STR(ddata, "operator|="))
2937 case SIMPLE_HASH('p', 'l'):
2939 if (!DEM_PUSH_STR(ddata, "operator+"))
2944 case SIMPLE_HASH('p', 'L'):
2946 if (!DEM_PUSH_STR(ddata, "operator+="))
2951 case SIMPLE_HASH('p', 'm'):
2953 if (!DEM_PUSH_STR(ddata, "operator->*"))
2958 case SIMPLE_HASH('p', 'p'):
2960 if (!DEM_PUSH_STR(ddata, "operator++"))
2965 case SIMPLE_HASH('p', 's'):
2966 /* operator + (unary) */
2967 if (!DEM_PUSH_STR(ddata, "operator+"))
2972 case SIMPLE_HASH('p', 't'):
2974 if (!DEM_PUSH_STR(ddata, "operator->"))
2979 case SIMPLE_HASH('q', 'u'):
2981 if (!DEM_PUSH_STR(ddata, "operator?"))
2986 case SIMPLE_HASH('r', 'm'):
2988 if (!DEM_PUSH_STR(ddata, "operator%"))
2993 case SIMPLE_HASH('r', 'M'):
2995 if (!DEM_PUSH_STR(ddata, "operator%="))
3000 case SIMPLE_HASH('r', 's'):
3002 if (!DEM_PUSH_STR(ddata, "operator>>"))
3007 case SIMPLE_HASH('r', 'S'):
3009 if (!DEM_PUSH_STR(ddata, "operator>>="))
3014 case SIMPLE_HASH('r', 'z'):
3015 /* operator sizeof */
3016 if (!DEM_PUSH_STR(ddata, "operator sizeof "))
3021 case SIMPLE_HASH('s', 'r'):
3022 /* scope resolution operator */
3023 if (!DEM_PUSH_STR(ddata, "scope resolution operator "))
3028 case SIMPLE_HASH('s', 'v'):
3029 /* operator sizeof */
3030 if (!DEM_PUSH_STR(ddata, "operator sizeof "))
3036 /* vendor extened operator */
3037 if (*ddata->cur == 'v' && ELFTC_ISDIGIT(*(ddata->cur + 1))) {
3038 if (!DEM_PUSH_STR(ddata, "vendor extened operator "))
3040 if (!cpp_demangle_push_str(ddata, ddata->cur + 1, 1))
3043 return (cpp_demangle_read_sname(ddata));
3046 /* ctor-dtor-name */
3047 switch (SIMPLE_HASH(*ddata->cur, *(ddata->cur + 1))) {
3048 case SIMPLE_HASH('C', '1'):
3050 case SIMPLE_HASH('C', '2'):
3052 case SIMPLE_HASH('C', '3'):
3053 if (ddata->last_sname == NULL)
3055 if ((len = strlen(ddata->last_sname)) == 0)
3057 if (!DEM_PUSH_STR(ddata, "::"))
3059 if (!cpp_demangle_push_str(ddata, ddata->last_sname, len))
3064 case SIMPLE_HASH('D', '0'):
3066 case SIMPLE_HASH('D', '1'):
3068 case SIMPLE_HASH('D', '2'):
3069 if (ddata->last_sname == NULL)
3071 if ((len = strlen(ddata->last_sname)) == 0)
3073 if (!DEM_PUSH_STR(ddata, "::~"))
3075 if (!cpp_demangle_push_str(ddata, ddata->last_sname, len))
3082 if (ELFTC_ISDIGIT(*ddata->cur) != 0)
3083 return (cpp_demangle_read_sname(ddata));
3085 /* local source name */
3086 if (*ddata->cur == 'L')
3087 return (cpp_demangle_local_source_name(ddata));
3093 * Read local source name.
3096 * http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31775
3097 * http://gcc.gnu.org/viewcvs?view=rev&revision=124467
3100 cpp_demangle_local_source_name(struct cpp_demangle_data *ddata)
3103 if (ddata == NULL || *ddata->cur != 'L')
3108 if (!cpp_demangle_read_sname(ddata))
3112 if (*ddata->cur == '_') {
3114 while (ELFTC_ISDIGIT(*ddata->cur) != 0)
3122 cpp_demangle_read_v_offset(struct cpp_demangle_data *ddata)
3128 if (!DEM_PUSH_STR(ddata, "offset : "))
3131 if (!cpp_demangle_read_offset_number(ddata))
3134 if (!DEM_PUSH_STR(ddata, "virtual offset : "))
3137 return (!cpp_demangle_read_offset_number(ddata));
3141 * Decode floating point representation to string
3142 * Return new allocated string or NULL
3145 * Replace these functions to macro.
3148 decode_fp_to_double(const char *p, size_t len)
3151 size_t rtn_len, limit, i;
3155 if (p == NULL || len == 0 || len % 2 != 0 || len / 2 > sizeof(double))
3158 memset(&f, 0, sizeof(double));
3160 for (i = 0; i < len / 2; ++i) {
3161 byte = hex_to_dec(p[len - i * 2 - 1]) +
3162 hex_to_dec(p[len - i * 2 - 2]) * 16;
3164 if (byte < 0 || byte > 255)
3167 #if ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN
3168 ((unsigned char *)&f)[i] = (unsigned char)(byte);
3169 #else /* ELFTC_BYTE_ORDER != ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3170 ((unsigned char *)&f)[sizeof(double) - i - 1] =
3171 (unsigned char)(byte);
3172 #endif /* ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3178 if ((rtn = malloc(sizeof(char) * rtn_len)) == NULL)
3181 if (snprintf(rtn, rtn_len, "%fld", f) >= (int)rtn_len) {
3183 if (limit++ > FLOAT_SPRINTF_TRY_LIMIT)
3185 rtn_len *= BUFFER_GROWFACTOR;
3193 decode_fp_to_float(const char *p, size_t len)
3195 size_t i, rtn_len, limit;
3200 if (p == NULL || len == 0 || len % 2 != 0 || len / 2 > sizeof(float))
3203 memset(&f, 0, sizeof(float));
3205 for (i = 0; i < len / 2; ++i) {
3206 byte = hex_to_dec(p[len - i * 2 - 1]) +
3207 hex_to_dec(p[len - i * 2 - 2]) * 16;
3208 if (byte < 0 || byte > 255)
3210 #if ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN
3211 ((unsigned char *)&f)[i] = (unsigned char)(byte);
3212 #else /* ELFTC_BYTE_ORDER != ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3213 ((unsigned char *)&f)[sizeof(float) - i - 1] =
3214 (unsigned char)(byte);
3215 #endif /* ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3221 if ((rtn = malloc(sizeof(char) * rtn_len)) == NULL)
3224 if (snprintf(rtn, rtn_len, "%ff", f) >= (int)rtn_len) {
3226 if (limit++ > FLOAT_SPRINTF_TRY_LIMIT)
3228 rtn_len *= BUFFER_GROWFACTOR;
3236 decode_fp_to_float128(const char *p, size_t len)
3239 size_t rtn_len, limit, i;
3241 unsigned char buf[FLOAT_QUADRUPLE_BYTES];
3244 switch(sizeof(long double)) {
3245 case FLOAT_QUADRUPLE_BYTES:
3246 return (decode_fp_to_long_double(p, len));
3247 case FLOAT_EXTENED_BYTES:
3248 if (p == NULL || len == 0 || len % 2 != 0 ||
3249 len / 2 > FLOAT_QUADRUPLE_BYTES)
3252 memset(buf, 0, FLOAT_QUADRUPLE_BYTES);
3254 for (i = 0; i < len / 2; ++i) {
3255 byte = hex_to_dec(p[len - i * 2 - 1]) +
3256 hex_to_dec(p[len - i * 2 - 2]) * 16;
3257 if (byte < 0 || byte > 255)
3259 #if ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN
3260 buf[i] = (unsigned char)(byte);
3261 #else /* ELFTC_BYTE_ORDER != ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3262 buf[FLOAT_QUADRUPLE_BYTES - i -1] =
3263 (unsigned char)(byte);
3264 #endif /* ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3266 memset(&f, 0, FLOAT_EXTENED_BYTES);
3268 #if ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN
3269 memcpy(&f, buf, FLOAT_EXTENED_BYTES);
3270 #else /* ELFTC_BYTE_ORDER != ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3271 memcpy(&f, buf + 6, FLOAT_EXTENED_BYTES);
3272 #endif /* ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3277 if ((rtn = malloc(sizeof(char) * rtn_len)) == NULL)
3280 if (snprintf(rtn, rtn_len, "%Lfd", f) >= (int)rtn_len) {
3282 if (limit++ > FLOAT_SPRINTF_TRY_LIMIT)
3284 rtn_len *= BUFFER_GROWFACTOR;
3295 decode_fp_to_float80(const char *p, size_t len)
3298 size_t rtn_len, limit, i;
3300 unsigned char buf[FLOAT_EXTENED_BYTES];
3303 switch(sizeof(long double)) {
3304 case FLOAT_QUADRUPLE_BYTES:
3305 if (p == NULL || len == 0 || len % 2 != 0 ||
3306 len / 2 > FLOAT_EXTENED_BYTES)
3309 memset(buf, 0, FLOAT_EXTENED_BYTES);
3311 for (i = 0; i < len / 2; ++i) {
3312 byte = hex_to_dec(p[len - i * 2 - 1]) +
3313 hex_to_dec(p[len - i * 2 - 2]) * 16;
3315 if (byte < 0 || byte > 255)
3318 #if ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN
3319 buf[i] = (unsigned char)(byte);
3320 #else /* ELFTC_BYTE_ORDER != ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3321 buf[FLOAT_EXTENED_BYTES - i -1] =
3322 (unsigned char)(byte);
3323 #endif /* ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3326 memset(&f, 0, FLOAT_QUADRUPLE_BYTES);
3328 #if ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN
3329 memcpy(&f, buf, FLOAT_EXTENED_BYTES);
3330 #else /* ELFTC_BYTE_ORDER != ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3331 memcpy((unsigned char *)(&f) + 6, buf, FLOAT_EXTENED_BYTES);
3332 #endif /* ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3337 if ((rtn = malloc(sizeof(char) * rtn_len)) == NULL)
3340 if (snprintf(rtn, rtn_len, "%Lfd", f) >= (int)rtn_len) {
3342 if (limit++ > FLOAT_SPRINTF_TRY_LIMIT)
3344 rtn_len *= BUFFER_GROWFACTOR;
3349 case FLOAT_EXTENED_BYTES:
3350 return (decode_fp_to_long_double(p, len));
3357 decode_fp_to_long_double(const char *p, size_t len)
3360 size_t rtn_len, limit, i;
3364 if (p == NULL || len == 0 || len % 2 != 0 ||
3365 len / 2 > sizeof(long double))
3368 memset(&f, 0, sizeof(long double));
3370 for (i = 0; i < len / 2; ++i) {
3371 byte = hex_to_dec(p[len - i * 2 - 1]) +
3372 hex_to_dec(p[len - i * 2 - 2]) * 16;
3374 if (byte < 0 || byte > 255)
3377 #if ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN
3378 ((unsigned char *)&f)[i] = (unsigned char)(byte);
3379 #else /* ELFTC_BYTE_ORDER != ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3380 ((unsigned char *)&f)[sizeof(long double) - i - 1] =
3381 (unsigned char)(byte);
3382 #endif /* ELFTC_BYTE_ORDER == ELFTC_BYTE_ORDER_LITTLE_ENDIAN */
3388 if ((rtn = malloc(sizeof(char) * rtn_len)) == NULL)
3391 if (snprintf(rtn, rtn_len, "%Lfd", f) >= (int)rtn_len) {
3393 if (limit++ > FLOAT_SPRINTF_TRY_LIMIT)
3395 rtn_len *= BUFFER_GROWFACTOR;
3402 /* Simple hex to integer function used by decode_to_* function. */
3446 * @brief Test input string is mangled by IA-64 C++ ABI style.
3448 * Test string heads with "_Z" or "_GLOBAL__I_".
3449 * @return Return 0 at false.
3452 is_cpp_mangled_gnu3(const char *org)
3457 return ((len > 2 && *org == '_' && *(org + 1) == 'Z') ||
3458 (len > 11 && !strncmp(org, "_GLOBAL__I_", 11)));
3462 vector_read_cmd_dest(struct vector_read_cmd *v)
3468 free(v->r_container);
3471 /* return -1 at failed, 0 at not found, 1 at found. */
3473 vector_read_cmd_find(struct vector_read_cmd *v, enum read_cmd dst)
3477 if (v == NULL || dst == READ_FAIL)
3480 for (i = 0; i < v->size; ++i)
3481 if (v->r_container[i] == dst)
3488 vector_read_cmd_init(struct vector_read_cmd *v)
3495 v->capacity = VECTOR_DEF_CAPACITY;
3497 if ((v->r_container = malloc(sizeof(enum read_cmd) * v->capacity))
3505 vector_read_cmd_pop(struct vector_read_cmd *v)
3508 if (v == NULL || v->size == 0)
3512 v->r_container[v->size] = READ_FAIL;
3518 vector_read_cmd_push(struct vector_read_cmd *v, enum read_cmd cmd)
3520 enum read_cmd *tmp_r_ctn;
3527 if (v->size == v->capacity) {
3528 tmp_cap = v->capacity * BUFFER_GROWFACTOR;
3529 if ((tmp_r_ctn = malloc(sizeof(enum read_cmd) * tmp_cap))
3532 for (i = 0; i < v->size; ++i)
3533 tmp_r_ctn[i] = v->r_container[i];
3534 free(v->r_container);
3535 v->r_container = tmp_r_ctn;
3536 v->capacity = tmp_cap;
3539 v->r_container[v->size] = cmd;
3546 vector_type_qualifier_dest(struct vector_type_qualifier *v)
3552 free(v->q_container);
3553 vector_str_dest(&v->ext_name);
3556 /* size, capacity, ext_name */
3558 vector_type_qualifier_init(struct vector_type_qualifier *v)
3565 v->capacity = VECTOR_DEF_CAPACITY;
3567 if ((v->q_container = malloc(sizeof(enum type_qualifier) * v->capacity))
3571 assert(v->q_container != NULL);
3573 if (vector_str_init(&v->ext_name) == false) {
3574 free(v->q_container);
3582 vector_type_qualifier_push(struct vector_type_qualifier *v,
3583 enum type_qualifier t)
3585 enum type_qualifier *tmp_ctn;
3592 if (v->size == v->capacity) {
3593 tmp_cap = v->capacity * BUFFER_GROWFACTOR;
3594 if ((tmp_ctn = malloc(sizeof(enum type_qualifier) * tmp_cap))
3597 for (i = 0; i < v->size; ++i)
3598 tmp_ctn[i] = v->q_container[i];
3599 free(v->q_container);
3600 v->q_container = tmp_ctn;
3601 v->capacity = tmp_cap;
3604 v->q_container[v->size] = t;