1 /* Demangler for GNU C++
2 Copyright 1989, 1991, 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
3 Written by James Clark (jjc@jclark.uucp)
4 Rewritten by Fred Fish (fnf@cygnus.com) for ARM and Lucid demangling
6 This file is part of the libiberty library.
7 Libiberty is free software; you can redistribute it and/or
8 modify it under the terms of the GNU Library General Public
9 License as published by the Free Software Foundation; either
10 version 2 of the License, or (at your option) any later version.
12 Libiberty is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 Library General Public License for more details.
17 You should have received a copy of the GNU Library General Public
18 License along with libiberty; see the file COPYING.LIB. If
19 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
22 /* This file exports two functions; cplus_mangle_opname and cplus_demangle.
24 This file imports xmalloc and xrealloc, which are like malloc and
25 realloc except that they generate a fatal error if there is no
28 /* This file lives in both GCC and libiberty. When making changes, please
29 try not to break either. */
36 #undef CURRENT_DEMANGLING_STYLE
37 #define CURRENT_DEMANGLING_STYLE work->options
39 extern char *xmalloc PARAMS((unsigned));
40 extern char *xrealloc PARAMS((char *, unsigned));
42 static const char *mystrstr PARAMS ((const char *, const char *));
48 register const char *p = s1;
49 register int len = strlen (s2);
51 for (; (p = strchr (p, *s2)) != 0; p++)
53 if (strncmp (p, s2, len) == 0)
61 /* In order to allow a single demangler executable to demangle strings
62 using various common values of CPLUS_MARKER, as well as any specific
63 one set at compile time, we maintain a string containing all the
64 commonly used ones, and check to see if the marker we are looking for
65 is in that string. CPLUS_MARKER is usually '$' on systems where the
66 assembler can deal with that. Where the assembler can't, it's usually
67 '.' (but on many systems '.' is used for other things). We put the
68 current defined CPLUS_MARKER first (which defaults to '$'), followed
69 by the next most common value, followed by an explicit '$' in case
70 the value of CPLUS_MARKER is not '$'.
72 We could avoid this if we could just get g++ to tell us what the actual
73 cplus marker character is as part of the debug information, perhaps by
74 ensuring that it is the character that terminates the gcc<n>_compiled
75 marker symbol (FIXME). */
77 #if !defined (CPLUS_MARKER)
78 #define CPLUS_MARKER '$'
81 enum demangling_styles current_demangling_style = gnu_demangling;
83 static char cplus_markers[] = { CPLUS_MARKER, '.', '$', '\0' };
86 set_cplus_marker_for_demangling (ch)
89 cplus_markers[0] = ch;
92 /* Stuff that is shared between sub-routines.
93 Using a shared structure allows cplus_demangle to be reentrant. */
103 int static_type; /* A static member function */
104 int const_type; /* A const member function */
107 #define PRINT_ANSI_QUALIFIERS (work -> options & DMGL_ANSI)
108 #define PRINT_ARG_TYPES (work -> options & DMGL_PARAMS)
110 static const struct optable
116 {"nw", " new", DMGL_ANSI}, /* new (1.92, ansi) */
117 {"dl", " delete", DMGL_ANSI}, /* new (1.92, ansi) */
118 {"new", " new", 0}, /* old (1.91, and 1.x) */
119 {"delete", " delete", 0}, /* old (1.91, and 1.x) */
120 {"vn", " new []", DMGL_ANSI}, /* GNU, pending ansi */
121 {"vd", " delete []", DMGL_ANSI}, /* GNU, pending ansi */
122 {"as", "=", DMGL_ANSI}, /* ansi */
123 {"ne", "!=", DMGL_ANSI}, /* old, ansi */
124 {"eq", "==", DMGL_ANSI}, /* old, ansi */
125 {"ge", ">=", DMGL_ANSI}, /* old, ansi */
126 {"gt", ">", DMGL_ANSI}, /* old, ansi */
127 {"le", "<=", DMGL_ANSI}, /* old, ansi */
128 {"lt", "<", DMGL_ANSI}, /* old, ansi */
129 {"plus", "+", 0}, /* old */
130 {"pl", "+", DMGL_ANSI}, /* ansi */
131 {"apl", "+=", DMGL_ANSI}, /* ansi */
132 {"minus", "-", 0}, /* old */
133 {"mi", "-", DMGL_ANSI}, /* ansi */
134 {"ami", "-=", DMGL_ANSI}, /* ansi */
135 {"mult", "*", 0}, /* old */
136 {"ml", "*", DMGL_ANSI}, /* ansi */
137 {"amu", "*=", DMGL_ANSI}, /* ansi (ARM/Lucid) */
138 {"aml", "*=", DMGL_ANSI}, /* ansi (GNU/g++) */
139 {"convert", "+", 0}, /* old (unary +) */
140 {"negate", "-", 0}, /* old (unary -) */
141 {"trunc_mod", "%", 0}, /* old */
142 {"md", "%", DMGL_ANSI}, /* ansi */
143 {"amd", "%=", DMGL_ANSI}, /* ansi */
144 {"trunc_div", "/", 0}, /* old */
145 {"dv", "/", DMGL_ANSI}, /* ansi */
146 {"adv", "/=", DMGL_ANSI}, /* ansi */
147 {"truth_andif", "&&", 0}, /* old */
148 {"aa", "&&", DMGL_ANSI}, /* ansi */
149 {"truth_orif", "||", 0}, /* old */
150 {"oo", "||", DMGL_ANSI}, /* ansi */
151 {"truth_not", "!", 0}, /* old */
152 {"nt", "!", DMGL_ANSI}, /* ansi */
153 {"postincrement","++", 0}, /* old */
154 {"pp", "++", DMGL_ANSI}, /* ansi */
155 {"postdecrement","--", 0}, /* old */
156 {"mm", "--", DMGL_ANSI}, /* ansi */
157 {"bit_ior", "|", 0}, /* old */
158 {"or", "|", DMGL_ANSI}, /* ansi */
159 {"aor", "|=", DMGL_ANSI}, /* ansi */
160 {"bit_xor", "^", 0}, /* old */
161 {"er", "^", DMGL_ANSI}, /* ansi */
162 {"aer", "^=", DMGL_ANSI}, /* ansi */
163 {"bit_and", "&", 0}, /* old */
164 {"ad", "&", DMGL_ANSI}, /* ansi */
165 {"aad", "&=", DMGL_ANSI}, /* ansi */
166 {"bit_not", "~", 0}, /* old */
167 {"co", "~", DMGL_ANSI}, /* ansi */
168 {"call", "()", 0}, /* old */
169 {"cl", "()", DMGL_ANSI}, /* ansi */
170 {"alshift", "<<", 0}, /* old */
171 {"ls", "<<", DMGL_ANSI}, /* ansi */
172 {"als", "<<=", DMGL_ANSI}, /* ansi */
173 {"arshift", ">>", 0}, /* old */
174 {"rs", ">>", DMGL_ANSI}, /* ansi */
175 {"ars", ">>=", DMGL_ANSI}, /* ansi */
176 {"component", "->", 0}, /* old */
177 {"pt", "->", DMGL_ANSI}, /* ansi; Lucid C++ form */
178 {"rf", "->", DMGL_ANSI}, /* ansi; ARM/GNU form */
179 {"indirect", "*", 0}, /* old */
180 {"method_call", "->()", 0}, /* old */
181 {"addr", "&", 0}, /* old (unary &) */
182 {"array", "[]", 0}, /* old */
183 {"vc", "[]", DMGL_ANSI}, /* ansi */
184 {"compound", ", ", 0}, /* old */
185 {"cm", ", ", DMGL_ANSI}, /* ansi */
186 {"cond", "?:", 0}, /* old */
187 {"cn", "?:", DMGL_ANSI}, /* pseudo-ansi */
188 {"max", ">?", 0}, /* old */
189 {"mx", ">?", DMGL_ANSI}, /* pseudo-ansi */
190 {"min", "<?", 0}, /* old */
191 {"mn", "<?", DMGL_ANSI}, /* pseudo-ansi */
192 {"nop", "", 0}, /* old (for operator=) */
193 {"rm", "->*", DMGL_ANSI} /* ansi */
197 typedef struct string /* Beware: these aren't required to be */
198 { /* '\0' terminated. */
199 char *b; /* pointer to start of string */
200 char *p; /* pointer after last character */
201 char *e; /* pointer after end of allocated space */
204 #define STRING_EMPTY(str) ((str) -> b == (str) -> p)
205 #define PREPEND_BLANK(str) {if (!STRING_EMPTY(str)) \
206 string_prepend(str, " ");}
207 #define APPEND_BLANK(str) {if (!STRING_EMPTY(str)) \
208 string_append(str, " ");}
210 #define ARM_VTABLE_STRING "__vtbl__" /* Lucid/ARM virtual table prefix */
211 #define ARM_VTABLE_STRLEN 8 /* strlen (ARM_VTABLE_STRING) */
213 /* Prototypes for local functions */
216 mop_up PARAMS ((struct work_stuff *, string *, int));
220 demangle_method_args PARAMS ((struct work_stuff *work, const char **, string *));
224 demangle_template PARAMS ((struct work_stuff *work, const char **, string *,
228 arm_pt PARAMS ((struct work_stuff *, const char *, int, const char **,
232 demangle_arm_pt PARAMS ((struct work_stuff *, const char **, int, string *));
235 demangle_class_name PARAMS ((struct work_stuff *, const char **, string *));
238 demangle_qualified PARAMS ((struct work_stuff *, const char **, string *,
242 demangle_class PARAMS ((struct work_stuff *, const char **, string *));
245 demangle_fund_type PARAMS ((struct work_stuff *, const char **, string *));
248 demangle_signature PARAMS ((struct work_stuff *, const char **, string *));
251 demangle_prefix PARAMS ((struct work_stuff *, const char **, string *));
254 gnu_special PARAMS ((struct work_stuff *, const char **, string *));
257 arm_special PARAMS ((struct work_stuff *, const char **, string *));
260 string_need PARAMS ((string *, int));
263 string_delete PARAMS ((string *));
266 string_init PARAMS ((string *));
269 string_clear PARAMS ((string *));
273 string_empty PARAMS ((string *));
277 string_append PARAMS ((string *, const char *));
280 string_appends PARAMS ((string *, string *));
283 string_appendn PARAMS ((string *, const char *, int));
286 string_prepend PARAMS ((string *, const char *));
289 string_prependn PARAMS ((string *, const char *, int));
292 get_count PARAMS ((const char **, int *));
295 consume_count PARAMS ((const char **));
298 demangle_args PARAMS ((struct work_stuff *, const char **, string *));
301 do_type PARAMS ((struct work_stuff *, const char **, string *));
304 do_arg PARAMS ((struct work_stuff *, const char **, string *));
307 demangle_function_name PARAMS ((struct work_stuff *, const char **, string *,
311 remember_type PARAMS ((struct work_stuff *, const char *, int));
314 forget_types PARAMS ((struct work_stuff *));
317 string_prepends PARAMS ((string *, string *));
319 /* Translate count to integer, consuming tokens in the process.
320 Conversion terminates on the first non-digit character.
321 Trying to consume something that isn't a count results in
322 no consumption of input and a return of 0. */
330 while (isdigit (**type))
333 count += **type - '0';
340 cplus_demangle_opname (opname, result, options)
345 int len, i, len1, ret;
347 struct work_stuff work[1];
350 len = strlen(opname);
353 work->options = options;
355 if (opname[0] == '_' && opname[1] == '_'
356 && opname[2] == 'o' && opname[3] == 'p')
359 /* type conversion operator. */
361 if (do_type (work, &tem, &type))
363 strcat (result, "operator ");
364 strncat (result, type.b, type.p - type.b);
365 string_delete (&type);
369 else if (opname[0] == '_' && opname[1] == '_'
370 && opname[2] >= 'a' && opname[2] <= 'z'
371 && opname[3] >= 'a' && opname[3] <= 'z')
373 if (opname[4] == '\0')
376 for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++)
378 if (strlen (optable[i].in) == 2
379 && memcmp (optable[i].in, opname + 2, 2) == 0)
381 strcat (result, "operator");
382 strcat (result, optable[i].out);
390 if (opname[2] == 'a' && opname[5] == '\0')
393 for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++)
395 if (strlen (optable[i].in) == 3
396 && memcmp (optable[i].in, opname + 2, 3) == 0)
398 strcat (result, "operator");
399 strcat (result, optable[i].out);
410 && strchr (cplus_markers, opname[2]) != NULL)
412 /* see if it's an assignment expression */
413 if (len >= 10 /* op$assign_ */
414 && memcmp (opname + 3, "assign_", 7) == 0)
416 for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++)
419 if (strlen (optable[i].in) == len1
420 && memcmp (optable[i].in, opname + 10, len1) == 0)
422 strcat (result, "operator");
423 strcat (result, optable[i].out);
424 strcat (result, "=");
432 for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++)
435 if (strlen (optable[i].in) == len1
436 && memcmp (optable[i].in, opname + 3, len1) == 0)
438 strcat (result, "operator");
439 strcat (result, optable[i].out);
446 else if (len >= 5 && memcmp (opname, "type", 4) == 0
447 && strchr (cplus_markers, opname[4]) != NULL)
449 /* type conversion operator */
451 if (do_type (work, &tem, &type))
453 strcat (result, "operator ");
454 strncat (result, type.b, type.p - type.b);
455 string_delete (&type);
462 /* Takes operator name as e.g. "++" and returns mangled
463 operator name (e.g. "postincrement_expr"), or NULL if not found.
465 If OPTIONS & DMGL_ANSI == 1, return the ANSI name;
466 if OPTIONS & DMGL_ANSI == 0, return the old GNU name. */
469 cplus_mangle_opname (opname, options)
476 len = strlen (opname);
477 for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++)
479 if (strlen (optable[i].out) == len
480 && (options & DMGL_ANSI) == (optable[i].flags & DMGL_ANSI)
481 && memcmp (optable[i].out, opname, len) == 0)
482 return optable[i].in;
487 /* char *cplus_demangle (const char *mangled, int options)
489 If MANGLED is a mangled function name produced by GNU C++, then
490 a pointer to a malloced string giving a C++ representation
491 of the name will be returned; otherwise NULL will be returned.
492 It is the caller's responsibility to free the string which
495 The OPTIONS arg may contain one or more of the following bits:
497 DMGL_ANSI ANSI qualifiers such as `const' and `void' are
499 DMGL_PARAMS Function parameters are included.
503 cplus_demangle ("foo__1Ai", DMGL_PARAMS) => "A::foo(int)"
504 cplus_demangle ("foo__1Ai", DMGL_PARAMS | DMGL_ANSI) => "A::foo(int)"
505 cplus_demangle ("foo__1Ai", 0) => "A::foo"
507 cplus_demangle ("foo__1Afe", DMGL_PARAMS) => "A::foo(float,...)"
508 cplus_demangle ("foo__1Afe", DMGL_PARAMS | DMGL_ANSI)=> "A::foo(float,...)"
509 cplus_demangle ("foo__1Afe", 0) => "A::foo"
511 Note that any leading underscores, or other such characters prepended by
512 the compilation system, are presumed to have already been stripped from
516 cplus_demangle (mangled, options)
522 struct work_stuff work[1];
523 char *demangled = NULL;
525 if ((mangled != NULL) && (*mangled != '\0'))
527 memset ((char *) work, 0, sizeof (work));
528 work -> options = options;
529 if ((work->options & DMGL_STYLE_MASK) == 0)
530 work->options |= (int)current_demangling_style & DMGL_STYLE_MASK;
534 /* First check to see if gnu style demangling is active and if the
535 string to be demangled contains a CPLUS_MARKER. If so, attempt to
536 recognize one of the gnu special forms rather than looking for a
537 standard prefix. In particular, don't worry about whether there
538 is a "__" string in the mangled string. Consider "_$_5__foo" for
541 if ((AUTO_DEMANGLING || GNU_DEMANGLING))
543 success = gnu_special (work, &mangled, &decl);
547 success = demangle_prefix (work, &mangled, &decl);
549 if (success && (*mangled != '\0'))
551 success = demangle_signature (work, &mangled, &decl);
553 if (work->constructor == 2)
555 string_prepend(&decl, "global constructors keyed to ");
556 work->constructor = 0;
558 else if (work->destructor == 2)
560 string_prepend(&decl, "global destructors keyed to ");
561 work->destructor = 0;
563 demangled = mop_up (work, &decl, success);
569 mop_up (work, declp, success)
570 struct work_stuff *work;
574 char *demangled = NULL;
576 /* Discard the remembered types, if any. */
579 if (work -> typevec != NULL)
581 free ((char *) work -> typevec);
584 /* If demangling was successful, ensure that the demangled string is null
585 terminated and return it. Otherwise, free the demangling decl. */
589 string_delete (declp);
593 string_appendn (declp, "", 1);
594 demangled = declp -> b;
603 demangle_signature -- demangle the signature part of a mangled name
608 demangle_signature (struct work_stuff *work, const char **mangled,
613 Consume and demangle the signature portion of the mangled name.
615 DECLP is the string where demangled output is being built. At
616 entry it contains the demangled root name from the mangled name
617 prefix. I.E. either a demangled operator name or the root function
618 name. In some special cases, it may contain nothing.
620 *MANGLED points to the current unconsumed location in the mangled
621 name. As tokens are consumed and demangling is performed, the
622 pointer is updated to continuously point at the next token to
625 Demangling GNU style mangled names is nasty because there is no
626 explicit token that marks the start of the outermost function
630 demangle_signature (work, mangled, declp)
631 struct work_stuff *work;
632 const char **mangled;
638 const char *oldmangled = NULL;
642 while (success && (**mangled != '\0'))
647 oldmangled = *mangled;
648 success = demangle_qualified (work, mangled, declp, 1, 0);
651 remember_type (work, oldmangled, *mangled - oldmangled);
653 if (AUTO_DEMANGLING || GNU_DEMANGLING)
661 /* Static member function */
662 if (oldmangled == NULL)
664 oldmangled = *mangled;
667 work -> static_type = 1;
671 /* a const member function */
672 if (oldmangled == NULL)
674 oldmangled = *mangled;
677 work -> const_type = 1;
680 case '0': case '1': case '2': case '3': case '4':
681 case '5': case '6': case '7': case '8': case '9':
682 if (oldmangled == NULL)
684 oldmangled = *mangled;
686 success = demangle_class (work, mangled, declp);
689 remember_type (work, oldmangled, *mangled - oldmangled);
691 if (AUTO_DEMANGLING || GNU_DEMANGLING)
700 /* ARM style demangling includes a specific 'F' character after
701 the class name. For GNU style, it is just implied. So we can
702 safely just consume any 'F' at this point and be compatible
703 with either style. */
709 /* For lucid/ARM style we have to forget any types we might
710 have remembered up to this point, since they were not argument
711 types. GNU style considers all types seen as available for
712 back references. See comment in demangle_args() */
714 if (LUCID_DEMANGLING || ARM_DEMANGLING)
718 success = demangle_args (work, mangled, declp);
723 string_init(&trawname);
725 if (oldmangled == NULL)
727 oldmangled = *mangled;
729 success = demangle_template (work, mangled, &tname, &trawname);
732 remember_type (work, oldmangled, *mangled - oldmangled);
734 string_append(&tname, (work -> options & DMGL_JAVA) ? "." : "::");
735 string_prepends(declp, &tname);
736 if (work -> destructor & 1)
738 string_prepend (&trawname, "~");
739 string_appends (declp, &trawname);
740 work->destructor -= 1;
742 if ((work->constructor & 1) || (work->destructor & 1))
744 string_appends (declp, &trawname);
745 work->constructor -= 1;
747 string_delete(&trawname);
748 string_delete(&tname);
754 /* At the outermost level, we cannot have a return type specified,
755 so if we run into another '_' at this point we are dealing with
756 a mangled name that is either bogus, or has been mangled by
757 some algorithm we don't know how to deal with. So just
758 reject the entire demangling. */
763 if (AUTO_DEMANGLING || GNU_DEMANGLING)
765 /* Assume we have stumbled onto the first outermost function
766 argument token, and start processing args. */
768 success = demangle_args (work, mangled, declp);
772 /* Non-GNU demanglers use a specific token to mark the start
773 of the outermost function argument tokens. Typically 'F',
774 for ARM-demangling, for example. So if we find something
775 we are not prepared for, it must be an error. */
781 if (AUTO_DEMANGLING || GNU_DEMANGLING)
784 if (success && expect_func)
787 success = demangle_args (work, mangled, declp);
791 if (success && !func_done)
793 if (AUTO_DEMANGLING || GNU_DEMANGLING)
795 /* With GNU style demangling, bar__3foo is 'foo::bar(void)', and
796 bar__3fooi is 'foo::bar(int)'. We get here when we find the
797 first case, and need to ensure that the '(void)' gets added to
798 the current declp. Note that with ARM, the first case
799 represents the name of a static data member 'foo::bar',
800 which is in the current declp, so we leave it alone. */
801 success = demangle_args (work, mangled, declp);
804 if (success && work -> static_type && PRINT_ARG_TYPES)
806 string_append (declp, " static");
808 if (success && work -> const_type && PRINT_ARG_TYPES)
810 string_append (declp, " const");
818 demangle_method_args (work, mangled, declp)
819 struct work_stuff *work;
820 const char **mangled;
825 if (work -> static_type)
827 string_append (declp, *mangled + 1);
828 *mangled += strlen (*mangled);
833 success = demangle_args (work, mangled, declp);
841 demangle_template (work, mangled, tname, trawname)
842 struct work_stuff *work;
843 const char **mangled;
865 /* get template name */
866 if ((r = consume_count (mangled)) == 0 || strlen (*mangled) < r)
871 string_appendn (trawname, *mangled, r);
872 is_java_array = (work -> options & DMGL_JAVA)
873 && strncmp (*mangled, "JArray1Z", 8) == 0;
876 string_appendn (tname, *mangled, r);
877 string_append (tname, "<");
880 /* get size of template parameter list */
881 if (!get_count (mangled, &r))
885 for (i = 0; i < r; i++)
889 string_append (tname, ", ");
891 /* Z for type parameters */
892 if (**mangled == 'Z')
895 /* temp is initialized in do_type */
896 success = do_type (work, mangled, &temp);
899 string_appends (tname, &temp);
901 string_delete(&temp);
909 /* otherwise, value parameter */
917 /* temp is initialized in do_type */
918 success = do_type (work, mangled, &temp);
922 string_appends (tname, &temp);
925 string_delete(&temp);
931 string_append (tname, "=");
933 while (*old_p && !done)
940 done = is_pointer = 1;
942 case 'C': /* const */
943 case 'S': /* explicitly signed [char] */
944 case 'U': /* unsigned */
945 case 'V': /* volatile */
946 case 'F': /* function */
947 case 'M': /* member function */
949 case 'J': /* complex */
952 case 'Q': /* qualified name */
953 done = is_integral = 1;
955 case 'T': /* remembered type */
961 case 'x': /* long long */
964 case 's': /* short */
965 case 'w': /* wchar_t */
966 done = is_integral = 1;
974 case 'r': /* long double */
975 case 'd': /* double */
976 case 'f': /* float */
980 /* it's probably user defined type, let's assume
981 it's integral, it seems hard to figure out
983 done = is_integral = 1;
988 if (**mangled == 'm')
990 string_appendn (tname, "-", 1);
993 while (isdigit (**mangled))
995 string_appendn (tname, *mangled, 1);
1003 if (**mangled == 'm')
1005 string_appendn (tname, "-", 1);
1008 string_appendn (tname, "'", 1);
1009 val = consume_count(mangled);
1017 string_appendn (tname, &tmp[0], 1);
1018 string_appendn (tname, "'", 1);
1022 int val = consume_count (mangled);
1024 string_appendn (tname, "false", 5);
1026 string_appendn (tname, "true", 4);
1032 if (**mangled == 'm')
1034 string_appendn (tname, "-", 1);
1037 while (isdigit (**mangled))
1039 string_appendn (tname, *mangled, 1);
1042 if (**mangled == '.') /* fraction */
1044 string_appendn (tname, ".", 1);
1046 while (isdigit (**mangled))
1048 string_appendn (tname, *mangled, 1);
1052 if (**mangled == 'e') /* exponent */
1054 string_appendn (tname, "e", 1);
1056 while (isdigit (**mangled))
1058 string_appendn (tname, *mangled, 1);
1063 else if (is_pointer)
1065 symbol_len = consume_count (mangled);
1066 if (symbol_len == 0)
1071 if (symbol_len == 0)
1072 string_appendn (tname, "0", 1);
1075 char *p = xmalloc (symbol_len + 1), *q;
1076 strncpy (p, *mangled, symbol_len);
1077 p [symbol_len] = '\0';
1078 q = cplus_demangle (p, work->options);
1079 string_appendn (tname, "&", 1);
1082 string_append (tname, q);
1086 string_append (tname, p);
1089 *mangled += symbol_len;
1096 string_append (tname, "[]");
1100 if (tname->p[-1] == '>')
1101 string_append (tname, " ");
1102 string_append (tname, ">");
1106 if (work -> static_type)
1108 string_append (declp, *mangled + 1);
1109 *mangled += strlen (*mangled);
1114 success = demangle_args (work, mangled, declp);
1122 arm_pt (work, mangled, n, anchor, args)
1123 struct work_stuff *work;
1124 const char *mangled;
1126 const char **anchor, **args;
1129 if (ARM_DEMANGLING && (*anchor = mystrstr (mangled, "__pt__")))
1132 *args = *anchor + 6;
1133 len = consume_count (args);
1134 if (*args + len == mangled + n && **args == '_')
1144 demangle_arm_pt (work, mangled, n, declp)
1145 struct work_stuff *work;
1146 const char **mangled;
1152 const char *e = *mangled + n;
1155 if (arm_pt (work, *mangled, n, &p, &args))
1159 string_appendn (declp, *mangled, p - *mangled);
1160 string_append (declp, "<");
1161 /* should do error checking here */
1163 string_clear (&arg);
1164 do_type (work, &args, &arg);
1165 string_appends (declp, &arg);
1166 string_append (declp, ",");
1168 string_delete (&arg);
1170 string_append (declp, ">");
1174 string_appendn (declp, *mangled, n);
1180 demangle_class_name (work, mangled, declp)
1181 struct work_stuff *work;
1182 const char **mangled;
1188 n = consume_count (mangled);
1189 if (strlen (*mangled) >= n)
1191 demangle_arm_pt (work, mangled, n, declp);
1202 demangle_class -- demangle a mangled class sequence
1207 demangle_class (struct work_stuff *work, const char **mangled,
1212 DECLP points to the buffer into which demangling is being done.
1214 *MANGLED points to the current token to be demangled. On input,
1215 it points to a mangled class (I.E. "3foo", "13verylongclass", etc.)
1216 On exit, it points to the next token after the mangled class on
1217 success, or the first unconsumed token on failure.
1219 If the CONSTRUCTOR or DESTRUCTOR flags are set in WORK, then
1220 we are demangling a constructor or destructor. In this case
1221 we prepend "class::class" or "class::~class" to DECLP.
1223 Otherwise, we prepend "class::" to the current DECLP.
1225 Reset the constructor/destructor flags once they have been
1226 "consumed". This allows demangle_class to be called later during
1227 the same demangling, to do normal class demangling.
1229 Returns 1 if demangling is successful, 0 otherwise.
1234 demangle_class (work, mangled, declp)
1235 struct work_stuff *work;
1236 const char **mangled;
1242 string_init (&class_name);
1243 if (demangle_class_name (work, mangled, &class_name))
1245 if ((work->constructor & 1) || (work->destructor & 1))
1247 string_prepends (declp, &class_name);
1248 if (work -> destructor & 1)
1250 string_prepend (declp, "~");
1251 work -> destructor -= 1;
1255 work -> constructor -= 1;
1258 string_prepend (declp, (work -> options & DMGL_JAVA) ? "." : "::");
1259 string_prepends (declp, &class_name);
1262 string_delete (&class_name);
1270 demangle_prefix -- consume the mangled name prefix and find signature
1275 demangle_prefix (struct work_stuff *work, const char **mangled,
1280 Consume and demangle the prefix of the mangled name.
1282 DECLP points to the string buffer into which demangled output is
1283 placed. On entry, the buffer is empty. On exit it contains
1284 the root function name, the demangled operator name, or in some
1285 special cases either nothing or the completely demangled result.
1287 MANGLED points to the current pointer into the mangled name. As each
1288 token of the mangled name is consumed, it is updated. Upon entry
1289 the current mangled name pointer points to the first character of
1290 the mangled name. Upon exit, it should point to the first character
1291 of the signature if demangling was successful, or to the first
1292 unconsumed character if demangling of the prefix was unsuccessful.
1294 Returns 1 on success, 0 otherwise.
1298 demangle_prefix (work, mangled, declp)
1299 struct work_stuff *work;
1300 const char **mangled;
1307 if (strlen(*mangled) >= 11 && strncmp(*mangled, "_GLOBAL_", 8) == 0)
1309 char *marker = strchr (cplus_markers, (*mangled)[8]);
1310 if (marker != NULL && *marker == (*mangled)[10])
1312 if ((*mangled)[9] == 'D')
1314 /* it's a GNU global destructor to be executed at program exit */
1316 work->destructor = 2;
1317 if (gnu_special (work, mangled, declp))
1320 else if ((*mangled)[9] == 'I')
1322 /* it's a GNU global constructor to be executed at program init */
1324 work->constructor = 2;
1325 if (gnu_special (work, mangled, declp))
1330 else if (ARM_DEMANGLING && strncmp(*mangled, "__std__", 7) == 0)
1332 /* it's a ARM global destructor to be executed at program exit */
1334 work->destructor = 2;
1336 else if (ARM_DEMANGLING && strncmp(*mangled, "__sti__", 7) == 0)
1338 /* it's a ARM global constructor to be executed at program initial */
1340 work->constructor = 2;
1343 /* This block of code is a reduction in strength time optimization
1345 scan = mystrstr (*mangled, "__"); */
1351 scan = strchr (scan, '_');
1352 } while (scan != NULL && *++scan != '_');
1354 if (scan != NULL) --scan;
1359 /* We found a sequence of two or more '_', ensure that we start at
1360 the last pair in the sequence. */
1361 i = strspn (scan, "_");
1372 else if (work -> static_type)
1374 if (!isdigit (scan[0]) && (scan[0] != 't'))
1379 else if ((scan == *mangled)
1380 && (isdigit (scan[2]) || (scan[2] == 'Q') || (scan[2] == 't')))
1382 /* The ARM says nothing about the mangling of local variables.
1383 But cfront mangles local variables by prepending __<nesting_level>
1384 to them. As an extension to ARM demangling we handle this case. */
1385 if ((LUCID_DEMANGLING || ARM_DEMANGLING) && isdigit (scan[2]))
1387 *mangled = scan + 2;
1388 consume_count (mangled);
1389 string_append (declp, *mangled);
1390 *mangled += strlen (*mangled);
1395 /* A GNU style constructor starts with __[0-9Qt]. But cfront uses
1396 names like __Q2_3foo3bar for nested type names. So don't accept
1397 this style of constructor for cfront demangling. */
1398 if (!(LUCID_DEMANGLING || ARM_DEMANGLING))
1399 work -> constructor += 1;
1400 *mangled = scan + 2;
1403 else if ((scan == *mangled) && !isdigit (scan[2]) && (scan[2] != 't'))
1405 /* Mangled name starts with "__". Skip over any leading '_' characters,
1406 then find the next "__" that separates the prefix from the signature.
1408 if (!(ARM_DEMANGLING || LUCID_DEMANGLING)
1409 || (arm_special (work, mangled, declp) == 0))
1411 while (*scan == '_')
1415 if ((scan = mystrstr (scan, "__")) == NULL || (*(scan + 2) == '\0'))
1417 /* No separator (I.E. "__not_mangled"), or empty signature
1418 (I.E. "__not_mangled_either__") */
1423 demangle_function_name (work, mangled, declp, scan);
1427 else if (ARM_DEMANGLING && scan[2] == 'p' && scan[3] == 't')
1429 /* Cfront-style parameterized type. Handled later as a signature. */
1433 demangle_arm_pt (work, mangled, strlen (*mangled), declp);
1435 else if (*(scan + 2) != '\0')
1437 /* Mangled name does not start with "__" but does have one somewhere
1438 in there with non empty stuff after it. Looks like a global
1440 demangle_function_name (work, mangled, declp, scan);
1444 /* Doesn't look like a mangled name */
1448 if (!success && (work->constructor == 2 || work->destructor == 2))
1450 string_append (declp, *mangled);
1451 *mangled += strlen (*mangled);
1461 gnu_special -- special handling of gnu mangled strings
1466 gnu_special (struct work_stuff *work, const char **mangled,
1472 Process some special GNU style mangling forms that don't fit
1473 the normal pattern. For example:
1475 _$_3foo (destructor for class foo)
1476 _vt$foo (foo virtual table)
1477 _vt$foo$bar (foo::bar virtual table)
1478 __vt_foo (foo virtual table, new style with thunks)
1479 _3foo$varname (static data member)
1480 _Q22rs2tu$vw (static data member)
1481 __t6vector1Zii (constructor with template)
1482 __thunk_4__$_7ostream (virtual function thunk)
1486 gnu_special (work, mangled, declp)
1487 struct work_stuff *work;
1488 const char **mangled;
1495 if ((*mangled)[0] == '_'
1496 && strchr (cplus_markers, (*mangled)[1]) != NULL
1497 && (*mangled)[2] == '_')
1499 /* Found a GNU style destructor, get past "_<CPLUS_MARKER>_" */
1501 work -> destructor += 1;
1503 else if ((*mangled)[0] == '_'
1504 && (((*mangled)[1] == '_'
1505 && (*mangled)[2] == 'v'
1506 && (*mangled)[3] == 't'
1507 && (*mangled)[4] == '_')
1508 || ((*mangled)[1] == 'v'
1509 && (*mangled)[2] == 't'
1510 && strchr (cplus_markers, (*mangled)[3]) != NULL)))
1512 /* Found a GNU style virtual table, get past "_vt<CPLUS_MARKER>"
1513 and create the decl. Note that we consume the entire mangled
1514 input string, which means that demangle_signature has no work
1516 if ((*mangled)[2] == 'v')
1517 (*mangled) += 5; /* New style, with thunks: "__vt_" */
1519 (*mangled) += 4; /* Old style, no thunks: "_vt<CPLUS_MARKER>" */
1520 while (**mangled != '\0')
1522 p = strpbrk (*mangled, cplus_markers);
1526 success = demangle_qualified (work, mangled, declp, 0, 1);
1529 success = demangle_template (work, mangled, declp, 0);
1532 if (isdigit(*mangled[0]))
1534 n = consume_count(mangled);
1538 n = strcspn (*mangled, cplus_markers);
1540 string_appendn (declp, *mangled, n);
1544 if (success && ((p == NULL) || (p == *mangled)))
1548 string_append (declp,
1549 (work -> options & DMGL_JAVA) ? "." : "::");
1560 string_append (declp, " virtual table");
1562 else if ((*mangled)[0] == '_'
1563 && (strchr("0123456789Qt", (*mangled)[1]) != NULL)
1564 && (p = strpbrk (*mangled, cplus_markers)) != NULL)
1566 /* static data member, "_3foo$varname" for example */
1571 success = demangle_qualified (work, mangled, declp, 0, 1);
1574 success = demangle_template (work, mangled, declp, 0);
1577 n = consume_count (mangled);
1578 string_appendn (declp, *mangled, n);
1581 if (success && (p == *mangled))
1583 /* Consumed everything up to the cplus_marker, append the
1586 string_append (declp, (work -> options & DMGL_JAVA) ? "." : "::");
1587 n = strlen (*mangled);
1588 string_appendn (declp, *mangled, n);
1596 else if (strncmp (*mangled, "__thunk_", 8) == 0)
1598 int delta = ((*mangled) += 8, consume_count (mangled));
1599 char *method = cplus_demangle (++*mangled, work->options);
1603 sprintf (buf, "virtual function thunk (delta:%d) for ", -delta);
1604 string_append (declp, buf);
1605 string_append (declp, method);
1607 n = strlen (*mangled);
1615 else if (strncmp (*mangled, "__t", 3) == 0
1616 && ((*mangled)[3] == 'i' || (*mangled)[3] == 'f'))
1618 p = (*mangled)[3] == 'i' ? " type_info node" : " type_info function";
1623 success = demangle_qualified (work, mangled, declp, 0, 1);
1626 success = demangle_template (work, mangled, declp, 0);
1629 success = demangle_fund_type (work, mangled, declp);
1632 if (success && **mangled != '\0')
1635 string_append (declp, p);
1648 arm_special -- special handling of ARM/lucid mangled strings
1653 arm_special (struct work_stuff *work, const char **mangled,
1659 Process some special ARM style mangling forms that don't fit
1660 the normal pattern. For example:
1662 __vtbl__3foo (foo virtual table)
1663 __vtbl__3foo__3bar (bar::foo virtual table)
1668 arm_special (work, mangled, declp)
1669 struct work_stuff *work;
1670 const char **mangled;
1677 if (strncmp (*mangled, ARM_VTABLE_STRING, ARM_VTABLE_STRLEN) == 0)
1679 /* Found a ARM style virtual table, get past ARM_VTABLE_STRING
1680 and create the decl. Note that we consume the entire mangled
1681 input string, which means that demangle_signature has no work
1683 scan = *mangled + ARM_VTABLE_STRLEN;
1684 while (*scan != '\0') /* first check it can be demangled */
1686 n = consume_count (&scan);
1689 return (0); /* no good */
1692 if (scan[0] == '_' && scan[1] == '_')
1697 (*mangled) += ARM_VTABLE_STRLEN;
1698 while (**mangled != '\0')
1700 n = consume_count (mangled);
1701 string_prependn (declp, *mangled, n);
1703 if ((*mangled)[0] == '_' && (*mangled)[1] == '_')
1705 string_prepend (declp, "::");
1709 string_append (declp, " virtual table");
1722 demangle_qualified -- demangle 'Q' qualified name strings
1727 demangle_qualified (struct work_stuff *, const char *mangled,
1728 string *result, int isfuncname, int append);
1732 Demangle a qualified name, such as "Q25Outer5Inner" which is
1733 the mangled form of "Outer::Inner". The demangled output is
1734 prepended or appended to the result string according to the
1735 state of the append flag.
1737 If isfuncname is nonzero, then the qualified name we are building
1738 is going to be used as a member function name, so if it is a
1739 constructor or destructor function, append an appropriate
1740 constructor or destructor name. I.E. for the above example,
1741 the result for use as a constructor is "Outer::Inner::Inner"
1742 and the result for use as a destructor is "Outer::Inner::~Inner".
1746 Numeric conversion is ASCII dependent (FIXME).
1751 demangle_qualified (work, mangled, result, isfuncname, append)
1752 struct work_stuff *work;
1753 const char **mangled;
1765 string_init (&temp);
1766 switch ((*mangled)[1])
1769 /* GNU mangled name with more than 9 classes. The count is preceded
1770 by an underscore (to distinguish it from the <= 9 case) and followed
1771 by an underscore. */
1773 qualifiers = atoi (p);
1774 if (!isdigit (*p) || *p == '0')
1777 /* Skip the digits. */
1778 while (isdigit (*p))
1796 /* The count is in a single digit. */
1797 num[0] = (*mangled)[1];
1799 qualifiers = atoi (num);
1801 /* If there is an underscore after the digit, skip it. This is
1802 said to be for ARM-qualified names, but the ARM makes no
1803 mention of such an underscore. Perhaps cfront uses one. */
1804 if ((*mangled)[2] == '_')
1819 /* Pick off the names and collect them in the temp buffer in the order
1820 in which they are found, separated by '::'. */
1822 while (qualifiers-- > 0)
1824 if (*mangled[0] == '_')
1825 *mangled = *mangled + 1;
1826 if (*mangled[0] == 't')
1828 success = demangle_template(work, mangled, &temp, 0);
1829 if (!success) break;
1833 namelength = consume_count (mangled);
1834 if (strlen (*mangled) < namelength)
1836 /* Simple sanity check failed */
1840 string_appendn (&temp, *mangled, namelength);
1841 *mangled += namelength;
1845 string_append (&temp, (work -> options & DMGL_JAVA) ? "." : "::");
1849 /* If we are using the result as a function name, we need to append
1850 the appropriate '::' separated constructor or destructor name.
1851 We do this here because this is the most convenient place, where
1852 we already have a pointer to the name and the length of the name. */
1854 if (isfuncname && (work->constructor & 1 || work->destructor & 1))
1856 string_append (&temp, (work -> options & DMGL_JAVA) ? "." : "::");
1857 if (work -> destructor & 1)
1859 string_append (&temp, "~");
1861 string_appendn (&temp, (*mangled) - namelength, namelength);
1864 /* Now either prepend the temp buffer to the result, or append it,
1865 depending upon the state of the append flag. */
1869 string_appends (result, &temp);
1873 if (!STRING_EMPTY (result))
1875 string_append (&temp, (work -> options & DMGL_JAVA) ? "." : "::");
1877 string_prepends (result, &temp);
1880 string_delete (&temp);
1888 get_count -- convert an ascii count to integer, consuming tokens
1893 get_count (const char **type, int *count)
1897 Return 0 if no conversion is performed, 1 if a string is converted.
1901 get_count (type, count)
1908 if (!isdigit (**type))
1914 *count = **type - '0';
1916 if (isdigit (**type))
1926 while (isdigit (*p));
1937 /* result will be initialised here; it will be freed on failure */
1940 do_type (work, mangled, result)
1941 struct work_stuff *work;
1942 const char **mangled;
1949 const char *remembered_type;
1953 string_init (&decl);
1954 string_init (result);
1958 while (success && !done)
1964 /* A pointer type */
1968 if (! (work -> options & DMGL_JAVA))
1969 string_prepend (&decl, "*");
1972 /* A reference type */
1975 string_prepend (&decl, "&");
1981 const char *p = ++(*mangled);
1983 string_prepend (&decl, "(");
1984 string_append (&decl, ")[");
1985 /* Copy anything up until the next underscore (the size of the
1987 while (**mangled && **mangled != '_')
1989 if (**mangled == '_')
1991 string_appendn (&decl, p, *mangled - p);
1992 string_append (&decl, "]");
2000 /* A back reference to a previously seen type */
2003 if (!get_count (mangled, &n) || n >= work -> ntypes)
2009 remembered_type = work -> typevec[n];
2010 mangled = &remembered_type;
2017 if (!STRING_EMPTY (&decl) && decl.b[0] == '*')
2019 string_prepend (&decl, "(");
2020 string_append (&decl, ")");
2022 /* After picking off the function args, we expect to either find the
2023 function return type (preceded by an '_') or the end of the
2025 if (!demangle_args (work, mangled, &decl)
2026 || (**mangled != '_' && **mangled != '\0'))
2030 if (success && (**mangled == '_'))
2042 member = **mangled == 'M';
2044 if (!isdigit (**mangled) && **mangled != 't')
2050 string_append (&decl, ")");
2051 string_prepend (&decl, (work -> options & DMGL_JAVA) ? "." : "::");
2052 if (isdigit (**mangled))
2054 n = consume_count (mangled);
2055 if (strlen (*mangled) < n)
2060 string_prependn (&decl, *mangled, n);
2066 string_init (&temp);
2067 success = demangle_template (work, mangled, &temp, NULL);
2070 string_prependn (&decl, temp.b, temp.p - temp.b);
2071 string_clear (&temp);
2076 string_prepend (&decl, "(");
2079 if (**mangled == 'C')
2084 if (**mangled == 'V')
2089 if (*(*mangled)++ != 'F')
2095 if ((member && !demangle_args (work, mangled, &decl))
2096 || **mangled != '_')
2102 if (! PRINT_ANSI_QUALIFIERS)
2108 APPEND_BLANK (&decl);
2109 string_append (&decl, "const");
2113 APPEND_BLANK (&decl);
2114 string_append (&decl, "volatile");
2125 if ((*mangled)[1] == 'P')
2128 if (PRINT_ANSI_QUALIFIERS)
2130 if (!STRING_EMPTY (&decl))
2132 string_prepend (&decl, " ");
2134 string_prepend (&decl, "const");
2150 /* A qualified name, such as "Outer::Inner". */
2152 success = demangle_qualified (work, mangled, result, 0, 1);
2156 success = demangle_fund_type (work, mangled, result);
2162 if (!STRING_EMPTY (&decl))
2164 string_append (result, " ");
2165 string_appends (result, &decl);
2170 string_delete (result);
2172 string_delete (&decl);
2176 /* Given a pointer to a type string that represents a fundamental type
2177 argument (int, long, unsigned int, etc) in TYPE, a pointer to the
2178 string in which the demangled output is being built in RESULT, and
2179 the WORK structure, decode the types and add them to the result.
2184 "Sl" => "signed long"
2185 "CUs" => "const unsigned short"
2190 demangle_fund_type (work, mangled, result)
2191 struct work_stuff *work;
2192 const char **mangled;
2198 /* First pick off any type qualifiers. There can be more than one. */
2206 if (PRINT_ANSI_QUALIFIERS)
2208 APPEND_BLANK (result);
2209 string_append (result, "const");
2214 APPEND_BLANK (result);
2215 string_append (result, "unsigned");
2217 case 'S': /* signed char only */
2219 APPEND_BLANK (result);
2220 string_append (result, "signed");
2224 if (PRINT_ANSI_QUALIFIERS)
2226 APPEND_BLANK (result);
2227 string_append (result, "volatile");
2232 APPEND_BLANK (result);
2233 string_append (result, "complex");
2241 /* Now pick off the fundamental type. There can be only one. */
2250 APPEND_BLANK (result);
2251 string_append (result, "void");
2255 APPEND_BLANK (result);
2256 string_append (result, "long long");
2260 APPEND_BLANK (result);
2261 string_append (result, "long");
2265 APPEND_BLANK (result);
2266 string_append (result, "int");
2270 APPEND_BLANK (result);
2271 string_append (result, "short");
2275 APPEND_BLANK (result);
2276 string_append (result, "bool");
2280 APPEND_BLANK (result);
2281 string_append (result, "char");
2285 APPEND_BLANK (result);
2286 string_append (result, "wchar_t");
2290 APPEND_BLANK (result);
2291 string_append (result, "long double");
2295 APPEND_BLANK (result);
2296 string_append (result, "double");
2300 APPEND_BLANK (result);
2301 string_append (result, "float");
2305 if (!isdigit (**mangled))
2311 /* An explicit type, such as "6mytype" or "7integer" */
2322 APPEND_BLANK (result);
2323 if (!demangle_class_name (work, mangled, result)) {
2329 success = demangle_template(work,mangled, result, 0);
2339 /* `result' will be initialized in do_type; it will be freed on failure */
2342 do_arg (work, mangled, result)
2343 struct work_stuff *work;
2344 const char **mangled;
2347 const char *start = *mangled;
2349 if (!do_type (work, mangled, result))
2355 remember_type (work, start, *mangled - start);
2361 remember_type (work, start, len)
2362 struct work_stuff *work;
2368 if (work -> ntypes >= work -> typevec_size)
2370 if (work -> typevec_size == 0)
2372 work -> typevec_size = 3;
2374 = (char **) xmalloc (sizeof (char *) * work -> typevec_size);
2378 work -> typevec_size *= 2;
2380 = (char **) xrealloc ((char *)work -> typevec,
2381 sizeof (char *) * work -> typevec_size);
2384 tem = xmalloc (len + 1);
2385 memcpy (tem, start, len);
2387 work -> typevec[work -> ntypes++] = tem;
2390 /* Forget the remembered types, but not the type vector itself. */
2394 struct work_stuff *work;
2398 while (work -> ntypes > 0)
2400 i = --(work -> ntypes);
2401 if (work -> typevec[i] != NULL)
2403 free (work -> typevec[i]);
2404 work -> typevec[i] = NULL;
2409 /* Process the argument list part of the signature, after any class spec
2410 has been consumed, as well as the first 'F' character (if any). For
2413 "__als__3fooRT0" => process "RT0"
2414 "complexfunc5__FPFPc_PFl_i" => process "PFPc_PFl_i"
2416 DECLP must be already initialised, usually non-empty. It won't be freed
2419 Note that g++ differs significantly from ARM and lucid style mangling
2420 with regards to references to previously seen types. For example, given
2421 the source fragment:
2425 foo::foo (int, foo &ia, int, foo &ib, int, foo &ic);
2428 foo::foo (int, foo &ia, int, foo &ib, int, foo &ic) { ia = ib = ic; }
2429 void foo (int, foo &ia, int, foo &ib, int, foo &ic) { ia = ib = ic; }
2431 g++ produces the names:
2436 while lcc (and presumably other ARM style compilers as well) produces:
2438 foo__FiR3fooT1T2T1T2
2439 __ct__3fooFiR3fooT1T2T1T2
2441 Note that g++ bases it's type numbers starting at zero and counts all
2442 previously seen types, while lucid/ARM bases it's type numbers starting
2443 at one and only considers types after it has seen the 'F' character
2444 indicating the start of the function args. For lucid/ARM style, we
2445 account for this difference by discarding any previously seen types when
2446 we see the 'F' character, and subtracting one from the type number
2452 demangle_args (work, mangled, declp)
2453 struct work_stuff *work;
2454 const char **mangled;
2464 if (PRINT_ARG_TYPES)
2466 string_append (declp, "(");
2467 if (**mangled == '\0')
2469 string_append (declp, "void");
2473 while (**mangled != '_' && **mangled != '\0' && **mangled != 'e')
2475 if ((**mangled == 'N') || (**mangled == 'T'))
2477 temptype = *(*mangled)++;
2479 if (temptype == 'N')
2481 if (!get_count (mangled, &r))
2490 if (ARM_DEMANGLING && work -> ntypes >= 10)
2492 /* If we have 10 or more types we might have more than a 1 digit
2493 index so we'll have to consume the whole count here. This
2494 will lose if the next thing is a type name preceded by a
2495 count but it's impossible to demangle that case properly
2496 anyway. Eg if we already have 12 types is T12Pc "(..., type1,
2497 Pc, ...)" or "(..., type12, char *, ...)" */
2498 if ((t = consume_count(mangled)) == 0)
2505 if (!get_count (mangled, &t))
2510 if (LUCID_DEMANGLING || ARM_DEMANGLING)
2514 /* Validate the type index. Protect against illegal indices from
2515 malformed type strings. */
2516 if ((t < 0) || (t >= work -> ntypes))
2522 tem = work -> typevec[t];
2523 if (need_comma && PRINT_ARG_TYPES)
2525 string_append (declp, ", ");
2527 if (!do_arg (work, &tem, &arg))
2531 if (PRINT_ARG_TYPES)
2533 string_appends (declp, &arg);
2535 string_delete (&arg);
2541 if (need_comma & PRINT_ARG_TYPES)
2543 string_append (declp, ", ");
2545 if (!do_arg (work, mangled, &arg))
2549 if (PRINT_ARG_TYPES)
2551 string_appends (declp, &arg);
2553 string_delete (&arg);
2558 if (**mangled == 'e')
2561 if (PRINT_ARG_TYPES)
2565 string_append (declp, ",");
2567 string_append (declp, "...");
2571 if (PRINT_ARG_TYPES)
2573 string_append (declp, ")");
2579 demangle_function_name (work, mangled, declp, scan)
2580 struct work_stuff *work;
2581 const char **mangled;
2590 string_appendn (declp, (*mangled), scan - (*mangled));
2591 string_need (declp, 1);
2592 *(declp -> p) = '\0';
2594 /* Consume the function name, including the "__" separating the name
2595 from the signature. We are guaranteed that SCAN points to the
2598 (*mangled) = scan + 2;
2600 if (LUCID_DEMANGLING || ARM_DEMANGLING)
2603 /* See if we have an ARM style constructor or destructor operator.
2604 If so, then just record it, clear the decl, and return.
2605 We can't build the actual constructor/destructor decl until later,
2606 when we recover the class name from the signature. */
2608 if (strcmp (declp -> b, "__ct") == 0)
2610 work -> constructor += 1;
2611 string_clear (declp);
2614 else if (strcmp (declp -> b, "__dt") == 0)
2616 work -> destructor += 1;
2617 string_clear (declp);
2622 if (declp->p - declp->b >= 3
2623 && declp->b[0] == 'o'
2624 && declp->b[1] == 'p'
2625 && strchr (cplus_markers, declp->b[2]) != NULL)
2627 /* see if it's an assignment expression */
2628 if (declp->p - declp->b >= 10 /* op$assign_ */
2629 && memcmp (declp->b + 3, "assign_", 7) == 0)
2631 for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++)
2633 len = declp->p - declp->b - 10;
2634 if (strlen (optable[i].in) == len
2635 && memcmp (optable[i].in, declp->b + 10, len) == 0)
2637 string_clear (declp);
2638 string_append (declp, "operator");
2639 string_append (declp, optable[i].out);
2640 string_append (declp, "=");
2647 for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++)
2649 int len = declp->p - declp->b - 3;
2650 if (strlen (optable[i].in) == len
2651 && memcmp (optable[i].in, declp->b + 3, len) == 0)
2653 string_clear (declp);
2654 string_append (declp, "operator");
2655 string_append (declp, optable[i].out);
2661 else if (declp->p - declp->b >= 5 && memcmp (declp->b, "type", 4) == 0
2662 && strchr (cplus_markers, declp->b[4]) != NULL)
2664 /* type conversion operator */
2666 if (do_type (work, &tem, &type))
2668 string_clear (declp);
2669 string_append (declp, "operator ");
2670 string_appends (declp, &type);
2671 string_delete (&type);
2674 else if (declp->b[0] == '_' && declp->b[1] == '_'
2675 && declp->b[2] == 'o' && declp->b[3] == 'p')
2678 /* type conversion operator. */
2680 if (do_type (work, &tem, &type))
2682 string_clear (declp);
2683 string_append (declp, "operator ");
2684 string_appends (declp, &type);
2685 string_delete (&type);
2688 else if (declp->b[0] == '_' && declp->b[1] == '_'
2689 && declp->b[2] >= 'a' && declp->b[2] <= 'z'
2690 && declp->b[3] >= 'a' && declp->b[3] <= 'z')
2692 if (declp->b[4] == '\0')
2695 for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++)
2697 if (strlen (optable[i].in) == 2
2698 && memcmp (optable[i].in, declp->b + 2, 2) == 0)
2700 string_clear (declp);
2701 string_append (declp, "operator");
2702 string_append (declp, optable[i].out);
2709 if (declp->b[2] == 'a' && declp->b[5] == '\0')
2712 for (i = 0; i < sizeof (optable) / sizeof (optable[0]); i++)
2714 if (strlen (optable[i].in) == 3
2715 && memcmp (optable[i].in, declp->b + 2, 3) == 0)
2717 string_clear (declp);
2718 string_append (declp, "operator");
2719 string_append (declp, optable[i].out);
2728 /* a mini string-handling package */
2743 s->p = s->b = xmalloc (n);
2746 else if (s->e - s->p < n)
2751 s->b = xrealloc (s->b, n);
2764 s->b = s->e = s->p = NULL;
2772 s->b = s->p = s->e = NULL;
2788 return (s->b == s->p);
2794 string_append (p, s)
2799 if (s == NULL || *s == '\0')
2803 memcpy (p->p, s, n);
2808 string_appends (p, s)
2817 memcpy (p->p, s->b, n);
2823 string_appendn (p, s, n)
2831 memcpy (p->p, s, n);
2837 string_prepend (p, s)
2841 if (s != NULL && *s != '\0')
2843 string_prependn (p, s, strlen (s));
2848 string_prepends (p, s)
2853 string_prependn (p, s->b, s->p - s->b);
2858 string_prependn (p, s, n)
2868 for (q = p->p - 1; q >= p->b; q--)
2872 memcpy (p->b, s, n);
2877 /* To generate a standalone demangler program for testing purposes,
2878 just compile and link this file with -DMAIN and libiberty.a. When
2879 run, it demangles each command line arg, or each stdin string, and
2880 prints the result on stdout. */
2886 static char *program_name;
2887 static char *program_version = VERSION;
2888 static int flags = DMGL_PARAMS | DMGL_ANSI;
2890 static void demangle_it PARAMS ((char *));
2891 static void usage PARAMS ((FILE *, int));
2892 static void fatal PARAMS ((char *));
2895 demangle_it (mangled_name)
2900 result = cplus_demangle (mangled_name, flags);
2903 printf ("%s\n", mangled_name);
2907 printf ("%s\n", result);
2913 usage (stream, status)
2918 Usage: %s [-_] [-n] [-s {gnu,lucid,arm}] [--strip-underscores]\n\
2919 [--no-strip-underscores] [--format={gnu,lucid,arm}]\n\
2920 [--help] [--version] [arg...]\n",
2925 #define MBUF_SIZE 512
2926 char mbuffer[MBUF_SIZE];
2928 /* Defined in the automatically-generated underscore.c. */
2929 extern int prepends_underscore;
2931 int strip_underscore = 0;
2933 static struct option long_options[] = {
2934 {"strip-underscores", no_argument, 0, '_'},
2935 {"format", required_argument, 0, 's'},
2936 {"help", no_argument, 0, 'h'},
2937 {"java", no_argument, 0, 'j'},
2938 {"no-strip-underscores", no_argument, 0, 'n'},
2939 {"version", no_argument, 0, 'v'},
2940 {0, no_argument, 0, 0}
2951 program_name = argv[0];
2953 strip_underscore = prepends_underscore;
2955 while ((c = getopt_long (argc, argv, "_ns:j", long_options, (int *) 0)) != EOF)
2965 strip_underscore = 0;
2968 printf ("GNU %s version %s\n", program_name, program_version);
2971 strip_underscore = 1;
2977 if (strcmp (optarg, "gnu") == 0)
2979 current_demangling_style = gnu_demangling;
2981 else if (strcmp (optarg, "lucid") == 0)
2983 current_demangling_style = lucid_demangling;
2985 else if (strcmp (optarg, "arm") == 0)
2987 current_demangling_style = arm_demangling;
2991 fprintf (stderr, "%s: unknown demangling style `%s'\n",
2992 program_name, optarg);
3001 for ( ; optind < argc; optind++)
3003 demangle_it (argv[optind]);
3012 /* Try to read a label. */
3013 while (c != EOF && (isalnum(c) || c == '_' || c == '$' || c == '.'))
3015 if (i >= MBUF_SIZE-1)
3024 if (mbuffer[0] == '.')
3026 if (strip_underscore && mbuffer[skip_first] == '_')
3034 result = cplus_demangle (mbuffer + skip_first, flags);
3037 if (mbuffer[0] == '.')
3039 fputs (result, stdout);
3043 fputs (mbuffer, stdout);
3060 fprintf (stderr, "%s: %s\n", program_name, str);
3071 register char *value = (char *) malloc (size);
3073 fatal ("virtual memory exhausted");
3078 xrealloc (ptr, size)
3082 register char *value = (char *) realloc (ptr, size);
3084 fatal ("virtual memory exhausted");