1 /* Demangler for GNU C++ 2 Copyright 1989, 1991, 1994, 1995, 1996, 1997, 1998, 1999, 3 2000, 2001, 2002, 2003, 2004, 2010 Free Software Foundation, Inc. 4 Written by James Clark (jjc@jclark.uucp) 5 Rewritten by Fred Fish (fnf@cygnus.com) for ARM and Lucid demangling 6 Modified by Satish Pai (pai@apollo.hp.com) for HP demangling 7 8 This file is part of the libiberty library. 9 Libiberty is free software; you can redistribute it and/or 10 modify it under the terms of the GNU Library General Public 11 License as published by the Free Software Foundation; either 12 version 2 of the License, or (at your option) any later version. 13 14 In addition to the permissions in the GNU Library General Public 15 License, the Free Software Foundation gives you unlimited permission 16 to link the compiled version of this file into combinations with other 17 programs, and to distribute those combinations without any restriction 18 coming from the use of this file. (The Library Public License 19 restrictions do apply in other respects; for example, they cover 20 modification of the file, and distribution when not linked into a 21 combined executable.) 22 23 Libiberty is distributed in the hope that it will be useful, 24 but WITHOUT ANY WARRANTY; without even the implied warranty of 25 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 26 Library General Public License for more details. 27 28 You should have received a copy of the GNU Library General Public 29 License along with libiberty; see the file COPYING.LIB. If 30 not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, 31 Boston, MA 02110-1301, USA. */ 32 33 /* This file exports two functions; cplus_mangle_opname and cplus_demangle. 34 35 This file imports xmalloc and xrealloc, which are like malloc and 36 realloc except that they generate a fatal error if there is no 37 available memory. */ 38 39 /* This file lives in both GCC and libiberty. When making changes, please 40 try not to break either. */ 41 42 #ifdef HAVE_CONFIG_H 43 #include "config.h" 44 #endif 45 46 #include "safe-ctype.h" 47 48 #include <sys/types.h> 49 #include <string.h> 50 #include <stdio.h> 51 52 #ifdef HAVE_STDLIB_H 53 #include <stdlib.h> 54 #else 55 void * malloc (); 56 void * realloc (); 57 #endif 58 59 #include <demangle.h> 60 #undef CURRENT_DEMANGLING_STYLE 61 #define CURRENT_DEMANGLING_STYLE work->options 62 63 #include "libiberty.h" 64 65 #define min(X,Y) (((X) < (Y)) ? (X) : (Y)) 66 67 /* A value at least one greater than the maximum number of characters 68 that will be output when using the `%d' format with `printf'. */ 69 #define INTBUF_SIZE 32 70 71 extern void fancy_abort (void) ATTRIBUTE_NORETURN; 72 73 /* In order to allow a single demangler executable to demangle strings 74 using various common values of CPLUS_MARKER, as well as any specific 75 one set at compile time, we maintain a string containing all the 76 commonly used ones, and check to see if the marker we are looking for 77 is in that string. CPLUS_MARKER is usually '$' on systems where the 78 assembler can deal with that. Where the assembler can't, it's usually 79 '.' (but on many systems '.' is used for other things). We put the 80 current defined CPLUS_MARKER first (which defaults to '$'), followed 81 by the next most common value, followed by an explicit '$' in case 82 the value of CPLUS_MARKER is not '$'. 83 84 We could avoid this if we could just get g++ to tell us what the actual 85 cplus marker character is as part of the debug information, perhaps by 86 ensuring that it is the character that terminates the gcc<n>_compiled 87 marker symbol (FIXME). */ 88 89 #if !defined (CPLUS_MARKER) 90 #define CPLUS_MARKER '$' 91 #endif 92 93 enum demangling_styles current_demangling_style = auto_demangling; 94 95 static char cplus_markers[] = { CPLUS_MARKER, '.', '$', '\0' }; 96 97 static char char_str[2] = { '\000', '\000' }; 98 99 void 100 set_cplus_marker_for_demangling (int ch) 101 { 102 cplus_markers[0] = ch; 103 } 104 105 typedef struct string /* Beware: these aren't required to be */ 106 { /* '\0' terminated. */ 107 char *b; /* pointer to start of string */ 108 char *p; /* pointer after last character */ 109 char *e; /* pointer after end of allocated space */ 110 } string; 111 112 /* Stuff that is shared between sub-routines. 113 Using a shared structure allows cplus_demangle to be reentrant. */ 114 115 struct work_stuff 116 { 117 int options; 118 char **typevec; 119 char **ktypevec; 120 char **btypevec; 121 int numk; 122 int numb; 123 int ksize; 124 int bsize; 125 int ntypes; 126 int typevec_size; 127 int constructor; 128 int destructor; 129 int static_type; /* A static member function */ 130 int temp_start; /* index in demangled to start of template args */ 131 int type_quals; /* The type qualifiers. */ 132 int dllimported; /* Symbol imported from a PE DLL */ 133 char **tmpl_argvec; /* Template function arguments. */ 134 int ntmpl_args; /* The number of template function arguments. */ 135 int forgetting_types; /* Nonzero if we are not remembering the types 136 we see. */ 137 string* previous_argument; /* The last function argument demangled. */ 138 int nrepeats; /* The number of times to repeat the previous 139 argument. */ 140 }; 141 142 #define PRINT_ANSI_QUALIFIERS (work -> options & DMGL_ANSI) 143 #define PRINT_ARG_TYPES (work -> options & DMGL_PARAMS) 144 145 static const struct optable 146 { 147 const char *const in; 148 const char *const out; 149 const int flags; 150 } optable[] = { 151 {"nw", " new", DMGL_ANSI}, /* new (1.92, ansi) */ 152 {"dl", " delete", DMGL_ANSI}, /* new (1.92, ansi) */ 153 {"new", " new", 0}, /* old (1.91, and 1.x) */ 154 {"delete", " delete", 0}, /* old (1.91, and 1.x) */ 155 {"vn", " new []", DMGL_ANSI}, /* GNU, pending ansi */ 156 {"vd", " delete []", DMGL_ANSI}, /* GNU, pending ansi */ 157 {"as", "=", DMGL_ANSI}, /* ansi */ 158 {"ne", "!=", DMGL_ANSI}, /* old, ansi */ 159 {"eq", "==", DMGL_ANSI}, /* old, ansi */ 160 {"ge", ">=", DMGL_ANSI}, /* old, ansi */ 161 {"gt", ">", DMGL_ANSI}, /* old, ansi */ 162 {"le", "<=", DMGL_ANSI}, /* old, ansi */ 163 {"lt", "<", DMGL_ANSI}, /* old, ansi */ 164 {"plus", "+", 0}, /* old */ 165 {"pl", "+", DMGL_ANSI}, /* ansi */ 166 {"apl", "+=", DMGL_ANSI}, /* ansi */ 167 {"minus", "-", 0}, /* old */ 168 {"mi", "-", DMGL_ANSI}, /* ansi */ 169 {"ami", "-=", DMGL_ANSI}, /* ansi */ 170 {"mult", "*", 0}, /* old */ 171 {"ml", "*", DMGL_ANSI}, /* ansi */ 172 {"amu", "*=", DMGL_ANSI}, /* ansi (ARM/Lucid) */ 173 {"aml", "*=", DMGL_ANSI}, /* ansi (GNU/g++) */ 174 {"convert", "+", 0}, /* old (unary +) */ 175 {"negate", "-", 0}, /* old (unary -) */ 176 {"trunc_mod", "%", 0}, /* old */ 177 {"md", "%", DMGL_ANSI}, /* ansi */ 178 {"amd", "%=", DMGL_ANSI}, /* ansi */ 179 {"trunc_div", "/", 0}, /* old */ 180 {"dv", "/", DMGL_ANSI}, /* ansi */ 181 {"adv", "/=", DMGL_ANSI}, /* ansi */ 182 {"truth_andif", "&&", 0}, /* old */ 183 {"aa", "&&", DMGL_ANSI}, /* ansi */ 184 {"truth_orif", "||", 0}, /* old */ 185 {"oo", "||", DMGL_ANSI}, /* ansi */ 186 {"truth_not", "!", 0}, /* old */ 187 {"nt", "!", DMGL_ANSI}, /* ansi */ 188 {"postincrement","++", 0}, /* old */ 189 {"pp", "++", DMGL_ANSI}, /* ansi */ 190 {"postdecrement","--", 0}, /* old */ 191 {"mm", "--", DMGL_ANSI}, /* ansi */ 192 {"bit_ior", "|", 0}, /* old */ 193 {"or", "|", DMGL_ANSI}, /* ansi */ 194 {"aor", "|=", DMGL_ANSI}, /* ansi */ 195 {"bit_xor", "^", 0}, /* old */ 196 {"er", "^", DMGL_ANSI}, /* ansi */ 197 {"aer", "^=", DMGL_ANSI}, /* ansi */ 198 {"bit_and", "&", 0}, /* old */ 199 {"ad", "&", DMGL_ANSI}, /* ansi */ 200 {"aad", "&=", DMGL_ANSI}, /* ansi */ 201 {"bit_not", "~", 0}, /* old */ 202 {"co", "~", DMGL_ANSI}, /* ansi */ 203 {"call", "()", 0}, /* old */ 204 {"cl", "()", DMGL_ANSI}, /* ansi */ 205 {"alshift", "<<", 0}, /* old */ 206 {"ls", "<<", DMGL_ANSI}, /* ansi */ 207 {"als", "<<=", DMGL_ANSI}, /* ansi */ 208 {"arshift", ">>", 0}, /* old */ 209 {"rs", ">>", DMGL_ANSI}, /* ansi */ 210 {"ars", ">>=", DMGL_ANSI}, /* ansi */ 211 {"component", "->", 0}, /* old */ 212 {"pt", "->", DMGL_ANSI}, /* ansi; Lucid C++ form */ 213 {"rf", "->", DMGL_ANSI}, /* ansi; ARM/GNU form */ 214 {"indirect", "*", 0}, /* old */ 215 {"method_call", "->()", 0}, /* old */ 216 {"addr", "&", 0}, /* old (unary &) */ 217 {"array", "[]", 0}, /* old */ 218 {"vc", "[]", DMGL_ANSI}, /* ansi */ 219 {"compound", ", ", 0}, /* old */ 220 {"cm", ", ", DMGL_ANSI}, /* ansi */ 221 {"cond", "?:", 0}, /* old */ 222 {"cn", "?:", DMGL_ANSI}, /* pseudo-ansi */ 223 {"max", ">?", 0}, /* old */ 224 {"mx", ">?", DMGL_ANSI}, /* pseudo-ansi */ 225 {"min", "<?", 0}, /* old */ 226 {"mn", "<?", DMGL_ANSI}, /* pseudo-ansi */ 227 {"nop", "", 0}, /* old (for operator=) */ 228 {"rm", "->*", DMGL_ANSI}, /* ansi */ 229 {"sz", "sizeof ", DMGL_ANSI} /* pseudo-ansi */ 230 }; 231 232 /* These values are used to indicate the various type varieties. 233 They are all non-zero so that they can be used as `success' 234 values. */ 235 typedef enum type_kind_t 236 { 237 tk_none, 238 tk_pointer, 239 tk_reference, 240 tk_integral, 241 tk_bool, 242 tk_char, 243 tk_real 244 } type_kind_t; 245 246 const struct demangler_engine libiberty_demanglers[] = 247 { 248 { 249 NO_DEMANGLING_STYLE_STRING, 250 no_demangling, 251 "Demangling disabled" 252 } 253 , 254 { 255 AUTO_DEMANGLING_STYLE_STRING, 256 auto_demangling, 257 "Automatic selection based on executable" 258 } 259 , 260 { 261 GNU_DEMANGLING_STYLE_STRING, 262 gnu_demangling, 263 "GNU (g++) style demangling" 264 } 265 , 266 { 267 LUCID_DEMANGLING_STYLE_STRING, 268 lucid_demangling, 269 "Lucid (lcc) style demangling" 270 } 271 , 272 { 273 ARM_DEMANGLING_STYLE_STRING, 274 arm_demangling, 275 "ARM style demangling" 276 } 277 , 278 { 279 HP_DEMANGLING_STYLE_STRING, 280 hp_demangling, 281 "HP (aCC) style demangling" 282 } 283 , 284 { 285 EDG_DEMANGLING_STYLE_STRING, 286 edg_demangling, 287 "EDG style demangling" 288 } 289 , 290 { 291 GNU_V3_DEMANGLING_STYLE_STRING, 292 gnu_v3_demangling, 293 "GNU (g++) V3 ABI-style demangling" 294 } 295 , 296 { 297 JAVA_DEMANGLING_STYLE_STRING, 298 java_demangling, 299 "Java style demangling" 300 } 301 , 302 { 303 GNAT_DEMANGLING_STYLE_STRING, 304 gnat_demangling, 305 "GNAT style demangling" 306 } 307 , 308 { 309 DLANG_DEMANGLING_STYLE_STRING, 310 dlang_demangling, 311 "DLANG style demangling" 312 } 313 , 314 { 315 NULL, unknown_demangling, NULL 316 } 317 }; 318 319 #define STRING_EMPTY(str) ((str) -> b == (str) -> p) 320 #define APPEND_BLANK(str) {if (!STRING_EMPTY(str)) \ 321 string_append(str, " ");} 322 #define LEN_STRING(str) ( (STRING_EMPTY(str))?0:((str)->p - (str)->b)) 323 324 /* The scope separator appropriate for the language being demangled. */ 325 326 #define SCOPE_STRING(work) ((work->options & DMGL_JAVA) ? "." : "::") 327 328 #define ARM_VTABLE_STRING "__vtbl__" /* Lucid/ARM virtual table prefix */ 329 #define ARM_VTABLE_STRLEN 8 /* strlen (ARM_VTABLE_STRING) */ 330 331 /* Prototypes for local functions */ 332 333 static void delete_work_stuff (struct work_stuff *); 334 335 static void delete_non_B_K_work_stuff (struct work_stuff *); 336 337 static char *mop_up (struct work_stuff *, string *, int); 338 339 static void squangle_mop_up (struct work_stuff *); 340 341 static void work_stuff_copy_to_from (struct work_stuff *, struct work_stuff *); 342 343 #if 0 344 static int 345 demangle_method_args (struct work_stuff *, const char **, string *); 346 #endif 347 348 static char * 349 internal_cplus_demangle (struct work_stuff *, const char *); 350 351 static int 352 demangle_template_template_parm (struct work_stuff *work, 353 const char **, string *); 354 355 static int 356 demangle_template (struct work_stuff *work, const char **, string *, 357 string *, int, int); 358 359 static int 360 arm_pt (struct work_stuff *, const char *, int, const char **, 361 const char **); 362 363 static int 364 demangle_class_name (struct work_stuff *, const char **, string *); 365 366 static int 367 demangle_qualified (struct work_stuff *, const char **, string *, 368 int, int); 369 370 static int demangle_class (struct work_stuff *, const char **, string *); 371 372 static int demangle_fund_type (struct work_stuff *, const char **, string *); 373 374 static int demangle_signature (struct work_stuff *, const char **, string *); 375 376 static int demangle_prefix (struct work_stuff *, const char **, string *); 377 378 static int gnu_special (struct work_stuff *, const char **, string *); 379 380 static int arm_special (const char **, string *); 381 382 static void string_need (string *, int); 383 384 static void string_delete (string *); 385 386 static void 387 string_init (string *); 388 389 static void string_clear (string *); 390 391 #if 0 392 static int string_empty (string *); 393 #endif 394 395 static void string_append (string *, const char *); 396 397 static void string_appends (string *, string *); 398 399 static void string_appendn (string *, const char *, int); 400 401 static void string_prepend (string *, const char *); 402 403 static void string_prependn (string *, const char *, int); 404 405 static void string_append_template_idx (string *, int); 406 407 static int get_count (const char **, int *); 408 409 static int consume_count (const char **); 410 411 static int consume_count_with_underscores (const char**); 412 413 static int demangle_args (struct work_stuff *, const char **, string *); 414 415 static int demangle_nested_args (struct work_stuff*, const char**, string*); 416 417 static int do_type (struct work_stuff *, const char **, string *); 418 419 static int do_arg (struct work_stuff *, const char **, string *); 420 421 static int 422 demangle_function_name (struct work_stuff *, const char **, string *, 423 const char *); 424 425 static int 426 iterate_demangle_function (struct work_stuff *, 427 const char **, string *, const char *); 428 429 static void remember_type (struct work_stuff *, const char *, int); 430 431 static void remember_Btype (struct work_stuff *, const char *, int, int); 432 433 static int register_Btype (struct work_stuff *); 434 435 static void remember_Ktype (struct work_stuff *, const char *, int); 436 437 static void forget_types (struct work_stuff *); 438 439 static void forget_B_and_K_types (struct work_stuff *); 440 441 static void string_prepends (string *, string *); 442 443 static int 444 demangle_template_value_parm (struct work_stuff*, const char**, 445 string*, type_kind_t); 446 447 static int 448 do_hpacc_template_const_value (struct work_stuff *, const char **, string *); 449 450 static int 451 do_hpacc_template_literal (struct work_stuff *, const char **, string *); 452 453 static int snarf_numeric_literal (const char **, string *); 454 455 /* There is a TYPE_QUAL value for each type qualifier. They can be 456 combined by bitwise-or to form the complete set of qualifiers for a 457 type. */ 458 459 #define TYPE_UNQUALIFIED 0x0 460 #define TYPE_QUAL_CONST 0x1 461 #define TYPE_QUAL_VOLATILE 0x2 462 #define TYPE_QUAL_RESTRICT 0x4 463 464 static int code_for_qualifier (int); 465 466 static const char* qualifier_string (int); 467 468 static const char* demangle_qualifier (int); 469 470 static int demangle_expression (struct work_stuff *, const char **, string *, 471 type_kind_t); 472 473 static int 474 demangle_integral_value (struct work_stuff *, const char **, string *); 475 476 static int 477 demangle_real_value (struct work_stuff *, const char **, string *); 478 479 static void 480 demangle_arm_hp_template (struct work_stuff *, const char **, int, string *); 481 482 static void 483 recursively_demangle (struct work_stuff *, const char **, string *, int); 484 485 /* Translate count to integer, consuming tokens in the process. 486 Conversion terminates on the first non-digit character. 487 488 Trying to consume something that isn't a count results in no 489 consumption of input and a return of -1. 490 491 Overflow consumes the rest of the digits, and returns -1. */ 492 493 static int 494 consume_count (const char **type) 495 { 496 int count = 0; 497 498 if (! ISDIGIT ((unsigned char)**type)) 499 return -1; 500 501 while (ISDIGIT ((unsigned char)**type)) 502 { 503 count *= 10; 504 505 /* Check for overflow. 506 We assume that count is represented using two's-complement; 507 no power of two is divisible by ten, so if an overflow occurs 508 when multiplying by ten, the result will not be a multiple of 509 ten. */ 510 if ((count % 10) != 0) 511 { 512 while (ISDIGIT ((unsigned char) **type)) 513 (*type)++; 514 return -1; 515 } 516 517 count += **type - '0'; 518 (*type)++; 519 } 520 521 if (count < 0) 522 count = -1; 523 524 return (count); 525 } 526 527 528 /* Like consume_count, but for counts that are preceded and followed 529 by '_' if they are greater than 10. Also, -1 is returned for 530 failure, since 0 can be a valid value. */ 531 532 static int 533 consume_count_with_underscores (const char **mangled) 534 { 535 int idx; 536 537 if (**mangled == '_') 538 { 539 (*mangled)++; 540 if (!ISDIGIT ((unsigned char)**mangled)) 541 return -1; 542 543 idx = consume_count (mangled); 544 if (**mangled != '_') 545 /* The trailing underscore was missing. */ 546 return -1; 547 548 (*mangled)++; 549 } 550 else 551 { 552 if (**mangled < '0' || **mangled > '9') 553 return -1; 554 555 idx = **mangled - '0'; 556 (*mangled)++; 557 } 558 559 return idx; 560 } 561 562 /* C is the code for a type-qualifier. Return the TYPE_QUAL 563 corresponding to this qualifier. */ 564 565 static int 566 code_for_qualifier (int c) 567 { 568 switch (c) 569 { 570 case 'C': 571 return TYPE_QUAL_CONST; 572 573 case 'V': 574 return TYPE_QUAL_VOLATILE; 575 576 case 'u': 577 return TYPE_QUAL_RESTRICT; 578 579 default: 580 break; 581 } 582 583 /* C was an invalid qualifier. */ 584 abort (); 585 } 586 587 /* Return the string corresponding to the qualifiers given by 588 TYPE_QUALS. */ 589 590 static const char* 591 qualifier_string (int type_quals) 592 { 593 switch (type_quals) 594 { 595 case TYPE_UNQUALIFIED: 596 return ""; 597 598 case TYPE_QUAL_CONST: 599 return "const"; 600 601 case TYPE_QUAL_VOLATILE: 602 return "volatile"; 603 604 case TYPE_QUAL_RESTRICT: 605 return "__restrict"; 606 607 case TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE: 608 return "const volatile"; 609 610 case TYPE_QUAL_CONST | TYPE_QUAL_RESTRICT: 611 return "const __restrict"; 612 613 case TYPE_QUAL_VOLATILE | TYPE_QUAL_RESTRICT: 614 return "volatile __restrict"; 615 616 case TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE | TYPE_QUAL_RESTRICT: 617 return "const volatile __restrict"; 618 619 default: 620 break; 621 } 622 623 /* TYPE_QUALS was an invalid qualifier set. */ 624 abort (); 625 } 626 627 /* C is the code for a type-qualifier. Return the string 628 corresponding to this qualifier. This function should only be 629 called with a valid qualifier code. */ 630 631 static const char* 632 demangle_qualifier (int c) 633 { 634 return qualifier_string (code_for_qualifier (c)); 635 } 636 637 int 638 cplus_demangle_opname (const char *opname, char *result, int options) 639 { 640 int len, len1, ret; 641 string type; 642 struct work_stuff work[1]; 643 const char *tem; 644 645 len = strlen(opname); 646 result[0] = '\0'; 647 ret = 0; 648 memset ((char *) work, 0, sizeof (work)); 649 work->options = options; 650 651 if (opname[0] == '_' && opname[1] == '_' 652 && opname[2] == 'o' && opname[3] == 'p') 653 { 654 /* ANSI. */ 655 /* type conversion operator. */ 656 tem = opname + 4; 657 if (do_type (work, &tem, &type)) 658 { 659 strcat (result, "operator "); 660 strncat (result, type.b, type.p - type.b); 661 string_delete (&type); 662 ret = 1; 663 } 664 } 665 else if (opname[0] == '_' && opname[1] == '_' 666 && ISLOWER((unsigned char)opname[2]) 667 && ISLOWER((unsigned char)opname[3])) 668 { 669 if (opname[4] == '\0') 670 { 671 /* Operator. */ 672 size_t i; 673 for (i = 0; i < ARRAY_SIZE (optable); i++) 674 { 675 if (strlen (optable[i].in) == 2 676 && memcmp (optable[i].in, opname + 2, 2) == 0) 677 { 678 strcat (result, "operator"); 679 strcat (result, optable[i].out); 680 ret = 1; 681 break; 682 } 683 } 684 } 685 else 686 { 687 if (opname[2] == 'a' && opname[5] == '\0') 688 { 689 /* Assignment. */ 690 size_t i; 691 for (i = 0; i < ARRAY_SIZE (optable); i++) 692 { 693 if (strlen (optable[i].in) == 3 694 && memcmp (optable[i].in, opname + 2, 3) == 0) 695 { 696 strcat (result, "operator"); 697 strcat (result, optable[i].out); 698 ret = 1; 699 break; 700 } 701 } 702 } 703 } 704 } 705 else if (len >= 3 706 && opname[0] == 'o' 707 && opname[1] == 'p' 708 && strchr (cplus_markers, opname[2]) != NULL) 709 { 710 /* see if it's an assignment expression */ 711 if (len >= 10 /* op$assign_ */ 712 && memcmp (opname + 3, "assign_", 7) == 0) 713 { 714 size_t i; 715 for (i = 0; i < ARRAY_SIZE (optable); i++) 716 { 717 len1 = len - 10; 718 if ((int) strlen (optable[i].in) == len1 719 && memcmp (optable[i].in, opname + 10, len1) == 0) 720 { 721 strcat (result, "operator"); 722 strcat (result, optable[i].out); 723 strcat (result, "="); 724 ret = 1; 725 break; 726 } 727 } 728 } 729 else 730 { 731 size_t i; 732 for (i = 0; i < ARRAY_SIZE (optable); i++) 733 { 734 len1 = len - 3; 735 if ((int) strlen (optable[i].in) == len1 736 && memcmp (optable[i].in, opname + 3, len1) == 0) 737 { 738 strcat (result, "operator"); 739 strcat (result, optable[i].out); 740 ret = 1; 741 break; 742 } 743 } 744 } 745 } 746 else if (len >= 5 && memcmp (opname, "type", 4) == 0 747 && strchr (cplus_markers, opname[4]) != NULL) 748 { 749 /* type conversion operator */ 750 tem = opname + 5; 751 if (do_type (work, &tem, &type)) 752 { 753 strcat (result, "operator "); 754 strncat (result, type.b, type.p - type.b); 755 string_delete (&type); 756 ret = 1; 757 } 758 } 759 squangle_mop_up (work); 760 return ret; 761 762 } 763 764 /* Takes operator name as e.g. "++" and returns mangled 765 operator name (e.g. "postincrement_expr"), or NULL if not found. 766 767 If OPTIONS & DMGL_ANSI == 1, return the ANSI name; 768 if OPTIONS & DMGL_ANSI == 0, return the old GNU name. */ 769 770 const char * 771 cplus_mangle_opname (const char *opname, int options) 772 { 773 size_t i; 774 int len; 775 776 len = strlen (opname); 777 for (i = 0; i < ARRAY_SIZE (optable); i++) 778 { 779 if ((int) strlen (optable[i].out) == len 780 && (options & DMGL_ANSI) == (optable[i].flags & DMGL_ANSI) 781 && memcmp (optable[i].out, opname, len) == 0) 782 return optable[i].in; 783 } 784 return (0); 785 } 786 787 /* Add a routine to set the demangling style to be sure it is valid and 788 allow for any demangler initialization that maybe necessary. */ 789 790 enum demangling_styles 791 cplus_demangle_set_style (enum demangling_styles style) 792 { 793 const struct demangler_engine *demangler = libiberty_demanglers; 794 795 for (; demangler->demangling_style != unknown_demangling; ++demangler) 796 if (style == demangler->demangling_style) 797 { 798 current_demangling_style = style; 799 return current_demangling_style; 800 } 801 802 return unknown_demangling; 803 } 804 805 /* Do string name to style translation */ 806 807 enum demangling_styles 808 cplus_demangle_name_to_style (const char *name) 809 { 810 const struct demangler_engine *demangler = libiberty_demanglers; 811 812 for (; demangler->demangling_style != unknown_demangling; ++demangler) 813 if (strcmp (name, demangler->demangling_style_name) == 0) 814 return demangler->demangling_style; 815 816 return unknown_demangling; 817 } 818 819 /* char *cplus_demangle (const char *mangled, int options) 820 821 If MANGLED is a mangled function name produced by GNU C++, then 822 a pointer to a @code{malloc}ed string giving a C++ representation 823 of the name will be returned; otherwise NULL will be returned. 824 It is the caller's responsibility to free the string which 825 is returned. 826 827 The OPTIONS arg may contain one or more of the following bits: 828 829 DMGL_ANSI ANSI qualifiers such as `const' and `void' are 830 included. 831 DMGL_PARAMS Function parameters are included. 832 833 For example, 834 835 cplus_demangle ("foo__1Ai", DMGL_PARAMS) => "A::foo(int)" 836 cplus_demangle ("foo__1Ai", DMGL_PARAMS | DMGL_ANSI) => "A::foo(int)" 837 cplus_demangle ("foo__1Ai", 0) => "A::foo" 838 839 cplus_demangle ("foo__1Afe", DMGL_PARAMS) => "A::foo(float,...)" 840 cplus_demangle ("foo__1Afe", DMGL_PARAMS | DMGL_ANSI)=> "A::foo(float,...)" 841 cplus_demangle ("foo__1Afe", 0) => "A::foo" 842 843 Note that any leading underscores, or other such characters prepended by 844 the compilation system, are presumed to have already been stripped from 845 MANGLED. */ 846 847 char * 848 cplus_demangle (const char *mangled, int options) 849 { 850 char *ret; 851 struct work_stuff work[1]; 852 853 if (current_demangling_style == no_demangling) 854 return xstrdup (mangled); 855 856 memset ((char *) work, 0, sizeof (work)); 857 work->options = options; 858 if ((work->options & DMGL_STYLE_MASK) == 0) 859 work->options |= (int) current_demangling_style & DMGL_STYLE_MASK; 860 861 /* The V3 ABI demangling is implemented elsewhere. */ 862 if (GNU_V3_DEMANGLING || AUTO_DEMANGLING) 863 { 864 ret = cplus_demangle_v3 (mangled, work->options); 865 if (ret || GNU_V3_DEMANGLING) 866 return ret; 867 } 868 869 if (JAVA_DEMANGLING) 870 { 871 ret = java_demangle_v3 (mangled); 872 if (ret) 873 return ret; 874 } 875 876 if (GNAT_DEMANGLING) 877 return ada_demangle (mangled, options); 878 879 if (DLANG_DEMANGLING) 880 { 881 ret = dlang_demangle (mangled, options); 882 if (ret) 883 return ret; 884 } 885 886 ret = internal_cplus_demangle (work, mangled); 887 squangle_mop_up (work); 888 return (ret); 889 } 890 891 /* Demangle ada names. The encoding is documented in gcc/ada/exp_dbug.ads. */ 892 893 char * 894 ada_demangle (const char *mangled, int option ATTRIBUTE_UNUSED) 895 { 896 int len0; 897 const char* p; 898 char *d; 899 char *demangled; 900 901 /* Discard leading _ada_, which is used for library level subprograms. */ 902 if (strncmp (mangled, "_ada_", 5) == 0) 903 mangled += 5; 904 905 /* All ada unit names are lower-case. */ 906 if (!ISLOWER (mangled[0])) 907 goto unknown; 908 909 /* Most of the demangling will trivially remove chars. Operator names 910 may add one char but because they are always preceeded by '__' which is 911 replaced by '.', they eventually never expand the size. 912 A few special names such as '___elabs' add a few chars (at most 7), but 913 they occur only once. */ 914 len0 = strlen (mangled) + 7 + 1; 915 demangled = XNEWVEC (char, len0); 916 917 d = demangled; 918 p = mangled; 919 while (1) 920 { 921 /* An entity names is expected. */ 922 if (ISLOWER (*p)) 923 { 924 /* An identifier, which is always lower case. */ 925 do 926 *d++ = *p++; 927 while (ISLOWER(*p) || ISDIGIT (*p) 928 || (p[0] == '_' && (ISLOWER (p[1]) || ISDIGIT (p[1])))); 929 } 930 else if (p[0] == 'O') 931 { 932 /* An operator name. */ 933 static const char * const operators[][2] = 934 {{"Oabs", "abs"}, {"Oand", "and"}, {"Omod", "mod"}, 935 {"Onot", "not"}, {"Oor", "or"}, {"Orem", "rem"}, 936 {"Oxor", "xor"}, {"Oeq", "="}, {"One", "/="}, 937 {"Olt", "<"}, {"Ole", "<="}, {"Ogt", ">"}, 938 {"Oge", ">="}, {"Oadd", "+"}, {"Osubtract", "-"}, 939 {"Oconcat", "&"}, {"Omultiply", "*"}, {"Odivide", "/"}, 940 {"Oexpon", "**"}, {NULL, NULL}}; 941 int k; 942 943 for (k = 0; operators[k][0] != NULL; k++) 944 { 945 size_t slen = strlen (operators[k][0]); 946 if (strncmp (p, operators[k][0], slen) == 0) 947 { 948 p += slen; 949 slen = strlen (operators[k][1]); 950 *d++ = '"'; 951 memcpy (d, operators[k][1], slen); 952 d += slen; 953 *d++ = '"'; 954 break; 955 } 956 } 957 /* Operator not found. */ 958 if (operators[k][0] == NULL) 959 goto unknown; 960 } 961 else 962 { 963 /* Not a GNAT encoding. */ 964 goto unknown; 965 } 966 967 /* The name can be directly followed by some uppercase letters. */ 968 if (p[0] == 'T' && p[1] == 'K') 969 { 970 /* Task stuff. */ 971 if (p[2] == 'B' && p[3] == 0) 972 { 973 /* Subprogram for task body. */ 974 break; 975 } 976 else if (p[2] == '_' && p[3] == '_') 977 { 978 /* Inner declarations in a task. */ 979 p += 4; 980 *d++ = '.'; 981 continue; 982 } 983 else 984 goto unknown; 985 } 986 if (p[0] == 'E' && p[1] == 0) 987 { 988 /* Exception name. */ 989 goto unknown; 990 } 991 if ((p[0] == 'P' || p[0] == 'N') && p[1] == 0) 992 { 993 /* Protected type subprogram. */ 994 break; 995 } 996 if ((*p == 'N' || *p == 'S') && p[1] == 0) 997 { 998 /* Enumerated type name table. */ 999 goto unknown; 1000 } 1001 if (p[0] == 'X') 1002 { 1003 /* Body nested. */ 1004 p++; 1005 while (p[0] == 'n' || p[0] == 'b') 1006 p++; 1007 } 1008 if (p[0] == 'S' && p[1] != 0 && (p[2] == '_' || p[2] == 0)) 1009 { 1010 /* Stream operations. */ 1011 const char *name; 1012 switch (p[1]) 1013 { 1014 case 'R': 1015 name = "'Read"; 1016 break; 1017 case 'W': 1018 name = "'Write"; 1019 break; 1020 case 'I': 1021 name = "'Input"; 1022 break; 1023 case 'O': 1024 name = "'Output"; 1025 break; 1026 default: 1027 goto unknown; 1028 } 1029 p += 2; 1030 strcpy (d, name); 1031 d += strlen (name); 1032 } 1033 else if (p[0] == 'D') 1034 { 1035 /* Controlled type operation. */ 1036 const char *name; 1037 switch (p[1]) 1038 { 1039 case 'F': 1040 name = ".Finalize"; 1041 break; 1042 case 'A': 1043 name = ".Adjust"; 1044 break; 1045 default: 1046 goto unknown; 1047 } 1048 strcpy (d, name); 1049 d += strlen (name); 1050 break; 1051 } 1052 1053 if (p[0] == '_') 1054 { 1055 /* Separator. */ 1056 if (p[1] == '_') 1057 { 1058 /* Standard separator. Handled first. */ 1059 p += 2; 1060 1061 if (ISDIGIT (*p)) 1062 { 1063 /* Overloading number. */ 1064 do 1065 p++; 1066 while (ISDIGIT (*p) || (p[0] == '_' && ISDIGIT (p[1]))); 1067 if (*p == 'X') 1068 { 1069 p++; 1070 while (p[0] == 'n' || p[0] == 'b') 1071 p++; 1072 } 1073 } 1074 else if (p[0] == '_' && p[1] != '_') 1075 { 1076 /* Special names. */ 1077 static const char * const special[][2] = { 1078 { "_elabb", "'Elab_Body" }, 1079 { "_elabs", "'Elab_Spec" }, 1080 { "_size", "'Size" }, 1081 { "_alignment", "'Alignment" }, 1082 { "_assign", ".\":=\"" }, 1083 { NULL, NULL } 1084 }; 1085 int k; 1086 1087 for (k = 0; special[k][0] != NULL; k++) 1088 { 1089 size_t slen = strlen (special[k][0]); 1090 if (strncmp (p, special[k][0], slen) == 0) 1091 { 1092 p += slen; 1093 slen = strlen (special[k][1]); 1094 memcpy (d, special[k][1], slen); 1095 d += slen; 1096 break; 1097 } 1098 } 1099 if (special[k][0] != NULL) 1100 break; 1101 else 1102 goto unknown; 1103 } 1104 else 1105 { 1106 *d++ = '.'; 1107 continue; 1108 } 1109 } 1110 else if (p[1] == 'B' || p[1] == 'E') 1111 { 1112 /* Entry Body or barrier Evaluation. */ 1113 p += 2; 1114 while (ISDIGIT (*p)) 1115 p++; 1116 if (p[0] == 's' && p[1] == 0) 1117 break; 1118 else 1119 goto unknown; 1120 } 1121 else 1122 goto unknown; 1123 } 1124 1125 if (p[0] == '.' && ISDIGIT (p[1])) 1126 { 1127 /* Nested subprogram. */ 1128 p += 2; 1129 while (ISDIGIT (*p)) 1130 p++; 1131 } 1132 if (*p == 0) 1133 { 1134 /* End of mangled name. */ 1135 break; 1136 } 1137 else 1138 goto unknown; 1139 } 1140 *d = 0; 1141 return demangled; 1142 1143 unknown: 1144 len0 = strlen (mangled); 1145 demangled = XNEWVEC (char, len0 + 3); 1146 1147 if (mangled[0] == '<') 1148 strcpy (demangled, mangled); 1149 else 1150 sprintf (demangled, "<%s>", mangled); 1151 1152 return demangled; 1153 } 1154 1155 /* This function performs most of what cplus_demangle use to do, but 1156 to be able to demangle a name with a B, K or n code, we need to 1157 have a longer term memory of what types have been seen. The original 1158 now initializes and cleans up the squangle code info, while internal 1159 calls go directly to this routine to avoid resetting that info. */ 1160 1161 static char * 1162 internal_cplus_demangle (struct work_stuff *work, const char *mangled) 1163 { 1164 1165 string decl; 1166 int success = 0; 1167 char *demangled = NULL; 1168 int s1, s2, s3, s4; 1169 s1 = work->constructor; 1170 s2 = work->destructor; 1171 s3 = work->static_type; 1172 s4 = work->type_quals; 1173 work->constructor = work->destructor = 0; 1174 work->type_quals = TYPE_UNQUALIFIED; 1175 work->dllimported = 0; 1176 1177 if ((mangled != NULL) && (*mangled != '\0')) 1178 { 1179 string_init (&decl); 1180 1181 /* First check to see if gnu style demangling is active and if the 1182 string to be demangled contains a CPLUS_MARKER. If so, attempt to 1183 recognize one of the gnu special forms rather than looking for a 1184 standard prefix. In particular, don't worry about whether there 1185 is a "__" string in the mangled string. Consider "_$_5__foo" for 1186 example. */ 1187 1188 if ((AUTO_DEMANGLING || GNU_DEMANGLING)) 1189 { 1190 success = gnu_special (work, &mangled, &decl); 1191 if (!success) 1192 { 1193 delete_work_stuff (work); 1194 string_delete (&decl); 1195 } 1196 } 1197 if (!success) 1198 { 1199 success = demangle_prefix (work, &mangled, &decl); 1200 } 1201 if (success && (*mangled != '\0')) 1202 { 1203 success = demangle_signature (work, &mangled, &decl); 1204 } 1205 if (work->constructor == 2) 1206 { 1207 string_prepend (&decl, "global constructors keyed to "); 1208 work->constructor = 0; 1209 } 1210 else if (work->destructor == 2) 1211 { 1212 string_prepend (&decl, "global destructors keyed to "); 1213 work->destructor = 0; 1214 } 1215 else if (work->dllimported == 1) 1216 { 1217 string_prepend (&decl, "import stub for "); 1218 work->dllimported = 0; 1219 } 1220 demangled = mop_up (work, &decl, success); 1221 } 1222 work->constructor = s1; 1223 work->destructor = s2; 1224 work->static_type = s3; 1225 work->type_quals = s4; 1226 return demangled; 1227 } 1228 1229 1230 /* Clear out and squangling related storage */ 1231 static void 1232 squangle_mop_up (struct work_stuff *work) 1233 { 1234 /* clean up the B and K type mangling types. */ 1235 forget_B_and_K_types (work); 1236 if (work -> btypevec != NULL) 1237 { 1238 free ((char *) work -> btypevec); 1239 work->btypevec = NULL; 1240 } 1241 if (work -> ktypevec != NULL) 1242 { 1243 free ((char *) work -> ktypevec); 1244 work->ktypevec = NULL; 1245 } 1246 } 1247 1248 1249 /* Copy the work state and storage. */ 1250 1251 static void 1252 work_stuff_copy_to_from (struct work_stuff *to, struct work_stuff *from) 1253 { 1254 int i; 1255 1256 delete_work_stuff (to); 1257 1258 /* Shallow-copy scalars. */ 1259 memcpy (to, from, sizeof (*to)); 1260 1261 /* Deep-copy dynamic storage. */ 1262 if (from->typevec_size) 1263 to->typevec = XNEWVEC (char *, from->typevec_size); 1264 1265 for (i = 0; i < from->ntypes; i++) 1266 { 1267 int len = strlen (from->typevec[i]) + 1; 1268 1269 to->typevec[i] = XNEWVEC (char, len); 1270 memcpy (to->typevec[i], from->typevec[i], len); 1271 } 1272 1273 if (from->ksize) 1274 to->ktypevec = XNEWVEC (char *, from->ksize); 1275 1276 for (i = 0; i < from->numk; i++) 1277 { 1278 int len = strlen (from->ktypevec[i]) + 1; 1279 1280 to->ktypevec[i] = XNEWVEC (char, len); 1281 memcpy (to->ktypevec[i], from->ktypevec[i], len); 1282 } 1283 1284 if (from->bsize) 1285 to->btypevec = XNEWVEC (char *, from->bsize); 1286 1287 for (i = 0; i < from->numb; i++) 1288 { 1289 int len = strlen (from->btypevec[i]) + 1; 1290 1291 to->btypevec[i] = XNEWVEC (char , len); 1292 memcpy (to->btypevec[i], from->btypevec[i], len); 1293 } 1294 1295 if (from->ntmpl_args) 1296 to->tmpl_argvec = XNEWVEC (char *, from->ntmpl_args); 1297 1298 for (i = 0; i < from->ntmpl_args; i++) 1299 { 1300 int len = strlen (from->tmpl_argvec[i]) + 1; 1301 1302 to->tmpl_argvec[i] = XNEWVEC (char, len); 1303 memcpy (to->tmpl_argvec[i], from->tmpl_argvec[i], len); 1304 } 1305 1306 if (from->previous_argument) 1307 { 1308 to->previous_argument = XNEW (string); 1309 string_init (to->previous_argument); 1310 string_appends (to->previous_argument, from->previous_argument); 1311 } 1312 } 1313 1314 1315 /* Delete dynamic stuff in work_stuff that is not to be re-used. */ 1316 1317 static void 1318 delete_non_B_K_work_stuff (struct work_stuff *work) 1319 { 1320 /* Discard the remembered types, if any. */ 1321 1322 forget_types (work); 1323 if (work -> typevec != NULL) 1324 { 1325 free ((char *) work -> typevec); 1326 work -> typevec = NULL; 1327 work -> typevec_size = 0; 1328 } 1329 if (work->tmpl_argvec) 1330 { 1331 int i; 1332 1333 for (i = 0; i < work->ntmpl_args; i++) 1334 free ((char*) work->tmpl_argvec[i]); 1335 1336 free ((char*) work->tmpl_argvec); 1337 work->tmpl_argvec = NULL; 1338 } 1339 if (work->previous_argument) 1340 { 1341 string_delete (work->previous_argument); 1342 free ((char*) work->previous_argument); 1343 work->previous_argument = NULL; 1344 } 1345 } 1346 1347 1348 /* Delete all dynamic storage in work_stuff. */ 1349 static void 1350 delete_work_stuff (struct work_stuff *work) 1351 { 1352 delete_non_B_K_work_stuff (work); 1353 squangle_mop_up (work); 1354 } 1355 1356 1357 /* Clear out any mangled storage */ 1358 1359 static char * 1360 mop_up (struct work_stuff *work, string *declp, int success) 1361 { 1362 char *demangled = NULL; 1363 1364 delete_non_B_K_work_stuff (work); 1365 1366 /* If demangling was successful, ensure that the demangled string is null 1367 terminated and return it. Otherwise, free the demangling decl. */ 1368 1369 if (!success) 1370 { 1371 string_delete (declp); 1372 } 1373 else 1374 { 1375 string_appendn (declp, "", 1); 1376 demangled = declp->b; 1377 } 1378 return (demangled); 1379 } 1380 1381 /* 1382 1383 LOCAL FUNCTION 1384 1385 demangle_signature -- demangle the signature part of a mangled name 1386 1387 SYNOPSIS 1388 1389 static int 1390 demangle_signature (struct work_stuff *work, const char **mangled, 1391 string *declp); 1392 1393 DESCRIPTION 1394 1395 Consume and demangle the signature portion of the mangled name. 1396 1397 DECLP is the string where demangled output is being built. At 1398 entry it contains the demangled root name from the mangled name 1399 prefix. I.E. either a demangled operator name or the root function 1400 name. In some special cases, it may contain nothing. 1401 1402 *MANGLED points to the current unconsumed location in the mangled 1403 name. As tokens are consumed and demangling is performed, the 1404 pointer is updated to continuously point at the next token to 1405 be consumed. 1406 1407 Demangling GNU style mangled names is nasty because there is no 1408 explicit token that marks the start of the outermost function 1409 argument list. */ 1410 1411 static int 1412 demangle_signature (struct work_stuff *work, 1413 const char **mangled, string *declp) 1414 { 1415 int success = 1; 1416 int func_done = 0; 1417 int expect_func = 0; 1418 int expect_return_type = 0; 1419 const char *oldmangled = NULL; 1420 string trawname; 1421 string tname; 1422 1423 while (success && (**mangled != '\0')) 1424 { 1425 switch (**mangled) 1426 { 1427 case 'Q': 1428 oldmangled = *mangled; 1429 success = demangle_qualified (work, mangled, declp, 1, 0); 1430 if (success) 1431 remember_type (work, oldmangled, *mangled - oldmangled); 1432 if (AUTO_DEMANGLING || GNU_DEMANGLING) 1433 expect_func = 1; 1434 oldmangled = NULL; 1435 break; 1436 1437 case 'K': 1438 oldmangled = *mangled; 1439 success = demangle_qualified (work, mangled, declp, 1, 0); 1440 if (AUTO_DEMANGLING || GNU_DEMANGLING) 1441 { 1442 expect_func = 1; 1443 } 1444 oldmangled = NULL; 1445 break; 1446 1447 case 'S': 1448 /* Static member function */ 1449 if (oldmangled == NULL) 1450 { 1451 oldmangled = *mangled; 1452 } 1453 (*mangled)++; 1454 work -> static_type = 1; 1455 break; 1456 1457 case 'C': 1458 case 'V': 1459 case 'u': 1460 work->type_quals |= code_for_qualifier (**mangled); 1461 1462 /* a qualified member function */ 1463 if (oldmangled == NULL) 1464 oldmangled = *mangled; 1465 (*mangled)++; 1466 break; 1467 1468 case 'L': 1469 /* Local class name follows after "Lnnn_" */ 1470 if (HP_DEMANGLING) 1471 { 1472 while (**mangled && (**mangled != '_')) 1473 (*mangled)++; 1474 if (!**mangled) 1475 success = 0; 1476 else 1477 (*mangled)++; 1478 } 1479 else 1480 success = 0; 1481 break; 1482 1483 case '0': case '1': case '2': case '3': case '4': 1484 case '5': case '6': case '7': case '8': case '9': 1485 if (oldmangled == NULL) 1486 { 1487 oldmangled = *mangled; 1488 } 1489 work->temp_start = -1; /* uppermost call to demangle_class */ 1490 success = demangle_class (work, mangled, declp); 1491 if (success) 1492 { 1493 remember_type (work, oldmangled, *mangled - oldmangled); 1494 } 1495 if (AUTO_DEMANGLING || GNU_DEMANGLING || EDG_DEMANGLING) 1496 { 1497 /* EDG and others will have the "F", so we let the loop cycle 1498 if we are looking at one. */ 1499 if (**mangled != 'F') 1500 expect_func = 1; 1501 } 1502 oldmangled = NULL; 1503 break; 1504 1505 case 'B': 1506 { 1507 string s; 1508 success = do_type (work, mangled, &s); 1509 if (success) 1510 { 1511 string_append (&s, SCOPE_STRING (work)); 1512 string_prepends (declp, &s); 1513 string_delete (&s); 1514 } 1515 oldmangled = NULL; 1516 expect_func = 1; 1517 } 1518 break; 1519 1520 case 'F': 1521 /* Function */ 1522 /* ARM/HP style demangling includes a specific 'F' character after 1523 the class name. For GNU style, it is just implied. So we can 1524 safely just consume any 'F' at this point and be compatible 1525 with either style. */ 1526 1527 oldmangled = NULL; 1528 func_done = 1; 1529 (*mangled)++; 1530 1531 /* For lucid/ARM/HP style we have to forget any types we might 1532 have remembered up to this point, since they were not argument 1533 types. GNU style considers all types seen as available for 1534 back references. See comment in demangle_args() */ 1535 1536 if (LUCID_DEMANGLING || ARM_DEMANGLING || HP_DEMANGLING || EDG_DEMANGLING) 1537 { 1538 forget_types (work); 1539 } 1540 success = demangle_args (work, mangled, declp); 1541 /* After picking off the function args, we expect to either 1542 find the function return type (preceded by an '_') or the 1543 end of the string. */ 1544 if (success && (AUTO_DEMANGLING || EDG_DEMANGLING) && **mangled == '_') 1545 { 1546 ++(*mangled); 1547 /* At this level, we do not care about the return type. */ 1548 success = do_type (work, mangled, &tname); 1549 string_delete (&tname); 1550 } 1551 1552 break; 1553 1554 case 't': 1555 /* G++ Template */ 1556 string_init(&trawname); 1557 string_init(&tname); 1558 if (oldmangled == NULL) 1559 { 1560 oldmangled = *mangled; 1561 } 1562 success = demangle_template (work, mangled, &tname, 1563 &trawname, 1, 1); 1564 if (success) 1565 { 1566 remember_type (work, oldmangled, *mangled - oldmangled); 1567 } 1568 string_append (&tname, SCOPE_STRING (work)); 1569 1570 string_prepends(declp, &tname); 1571 if (work -> destructor & 1) 1572 { 1573 string_prepend (&trawname, "~"); 1574 string_appends (declp, &trawname); 1575 work->destructor -= 1; 1576 } 1577 if ((work->constructor & 1) || (work->destructor & 1)) 1578 { 1579 string_appends (declp, &trawname); 1580 work->constructor -= 1; 1581 } 1582 string_delete(&trawname); 1583 string_delete(&tname); 1584 oldmangled = NULL; 1585 expect_func = 1; 1586 break; 1587 1588 case '_': 1589 if ((AUTO_DEMANGLING || GNU_DEMANGLING) && expect_return_type) 1590 { 1591 /* Read the return type. */ 1592 string return_type; 1593 1594 (*mangled)++; 1595 success = do_type (work, mangled, &return_type); 1596 APPEND_BLANK (&return_type); 1597 1598 string_prepends (declp, &return_type); 1599 string_delete (&return_type); 1600 break; 1601 } 1602 else 1603 /* At the outermost level, we cannot have a return type specified, 1604 so if we run into another '_' at this point we are dealing with 1605 a mangled name that is either bogus, or has been mangled by 1606 some algorithm we don't know how to deal with. So just 1607 reject the entire demangling. */ 1608 /* However, "_nnn" is an expected suffix for alternate entry point 1609 numbered nnn for a function, with HP aCC, so skip over that 1610 without reporting failure. pai/1997-09-04 */ 1611 if (HP_DEMANGLING) 1612 { 1613 (*mangled)++; 1614 while (**mangled && ISDIGIT ((unsigned char)**mangled)) 1615 (*mangled)++; 1616 } 1617 else 1618 success = 0; 1619 break; 1620 1621 case 'H': 1622 if (AUTO_DEMANGLING || GNU_DEMANGLING) 1623 { 1624 /* A G++ template function. Read the template arguments. */ 1625 success = demangle_template (work, mangled, declp, 0, 0, 1626 0); 1627 if (!(work->constructor & 1)) 1628 expect_return_type = 1; 1629 (*mangled)++; 1630 break; 1631 } 1632 else 1633 /* fall through */ 1634 {;} 1635 1636 default: 1637 if (AUTO_DEMANGLING || GNU_DEMANGLING) 1638 { 1639 /* Assume we have stumbled onto the first outermost function 1640 argument token, and start processing args. */ 1641 func_done = 1; 1642 success = demangle_args (work, mangled, declp); 1643 } 1644 else 1645 { 1646 /* Non-GNU demanglers use a specific token to mark the start 1647 of the outermost function argument tokens. Typically 'F', 1648 for ARM/HP-demangling, for example. So if we find something 1649 we are not prepared for, it must be an error. */ 1650 success = 0; 1651 } 1652 break; 1653 } 1654 /* 1655 if (AUTO_DEMANGLING || GNU_DEMANGLING) 1656 */ 1657 { 1658 if (success && expect_func) 1659 { 1660 func_done = 1; 1661 if (LUCID_DEMANGLING || ARM_DEMANGLING || EDG_DEMANGLING) 1662 { 1663 forget_types (work); 1664 } 1665 success = demangle_args (work, mangled, declp); 1666 /* Since template include the mangling of their return types, 1667 we must set expect_func to 0 so that we don't try do 1668 demangle more arguments the next time we get here. */ 1669 expect_func = 0; 1670 } 1671 } 1672 } 1673 if (success && !func_done) 1674 { 1675 if (AUTO_DEMANGLING || GNU_DEMANGLING) 1676 { 1677 /* With GNU style demangling, bar__3foo is 'foo::bar(void)', and 1678 bar__3fooi is 'foo::bar(int)'. We get here when we find the 1679 first case, and need to ensure that the '(void)' gets added to 1680 the current declp. Note that with ARM/HP, the first case 1681 represents the name of a static data member 'foo::bar', 1682 which is in the current declp, so we leave it alone. */ 1683 success = demangle_args (work, mangled, declp); 1684 } 1685 } 1686 if (success && PRINT_ARG_TYPES) 1687 { 1688 if (work->static_type) 1689 string_append (declp, " static"); 1690 if (work->type_quals != TYPE_UNQUALIFIED) 1691 { 1692 APPEND_BLANK (declp); 1693 string_append (declp, qualifier_string (work->type_quals)); 1694 } 1695 } 1696 1697 return (success); 1698 } 1699 1700 #if 0 1701 1702 static int 1703 demangle_method_args (struct work_stuff *work, const char **mangled, 1704 string *declp) 1705 { 1706 int success = 0; 1707 1708 if (work -> static_type) 1709 { 1710 string_append (declp, *mangled + 1); 1711 *mangled += strlen (*mangled); 1712 success = 1; 1713 } 1714 else 1715 { 1716 success = demangle_args (work, mangled, declp); 1717 } 1718 return (success); 1719 } 1720 1721 #endif 1722 1723 static int 1724 demangle_template_template_parm (struct work_stuff *work, 1725 const char **mangled, string *tname) 1726 { 1727 int i; 1728 int r; 1729 int need_comma = 0; 1730 int success = 1; 1731 string temp; 1732 1733 string_append (tname, "template <"); 1734 /* get size of template parameter list */ 1735 if (get_count (mangled, &r)) 1736 { 1737 for (i = 0; i < r; i++) 1738 { 1739 if (need_comma) 1740 { 1741 string_append (tname, ", "); 1742 } 1743 1744 /* Z for type parameters */ 1745 if (**mangled == 'Z') 1746 { 1747 (*mangled)++; 1748 string_append (tname, "class"); 1749 } 1750 /* z for template parameters */ 1751 else if (**mangled == 'z') 1752 { 1753 (*mangled)++; 1754 success = 1755 demangle_template_template_parm (work, mangled, tname); 1756 if (!success) 1757 { 1758 break; 1759 } 1760 } 1761 else 1762 { 1763 /* temp is initialized in do_type */ 1764 success = do_type (work, mangled, &temp); 1765 if (success) 1766 { 1767 string_appends (tname, &temp); 1768 } 1769 string_delete(&temp); 1770 if (!success) 1771 { 1772 break; 1773 } 1774 } 1775 need_comma = 1; 1776 } 1777 1778 } 1779 if (tname->p[-1] == '>') 1780 string_append (tname, " "); 1781 string_append (tname, "> class"); 1782 return (success); 1783 } 1784 1785 static int 1786 demangle_expression (struct work_stuff *work, const char **mangled, 1787 string *s, type_kind_t tk) 1788 { 1789 int need_operator = 0; 1790 int success; 1791 1792 success = 1; 1793 string_appendn (s, "(", 1); 1794 (*mangled)++; 1795 while (success && **mangled != 'W' && **mangled != '\0') 1796 { 1797 if (need_operator) 1798 { 1799 size_t i; 1800 size_t len; 1801 1802 success = 0; 1803 1804 len = strlen (*mangled); 1805 1806 for (i = 0; i < ARRAY_SIZE (optable); ++i) 1807 { 1808 size_t l = strlen (optable[i].in); 1809 1810 if (l <= len 1811 && memcmp (optable[i].in, *mangled, l) == 0) 1812 { 1813 string_appendn (s, " ", 1); 1814 string_append (s, optable[i].out); 1815 string_appendn (s, " ", 1); 1816 success = 1; 1817 (*mangled) += l; 1818 break; 1819 } 1820 } 1821 1822 if (!success) 1823 break; 1824 } 1825 else 1826 need_operator = 1; 1827 1828 success = demangle_template_value_parm (work, mangled, s, tk); 1829 } 1830 1831 if (**mangled != 'W') 1832 success = 0; 1833 else 1834 { 1835 string_appendn (s, ")", 1); 1836 (*mangled)++; 1837 } 1838 1839 return success; 1840 } 1841 1842 static int 1843 demangle_integral_value (struct work_stuff *work, 1844 const char **mangled, string *s) 1845 { 1846 int success; 1847 1848 if (**mangled == 'E') 1849 success = demangle_expression (work, mangled, s, tk_integral); 1850 else if (**mangled == 'Q' || **mangled == 'K') 1851 success = demangle_qualified (work, mangled, s, 0, 1); 1852 else 1853 { 1854 int value; 1855 1856 /* By default, we let the number decide whether we shall consume an 1857 underscore. */ 1858 int multidigit_without_leading_underscore = 0; 1859 int leave_following_underscore = 0; 1860 1861 success = 0; 1862 1863 if (**mangled == '_') 1864 { 1865 if (mangled[0][1] == 'm') 1866 { 1867 /* Since consume_count_with_underscores does not handle the 1868 `m'-prefix we must do it here, using consume_count and 1869 adjusting underscores: we have to consume the underscore 1870 matching the prepended one. */ 1871 multidigit_without_leading_underscore = 1; 1872 string_appendn (s, "-", 1); 1873 (*mangled) += 2; 1874 } 1875 else 1876 { 1877 /* Do not consume a following underscore; 1878 consume_count_with_underscores will consume what 1879 should be consumed. */ 1880 leave_following_underscore = 1; 1881 } 1882 } 1883 else 1884 { 1885 /* Negative numbers are indicated with a leading `m'. */ 1886 if (**mangled == 'm') 1887 { 1888 string_appendn (s, "-", 1); 1889 (*mangled)++; 1890 } 1891 /* Since consume_count_with_underscores does not handle 1892 multi-digit numbers that do not start with an underscore, 1893 and this number can be an integer template parameter, 1894 we have to call consume_count. */ 1895 multidigit_without_leading_underscore = 1; 1896 /* These multi-digit numbers never end on an underscore, 1897 so if there is one then don't eat it. */ 1898 leave_following_underscore = 1; 1899 } 1900 1901 /* We must call consume_count if we expect to remove a trailing 1902 underscore, since consume_count_with_underscores expects 1903 the leading underscore (that we consumed) if it is to handle 1904 multi-digit numbers. */ 1905 if (multidigit_without_leading_underscore) 1906 value = consume_count (mangled); 1907 else 1908 value = consume_count_with_underscores (mangled); 1909 1910 if (value != -1) 1911 { 1912 char buf[INTBUF_SIZE]; 1913 sprintf (buf, "%d", value); 1914 string_append (s, buf); 1915 1916 /* Numbers not otherwise delimited, might have an underscore 1917 appended as a delimeter, which we should skip. 1918 1919 ??? This used to always remove a following underscore, which 1920 is wrong. If other (arbitrary) cases are followed by an 1921 underscore, we need to do something more radical. */ 1922 1923 if ((value > 9 || multidigit_without_leading_underscore) 1924 && ! leave_following_underscore 1925 && **mangled == '_') 1926 (*mangled)++; 1927 1928 /* All is well. */ 1929 success = 1; 1930 } 1931 } 1932 1933 return success; 1934 } 1935 1936 /* Demangle the real value in MANGLED. */ 1937 1938 static int 1939 demangle_real_value (struct work_stuff *work, 1940 const char **mangled, string *s) 1941 { 1942 if (**mangled == 'E') 1943 return demangle_expression (work, mangled, s, tk_real); 1944 1945 if (**mangled == 'm') 1946 { 1947 string_appendn (s, "-", 1); 1948 (*mangled)++; 1949 } 1950 while (ISDIGIT ((unsigned char)**mangled)) 1951 { 1952 string_appendn (s, *mangled, 1); 1953 (*mangled)++; 1954 } 1955 if (**mangled == '.') /* fraction */ 1956 { 1957 string_appendn (s, ".", 1); 1958 (*mangled)++; 1959 while (ISDIGIT ((unsigned char)**mangled)) 1960 { 1961 string_appendn (s, *mangled, 1); 1962 (*mangled)++; 1963 } 1964 } 1965 if (**mangled == 'e') /* exponent */ 1966 { 1967 string_appendn (s, "e", 1); 1968 (*mangled)++; 1969 while (ISDIGIT ((unsigned char)**mangled)) 1970 { 1971 string_appendn (s, *mangled, 1); 1972 (*mangled)++; 1973 } 1974 } 1975 1976 return 1; 1977 } 1978 1979 static int 1980 demangle_template_value_parm (struct work_stuff *work, const char **mangled, 1981 string *s, type_kind_t tk) 1982 { 1983 int success = 1; 1984 1985 if (**mangled == 'Y') 1986 { 1987 /* The next argument is a template parameter. */ 1988 int idx; 1989 1990 (*mangled)++; 1991 idx = consume_count_with_underscores (mangled); 1992 if (idx == -1 1993 || (work->tmpl_argvec && idx >= work->ntmpl_args) 1994 || consume_count_with_underscores (mangled) == -1) 1995 return -1; 1996 if (work->tmpl_argvec) 1997 string_append (s, work->tmpl_argvec[idx]); 1998 else 1999 string_append_template_idx (s, idx); 2000 } 2001 else if (tk == tk_integral) 2002 success = demangle_integral_value (work, mangled, s); 2003 else if (tk == tk_char) 2004 { 2005 char tmp[2]; 2006 int val; 2007 if (**mangled == 'm') 2008 { 2009 string_appendn (s, "-", 1); 2010 (*mangled)++; 2011 } 2012 string_appendn (s, "'", 1); 2013 val = consume_count(mangled); 2014 if (val <= 0) 2015 success = 0; 2016 else 2017 { 2018 tmp[0] = (char)val; 2019 tmp[1] = '\0'; 2020 string_appendn (s, &tmp[0], 1); 2021 string_appendn (s, "'", 1); 2022 } 2023 } 2024 else if (tk == tk_bool) 2025 { 2026 int val = consume_count (mangled); 2027 if (val == 0) 2028 string_appendn (s, "false", 5); 2029 else if (val == 1) 2030 string_appendn (s, "true", 4); 2031 else 2032 success = 0; 2033 } 2034 else if (tk == tk_real) 2035 success = demangle_real_value (work, mangled, s); 2036 else if (tk == tk_pointer || tk == tk_reference) 2037 { 2038 if (**mangled == 'Q') 2039 success = demangle_qualified (work, mangled, s, 2040 /*isfuncname=*/0, 2041 /*append=*/1); 2042 else 2043 { 2044 int symbol_len = consume_count (mangled); 2045 if (symbol_len == -1) 2046 return -1; 2047 if (symbol_len == 0) 2048 string_appendn (s, "0", 1); 2049 else 2050 { 2051 char *p = XNEWVEC (char, symbol_len + 1), *q; 2052 strncpy (p, *mangled, symbol_len); 2053 p [symbol_len] = '\0'; 2054 /* We use cplus_demangle here, rather than 2055 internal_cplus_demangle, because the name of the entity 2056 mangled here does not make use of any of the squangling 2057 or type-code information we have built up thus far; it is 2058 mangled independently. */ 2059 q = cplus_demangle (p, work->options); 2060 if (tk == tk_pointer) 2061 string_appendn (s, "&", 1); 2062 /* FIXME: Pointer-to-member constants should get a 2063 qualifying class name here. */ 2064 if (q) 2065 { 2066 string_append (s, q); 2067 free (q); 2068 } 2069 else 2070 string_append (s, p); 2071 free (p); 2072 } 2073 *mangled += symbol_len; 2074 } 2075 } 2076 2077 return success; 2078 } 2079 2080 /* Demangle the template name in MANGLED. The full name of the 2081 template (e.g., S<int>) is placed in TNAME. The name without the 2082 template parameters (e.g. S) is placed in TRAWNAME if TRAWNAME is 2083 non-NULL. If IS_TYPE is nonzero, this template is a type template, 2084 not a function template. If both IS_TYPE and REMEMBER are nonzero, 2085 the template is remembered in the list of back-referenceable 2086 types. */ 2087 2088 static int 2089 demangle_template (struct work_stuff *work, const char **mangled, 2090 string *tname, string *trawname, 2091 int is_type, int remember) 2092 { 2093 int i; 2094 int r; 2095 int need_comma = 0; 2096 int success = 0; 2097 int is_java_array = 0; 2098 string temp; 2099 2100 (*mangled)++; 2101 if (is_type) 2102 { 2103 /* get template name */ 2104 if (**mangled == 'z') 2105 { 2106 int idx; 2107 (*mangled)++; 2108 (*mangled)++; 2109 2110 idx = consume_count_with_underscores (mangled); 2111 if (idx == -1 2112 || (work->tmpl_argvec && idx >= work->ntmpl_args) 2113 || consume_count_with_underscores (mangled) == -1) 2114 return (0); 2115 2116 if (work->tmpl_argvec) 2117 { 2118 string_append (tname, work->tmpl_argvec[idx]); 2119 if (trawname) 2120 string_append (trawname, work->tmpl_argvec[idx]); 2121 } 2122 else 2123 { 2124 string_append_template_idx (tname, idx); 2125 if (trawname) 2126 string_append_template_idx (trawname, idx); 2127 } 2128 } 2129 else 2130 { 2131 if ((r = consume_count (mangled)) <= 0 2132 || (int) strlen (*mangled) < r) 2133 { 2134 return (0); 2135 } 2136 is_java_array = (work -> options & DMGL_JAVA) 2137 && strncmp (*mangled, "JArray1Z", 8) == 0; 2138 if (! is_java_array) 2139 { 2140 string_appendn (tname, *mangled, r); 2141 } 2142 if (trawname) 2143 string_appendn (trawname, *mangled, r); 2144 *mangled += r; 2145 } 2146 } 2147 if (!is_java_array) 2148 string_append (tname, "<"); 2149 /* get size of template parameter list */ 2150 if (!get_count (mangled, &r)) 2151 { 2152 return (0); 2153 } 2154 if (!is_type) 2155 { 2156 /* Create an array for saving the template argument values. */ 2157 work->tmpl_argvec = XNEWVEC (char *, r); 2158 work->ntmpl_args = r; 2159 for (i = 0; i < r; i++) 2160 work->tmpl_argvec[i] = 0; 2161 } 2162 for (i = 0; i < r; i++) 2163 { 2164 if (need_comma) 2165 { 2166 string_append (tname, ", "); 2167 } 2168 /* Z for type parameters */ 2169 if (**mangled == 'Z') 2170 { 2171 (*mangled)++; 2172 /* temp is initialized in do_type */ 2173 success = do_type (work, mangled, &temp); 2174 if (success) 2175 { 2176 string_appends (tname, &temp); 2177 2178 if (!is_type) 2179 { 2180 /* Save the template argument. */ 2181 int len = temp.p - temp.b; 2182 work->tmpl_argvec[i] = XNEWVEC (char, len + 1); 2183 memcpy (work->tmpl_argvec[i], temp.b, len); 2184 work->tmpl_argvec[i][len] = '\0'; 2185 } 2186 } 2187 string_delete(&temp); 2188 if (!success) 2189 { 2190 break; 2191 } 2192 } 2193 /* z for template parameters */ 2194 else if (**mangled == 'z') 2195 { 2196 int r2; 2197 (*mangled)++; 2198 success = demangle_template_template_parm (work, mangled, tname); 2199 2200 if (success 2201 && (r2 = consume_count (mangled)) > 0 2202 && (int) strlen (*mangled) >= r2) 2203 { 2204 string_append (tname, " "); 2205 string_appendn (tname, *mangled, r2); 2206 if (!is_type) 2207 { 2208 /* Save the template argument. */ 2209 int len = r2; 2210 work->tmpl_argvec[i] = XNEWVEC (char, len + 1); 2211 memcpy (work->tmpl_argvec[i], *mangled, len); 2212 work->tmpl_argvec[i][len] = '\0'; 2213 } 2214 *mangled += r2; 2215 } 2216 if (!success) 2217 { 2218 break; 2219 } 2220 } 2221 else 2222 { 2223 string param; 2224 string* s; 2225 2226 /* otherwise, value parameter */ 2227 2228 /* temp is initialized in do_type */ 2229 success = do_type (work, mangled, &temp); 2230 string_delete(&temp); 2231 if (!success) 2232 break; 2233 2234 if (!is_type) 2235 { 2236 s = ¶m; 2237 string_init (s); 2238 } 2239 else 2240 s = tname; 2241 2242 success = demangle_template_value_parm (work, mangled, s, 2243 (type_kind_t) success); 2244 2245 if (!success) 2246 { 2247 if (!is_type) 2248 string_delete (s); 2249 success = 0; 2250 break; 2251 } 2252 2253 if (!is_type) 2254 { 2255 int len = s->p - s->b; 2256 work->tmpl_argvec[i] = XNEWVEC (char, len + 1); 2257 memcpy (work->tmpl_argvec[i], s->b, len); 2258 work->tmpl_argvec[i][len] = '\0'; 2259 2260 string_appends (tname, s); 2261 string_delete (s); 2262 } 2263 } 2264 need_comma = 1; 2265 } 2266 if (is_java_array) 2267 { 2268 string_append (tname, "[]"); 2269 } 2270 else 2271 { 2272 if (tname->p[-1] == '>') 2273 string_append (tname, " "); 2274 string_append (tname, ">"); 2275 } 2276 2277 if (is_type && remember) 2278 { 2279 const int bindex = register_Btype (work); 2280 remember_Btype (work, tname->b, LEN_STRING (tname), bindex); 2281 } 2282 2283 /* 2284 if (work -> static_type) 2285 { 2286 string_append (declp, *mangled + 1); 2287 *mangled += strlen (*mangled); 2288 success = 1; 2289 } 2290 else 2291 { 2292 success = demangle_args (work, mangled, declp); 2293 } 2294 } 2295 */ 2296 return (success); 2297 } 2298 2299 static int 2300 arm_pt (struct work_stuff *work, const char *mangled, 2301 int n, const char **anchor, const char **args) 2302 { 2303 /* Check if ARM template with "__pt__" in it ("parameterized type") */ 2304 /* Allow HP also here, because HP's cfront compiler follows ARM to some extent */ 2305 if ((ARM_DEMANGLING || HP_DEMANGLING) && (*anchor = strstr (mangled, "__pt__"))) 2306 { 2307 int len; 2308 *args = *anchor + 6; 2309 len = consume_count (args); 2310 if (len == -1) 2311 return 0; 2312 if (*args + len == mangled + n && **args == '_') 2313 { 2314 ++*args; 2315 return 1; 2316 } 2317 } 2318 if (AUTO_DEMANGLING || EDG_DEMANGLING) 2319 { 2320 if ((*anchor = strstr (mangled, "__tm__")) 2321 || (*anchor = strstr (mangled, "__ps__")) 2322 || (*anchor = strstr (mangled, "__pt__"))) 2323 { 2324 int len; 2325 *args = *anchor + 6; 2326 len = consume_count (args); 2327 if (len == -1) 2328 return 0; 2329 if (*args + len == mangled + n && **args == '_') 2330 { 2331 ++*args; 2332 return 1; 2333 } 2334 } 2335 else if ((*anchor = strstr (mangled, "__S"))) 2336 { 2337 int len; 2338 *args = *anchor + 3; 2339 len = consume_count (args); 2340 if (len == -1) 2341 return 0; 2342 if (*args + len == mangled + n && **args == '_') 2343 { 2344 ++*args; 2345 return 1; 2346 } 2347 } 2348 } 2349 2350 return 0; 2351 } 2352 2353 static void 2354 demangle_arm_hp_template (struct work_stuff *work, const char **mangled, 2355 int n, string *declp) 2356 { 2357 const char *p; 2358 const char *args; 2359 const char *e = *mangled + n; 2360 string arg; 2361 2362 /* Check for HP aCC template spec: classXt1t2 where t1, t2 are 2363 template args */ 2364 if (HP_DEMANGLING && ((*mangled)[n] == 'X')) 2365 { 2366 char *start_spec_args = NULL; 2367 int hold_options; 2368 2369 /* First check for and omit template specialization pseudo-arguments, 2370 such as in "Spec<#1,#1.*>" */ 2371 start_spec_args = strchr (*mangled, '<'); 2372 if (start_spec_args && (start_spec_args - *mangled < n)) 2373 string_appendn (declp, *mangled, start_spec_args - *mangled); 2374 else 2375 string_appendn (declp, *mangled, n); 2376 (*mangled) += n + 1; 2377 string_init (&arg); 2378 if (work->temp_start == -1) /* non-recursive call */ 2379 work->temp_start = declp->p - declp->b; 2380 2381 /* We want to unconditionally demangle parameter types in 2382 template parameters. */ 2383 hold_options = work->options; 2384 work->options |= DMGL_PARAMS; 2385 2386 string_append (declp, "<"); 2387 while (1) 2388 { 2389 string_delete (&arg); 2390 switch (**mangled) 2391 { 2392 case 'T': 2393 /* 'T' signals a type parameter */ 2394 (*mangled)++; 2395 if (!do_type (work, mangled, &arg)) 2396 goto hpacc_template_args_done; 2397 break; 2398 2399 case 'U': 2400 case 'S': 2401 /* 'U' or 'S' signals an integral value */ 2402 if (!do_hpacc_template_const_value (work, mangled, &arg)) 2403 goto hpacc_template_args_done; 2404 break; 2405 2406 case 'A': 2407 /* 'A' signals a named constant expression (literal) */ 2408 if (!do_hpacc_template_literal (work, mangled, &arg)) 2409 goto hpacc_template_args_done; 2410 break; 2411 2412 default: 2413 /* Today, 1997-09-03, we have only the above types 2414 of template parameters */ 2415 /* FIXME: maybe this should fail and return null */ 2416 goto hpacc_template_args_done; 2417 } 2418 string_appends (declp, &arg); 2419 /* Check if we're at the end of template args. 2420 0 if at end of static member of template class, 2421 _ if done with template args for a function */ 2422 if ((**mangled == '\000') || (**mangled == '_')) 2423 break; 2424 else 2425 string_append (declp, ","); 2426 } 2427 hpacc_template_args_done: 2428 string_append (declp, ">"); 2429 string_delete (&arg); 2430 if (**mangled == '_') 2431 (*mangled)++; 2432 work->options = hold_options; 2433 return; 2434 } 2435 /* ARM template? (Also handles HP cfront extensions) */ 2436 else if (arm_pt (work, *mangled, n, &p, &args)) 2437 { 2438 int hold_options; 2439 string type_str; 2440 2441 string_init (&arg); 2442 string_appendn (declp, *mangled, p - *mangled); 2443 if (work->temp_start == -1) /* non-recursive call */ 2444 work->temp_start = declp->p - declp->b; 2445 2446 /* We want to unconditionally demangle parameter types in 2447 template parameters. */ 2448 hold_options = work->options; 2449 work->options |= DMGL_PARAMS; 2450 2451 string_append (declp, "<"); 2452 /* should do error checking here */ 2453 while (args < e) { 2454 string_delete (&arg); 2455 2456 /* Check for type or literal here */ 2457 switch (*args) 2458 { 2459 /* HP cfront extensions to ARM for template args */ 2460 /* spec: Xt1Lv1 where t1 is a type, v1 is a literal value */ 2461 /* FIXME: We handle only numeric literals for HP cfront */ 2462 case 'X': 2463 /* A typed constant value follows */ 2464 args++; 2465 if (!do_type (work, &args, &type_str)) 2466 goto cfront_template_args_done; 2467 string_append (&arg, "("); 2468 string_appends (&arg, &type_str); 2469 string_delete (&type_str); 2470 string_append (&arg, ")"); 2471 if (*args != 'L') 2472 goto cfront_template_args_done; 2473 args++; 2474 /* Now snarf a literal value following 'L' */ 2475 if (!snarf_numeric_literal (&args, &arg)) 2476 goto cfront_template_args_done; 2477 break; 2478 2479 case 'L': 2480 /* Snarf a literal following 'L' */ 2481 args++; 2482 if (!snarf_numeric_literal (&args, &arg)) 2483 goto cfront_template_args_done; 2484 break; 2485 default: 2486 /* Not handling other HP cfront stuff */ 2487 { 2488 const char* old_args = args; 2489 if (!do_type (work, &args, &arg)) 2490 goto cfront_template_args_done; 2491 2492 /* Fail if we didn't make any progress: prevent infinite loop. */ 2493 if (args == old_args) 2494 { 2495 work->options = hold_options; 2496 return; 2497 } 2498 } 2499 } 2500 string_appends (declp, &arg); 2501 string_append (declp, ","); 2502 } 2503 cfront_template_args_done: 2504 string_delete (&arg); 2505 if (args >= e) 2506 --declp->p; /* remove extra comma */ 2507 string_append (declp, ">"); 2508 work->options = hold_options; 2509 } 2510 else if (n>10 && strncmp (*mangled, "_GLOBAL_", 8) == 0 2511 && (*mangled)[9] == 'N' 2512 && (*mangled)[8] == (*mangled)[10] 2513 && strchr (cplus_markers, (*mangled)[8])) 2514 { 2515 /* A member of the anonymous namespace. */ 2516 string_append (declp, "{anonymous}"); 2517 } 2518 else 2519 { 2520 if (work->temp_start == -1) /* non-recursive call only */ 2521 work->temp_start = 0; /* disable in recursive calls */ 2522 string_appendn (declp, *mangled, n); 2523 } 2524 *mangled += n; 2525 } 2526 2527 /* Extract a class name, possibly a template with arguments, from the 2528 mangled string; qualifiers, local class indicators, etc. have 2529 already been dealt with */ 2530 2531 static int 2532 demangle_class_name (struct work_stuff *work, const char **mangled, 2533 string *declp) 2534 { 2535 int n; 2536 int success = 0; 2537 2538 n = consume_count (mangled); 2539 if (n == -1) 2540 return 0; 2541 if ((int) strlen (*mangled) >= n) 2542 { 2543 demangle_arm_hp_template (work, mangled, n, declp); 2544 success = 1; 2545 } 2546 2547 return (success); 2548 } 2549 2550 /* 2551 2552 LOCAL FUNCTION 2553 2554 demangle_class -- demangle a mangled class sequence 2555 2556 SYNOPSIS 2557 2558 static int 2559 demangle_class (struct work_stuff *work, const char **mangled, 2560 strint *declp) 2561 2562 DESCRIPTION 2563 2564 DECLP points to the buffer into which demangling is being done. 2565 2566 *MANGLED points to the current token to be demangled. On input, 2567 it points to a mangled class (I.E. "3foo", "13verylongclass", etc.) 2568 On exit, it points to the next token after the mangled class on 2569 success, or the first unconsumed token on failure. 2570 2571 If the CONSTRUCTOR or DESTRUCTOR flags are set in WORK, then 2572 we are demangling a constructor or destructor. In this case 2573 we prepend "class::class" or "class::~class" to DECLP. 2574 2575 Otherwise, we prepend "class::" to the current DECLP. 2576 2577 Reset the constructor/destructor flags once they have been 2578 "consumed". This allows demangle_class to be called later during 2579 the same demangling, to do normal class demangling. 2580 2581 Returns 1 if demangling is successful, 0 otherwise. 2582 2583 */ 2584 2585 static int 2586 demangle_class (struct work_stuff *work, const char **mangled, string *declp) 2587 { 2588 int success = 0; 2589 int btype; 2590 string class_name; 2591 char *save_class_name_end = 0; 2592 2593 string_init (&class_name); 2594 btype = register_Btype (work); 2595 if (demangle_class_name (work, mangled, &class_name)) 2596 { 2597 save_class_name_end = class_name.p; 2598 if ((work->constructor & 1) || (work->destructor & 1)) 2599 { 2600 /* adjust so we don't include template args */ 2601 if (work->temp_start && (work->temp_start != -1)) 2602 { 2603 class_name.p = class_name.b + work->temp_start; 2604 } 2605 string_prepends (declp, &class_name); 2606 if (work -> destructor & 1) 2607 { 2608 string_prepend (declp, "~"); 2609 work -> destructor -= 1; 2610 } 2611 else 2612 { 2613 work -> constructor -= 1; 2614 } 2615 } 2616 class_name.p = save_class_name_end; 2617 remember_Ktype (work, class_name.b, LEN_STRING(&class_name)); 2618 remember_Btype (work, class_name.b, LEN_STRING(&class_name), btype); 2619 string_prepend (declp, SCOPE_STRING (work)); 2620 string_prepends (declp, &class_name); 2621 success = 1; 2622 } 2623 string_delete (&class_name); 2624 return (success); 2625 } 2626 2627 2628 /* Called when there's a "__" in the mangled name, with `scan' pointing to 2629 the rightmost guess. 2630 2631 Find the correct "__"-sequence where the function name ends and the 2632 signature starts, which is ambiguous with GNU mangling. 2633 Call demangle_signature here, so we can make sure we found the right 2634 one; *mangled will be consumed so caller will not make further calls to 2635 demangle_signature. */ 2636 2637 static int 2638 iterate_demangle_function (struct work_stuff *work, const char **mangled, 2639 string *declp, const char *scan) 2640 { 2641 const char *mangle_init = *mangled; 2642 int success = 0; 2643 string decl_init; 2644 struct work_stuff work_init; 2645 2646 if (*(scan + 2) == '\0') 2647 return 0; 2648 2649 /* Do not iterate for some demangling modes, or if there's only one 2650 "__"-sequence. This is the normal case. */ 2651 if (ARM_DEMANGLING || LUCID_DEMANGLING || HP_DEMANGLING || EDG_DEMANGLING 2652 || strstr (scan + 2, "__") == NULL) 2653 return demangle_function_name (work, mangled, declp, scan); 2654 2655 /* Save state so we can restart if the guess at the correct "__" was 2656 wrong. */ 2657 string_init (&decl_init); 2658 string_appends (&decl_init, declp); 2659 memset (&work_init, 0, sizeof work_init); 2660 work_stuff_copy_to_from (&work_init, work); 2661 2662 /* Iterate over occurrences of __, allowing names and types to have a 2663 "__" sequence in them. We must start with the first (not the last) 2664 occurrence, since "__" most often occur between independent mangled 2665 parts, hence starting at the last occurence inside a signature 2666 might get us a "successful" demangling of the signature. */ 2667 2668 while (scan[2]) 2669 { 2670 if (demangle_function_name (work, mangled, declp, scan)) 2671 { 2672 success = demangle_signature (work, mangled, declp); 2673 if (success) 2674 break; 2675 } 2676 2677 /* Reset demangle state for the next round. */ 2678 *mangled = mangle_init; 2679 string_clear (declp); 2680 string_appends (declp, &decl_init); 2681 work_stuff_copy_to_from (work, &work_init); 2682 2683 /* Leave this underscore-sequence. */ 2684 scan += 2; 2685 2686 /* Scan for the next "__" sequence. */ 2687 while (*scan && (scan[0] != '_' || scan[1] != '_')) 2688 scan++; 2689 2690 /* Move to last "__" in this sequence. */ 2691 while (*scan && *scan == '_') 2692 scan++; 2693 scan -= 2; 2694 } 2695 2696 /* Delete saved state. */ 2697 delete_work_stuff (&work_init); 2698 string_delete (&decl_init); 2699 2700 return success; 2701 } 2702 2703 /* 2704 2705 LOCAL FUNCTION 2706 2707 demangle_prefix -- consume the mangled name prefix and find signature 2708 2709 SYNOPSIS 2710 2711 static int 2712 demangle_prefix (struct work_stuff *work, const char **mangled, 2713 string *declp); 2714 2715 DESCRIPTION 2716 2717 Consume and demangle the prefix of the mangled name. 2718 While processing the function name root, arrange to call 2719 demangle_signature if the root is ambiguous. 2720 2721 DECLP points to the string buffer into which demangled output is 2722 placed. On entry, the buffer is empty. On exit it contains 2723 the root function name, the demangled operator name, or in some 2724 special cases either nothing or the completely demangled result. 2725 2726 MANGLED points to the current pointer into the mangled name. As each 2727 token of the mangled name is consumed, it is updated. Upon entry 2728 the current mangled name pointer points to the first character of 2729 the mangled name. Upon exit, it should point to the first character 2730 of the signature if demangling was successful, or to the first 2731 unconsumed character if demangling of the prefix was unsuccessful. 2732 2733 Returns 1 on success, 0 otherwise. 2734 */ 2735 2736 static int 2737 demangle_prefix (struct work_stuff *work, const char **mangled, 2738 string *declp) 2739 { 2740 int success = 1; 2741 const char *scan; 2742 int i; 2743 2744 if (strlen(*mangled) > 6 2745 && (strncmp(*mangled, "_imp__", 6) == 0 2746 || strncmp(*mangled, "__imp_", 6) == 0)) 2747 { 2748 /* it's a symbol imported from a PE dynamic library. Check for both 2749 new style prefix _imp__ and legacy __imp_ used by older versions 2750 of dlltool. */ 2751 (*mangled) += 6; 2752 work->dllimported = 1; 2753 } 2754 else if (strlen(*mangled) >= 11 && strncmp(*mangled, "_GLOBAL_", 8) == 0) 2755 { 2756 char *marker = strchr (cplus_markers, (*mangled)[8]); 2757 if (marker != NULL && *marker == (*mangled)[10]) 2758 { 2759 if ((*mangled)[9] == 'D') 2760 { 2761 /* it's a GNU global destructor to be executed at program exit */ 2762 (*mangled) += 11; 2763 work->destructor = 2; 2764 if (gnu_special (work, mangled, declp)) 2765 return success; 2766 } 2767 else if ((*mangled)[9] == 'I') 2768 { 2769 /* it's a GNU global constructor to be executed at program init */ 2770 (*mangled) += 11; 2771 work->constructor = 2; 2772 if (gnu_special (work, mangled, declp)) 2773 return success; 2774 } 2775 } 2776 } 2777 else if ((ARM_DEMANGLING || HP_DEMANGLING || EDG_DEMANGLING) && strncmp(*mangled, "__std__", 7) == 0) 2778 { 2779 /* it's a ARM global destructor to be executed at program exit */ 2780 (*mangled) += 7; 2781 work->destructor = 2; 2782 } 2783 else if ((ARM_DEMANGLING || HP_DEMANGLING || EDG_DEMANGLING) && strncmp(*mangled, "__sti__", 7) == 0) 2784 { 2785 /* it's a ARM global constructor to be executed at program initial */ 2786 (*mangled) += 7; 2787 work->constructor = 2; 2788 } 2789 2790 /* This block of code is a reduction in strength time optimization 2791 of: 2792 scan = strstr (*mangled, "__"); */ 2793 2794 { 2795 scan = *mangled; 2796 2797 do { 2798 scan = strchr (scan, '_'); 2799 } while (scan != NULL && *++scan != '_'); 2800 2801 if (scan != NULL) --scan; 2802 } 2803 2804 if (scan != NULL) 2805 { 2806 /* We found a sequence of two or more '_', ensure that we start at 2807 the last pair in the sequence. */ 2808 i = strspn (scan, "_"); 2809 if (i > 2) 2810 { 2811 scan += (i - 2); 2812 } 2813 } 2814 2815 if (scan == NULL) 2816 { 2817 success = 0; 2818 } 2819 else if (work -> static_type) 2820 { 2821 if (!ISDIGIT ((unsigned char)scan[0]) && (scan[0] != 't')) 2822 { 2823 success = 0; 2824 } 2825 } 2826 else if ((scan == *mangled) 2827 && (ISDIGIT ((unsigned char)scan[2]) || (scan[2] == 'Q') 2828 || (scan[2] == 't') || (scan[2] == 'K') || (scan[2] == 'H'))) 2829 { 2830 /* The ARM says nothing about the mangling of local variables. 2831 But cfront mangles local variables by prepending __<nesting_level> 2832 to them. As an extension to ARM demangling we handle this case. */ 2833 if ((LUCID_DEMANGLING || ARM_DEMANGLING || HP_DEMANGLING) 2834 && ISDIGIT ((unsigned char)scan[2])) 2835 { 2836 *mangled = scan + 2; 2837 consume_count (mangled); 2838 string_append (declp, *mangled); 2839 *mangled += strlen (*mangled); 2840 success = 1; 2841 } 2842 else 2843 { 2844 /* A GNU style constructor starts with __[0-9Qt]. But cfront uses 2845 names like __Q2_3foo3bar for nested type names. So don't accept 2846 this style of constructor for cfront demangling. A GNU 2847 style member-template constructor starts with 'H'. */ 2848 if (!(LUCID_DEMANGLING || ARM_DEMANGLING || HP_DEMANGLING || EDG_DEMANGLING)) 2849 work -> constructor += 1; 2850 *mangled = scan + 2; 2851 } 2852 } 2853 else if (ARM_DEMANGLING && scan[2] == 'p' && scan[3] == 't') 2854 { 2855 /* Cfront-style parameterized type. Handled later as a signature. */ 2856 success = 1; 2857 2858 /* ARM template? */ 2859 demangle_arm_hp_template (work, mangled, strlen (*mangled), declp); 2860 } 2861 else if (EDG_DEMANGLING && ((scan[2] == 't' && scan[3] == 'm') 2862 || (scan[2] == 'p' && scan[3] == 's') 2863 || (scan[2] == 'p' && scan[3] == 't'))) 2864 { 2865 /* EDG-style parameterized type. Handled later as a signature. */ 2866 success = 1; 2867 2868 /* EDG template? */ 2869 demangle_arm_hp_template (work, mangled, strlen (*mangled), declp); 2870 } 2871 else if ((scan == *mangled) && !ISDIGIT ((unsigned char)scan[2]) 2872 && (scan[2] != 't')) 2873 { 2874 /* Mangled name starts with "__". Skip over any leading '_' characters, 2875 then find the next "__" that separates the prefix from the signature. 2876 */ 2877 if (!(ARM_DEMANGLING || LUCID_DEMANGLING || HP_DEMANGLING || EDG_DEMANGLING) 2878 || (arm_special (mangled, declp) == 0)) 2879 { 2880 while (*scan == '_') 2881 { 2882 scan++; 2883 } 2884 if ((scan = strstr (scan, "__")) == NULL || (*(scan + 2) == '\0')) 2885 { 2886 /* No separator (I.E. "__not_mangled"), or empty signature 2887 (I.E. "__not_mangled_either__") */ 2888 success = 0; 2889 } 2890 else 2891 return iterate_demangle_function (work, mangled, declp, scan); 2892 } 2893 } 2894 else if (*(scan + 2) != '\0') 2895 { 2896 /* Mangled name does not start with "__" but does have one somewhere 2897 in there with non empty stuff after it. Looks like a global 2898 function name. Iterate over all "__":s until the right 2899 one is found. */ 2900 return iterate_demangle_function (work, mangled, declp, scan); 2901 } 2902 else 2903 { 2904 /* Doesn't look like a mangled name */ 2905 success = 0; 2906 } 2907 2908 if (!success && (work->constructor == 2 || work->destructor == 2)) 2909 { 2910 string_append (declp, *mangled); 2911 *mangled += strlen (*mangled); 2912 success = 1; 2913 } 2914 return (success); 2915 } 2916 2917 /* 2918 2919 LOCAL FUNCTION 2920 2921 gnu_special -- special handling of gnu mangled strings 2922 2923 SYNOPSIS 2924 2925 static int 2926 gnu_special (struct work_stuff *work, const char **mangled, 2927 string *declp); 2928 2929 2930 DESCRIPTION 2931 2932 Process some special GNU style mangling forms that don't fit 2933 the normal pattern. For example: 2934 2935 _$_3foo (destructor for class foo) 2936 _vt$foo (foo virtual table) 2937 _vt$foo$bar (foo::bar virtual table) 2938 __vt_foo (foo virtual table, new style with thunks) 2939 _3foo$varname (static data member) 2940 _Q22rs2tu$vw (static data member) 2941 __t6vector1Zii (constructor with template) 2942 __thunk_4__$_7ostream (virtual function thunk) 2943 */ 2944 2945 static int 2946 gnu_special (struct work_stuff *work, const char **mangled, string *declp) 2947 { 2948 int n; 2949 int success = 1; 2950 const char *p; 2951 2952 if ((*mangled)[0] == '_' 2953 && strchr (cplus_markers, (*mangled)[1]) != NULL 2954 && (*mangled)[2] == '_') 2955 { 2956 /* Found a GNU style destructor, get past "_<CPLUS_MARKER>_" */ 2957 (*mangled) += 3; 2958 work -> destructor += 1; 2959 } 2960 else if ((*mangled)[0] == '_' 2961 && (((*mangled)[1] == '_' 2962 && (*mangled)[2] == 'v' 2963 && (*mangled)[3] == 't' 2964 && (*mangled)[4] == '_') 2965 || ((*mangled)[1] == 'v' 2966 && (*mangled)[2] == 't' 2967 && strchr (cplus_markers, (*mangled)[3]) != NULL))) 2968 { 2969 /* Found a GNU style virtual table, get past "_vt<CPLUS_MARKER>" 2970 and create the decl. Note that we consume the entire mangled 2971 input string, which means that demangle_signature has no work 2972 to do. */ 2973 if ((*mangled)[2] == 'v') 2974 (*mangled) += 5; /* New style, with thunks: "__vt_" */ 2975 else 2976 (*mangled) += 4; /* Old style, no thunks: "_vt<CPLUS_MARKER>" */ 2977 while (**mangled != '\0') 2978 { 2979 switch (**mangled) 2980 { 2981 case 'Q': 2982 case 'K': 2983 success = demangle_qualified (work, mangled, declp, 0, 1); 2984 break; 2985 case 't': 2986 success = demangle_template (work, mangled, declp, 0, 1, 2987 1); 2988 break; 2989 default: 2990 if (ISDIGIT((unsigned char)*mangled[0])) 2991 { 2992 n = consume_count(mangled); 2993 /* We may be seeing a too-large size, or else a 2994 ".<digits>" indicating a static local symbol. In 2995 any case, declare victory and move on; *don't* try 2996 to use n to allocate. */ 2997 if (n > (int) strlen (*mangled)) 2998 { 2999 success = 1; 3000 break; 3001 } 3002 } 3003 else 3004 { 3005 n = strcspn (*mangled, cplus_markers); 3006 } 3007 string_appendn (declp, *mangled, n); 3008 (*mangled) += n; 3009 } 3010 3011 p = strpbrk (*mangled, cplus_markers); 3012 if (success && ((p == NULL) || (p == *mangled))) 3013 { 3014 if (p != NULL) 3015 { 3016 string_append (declp, SCOPE_STRING (work)); 3017 (*mangled)++; 3018 } 3019 } 3020 else 3021 { 3022 success = 0; 3023 break; 3024 } 3025 } 3026 if (success) 3027 string_append (declp, " virtual table"); 3028 } 3029 else if ((*mangled)[0] == '_' 3030 && (strchr("0123456789Qt", (*mangled)[1]) != NULL) 3031 && (p = strpbrk (*mangled, cplus_markers)) != NULL) 3032 { 3033 /* static data member, "_3foo$varname" for example */ 3034 (*mangled)++; 3035 switch (**mangled) 3036 { 3037 case 'Q': 3038 case 'K': 3039 success = demangle_qualified (work, mangled, declp, 0, 1); 3040 break; 3041 case 't': 3042 success = demangle_template (work, mangled, declp, 0, 1, 1); 3043 break; 3044 default: 3045 n = consume_count (mangled); 3046 if (n < 0 || n > (long) strlen (*mangled)) 3047 { 3048 success = 0; 3049 break; 3050 } 3051 3052 if (n > 10 && strncmp (*mangled, "_GLOBAL_", 8) == 0 3053 && (*mangled)[9] == 'N' 3054 && (*mangled)[8] == (*mangled)[10] 3055 && strchr (cplus_markers, (*mangled)[8])) 3056 { 3057 /* A member of the anonymous namespace. There's information 3058 about what identifier or filename it was keyed to, but 3059 it's just there to make the mangled name unique; we just 3060 step over it. */ 3061 string_append (declp, "{anonymous}"); 3062 (*mangled) += n; 3063 3064 /* Now p points to the marker before the N, so we need to 3065 update it to the first marker after what we consumed. */ 3066 p = strpbrk (*mangled, cplus_markers); 3067 break; 3068 } 3069 3070 string_appendn (declp, *mangled, n); 3071 (*mangled) += n; 3072 } 3073 if (success && (p == *mangled)) 3074 { 3075 /* Consumed everything up to the cplus_marker, append the 3076 variable name. */ 3077 (*mangled)++; 3078 string_append (declp, SCOPE_STRING (work)); 3079 n = strlen (*mangled); 3080 string_appendn (declp, *mangled, n); 3081 (*mangled) += n; 3082 } 3083 else 3084 { 3085 success = 0; 3086 } 3087 } 3088 else if (strncmp (*mangled, "__thunk_", 8) == 0) 3089 { 3090 int delta; 3091 3092 (*mangled) += 8; 3093 delta = consume_count (mangled); 3094 if (delta == -1) 3095 success = 0; 3096 else 3097 { 3098 char *method = internal_cplus_demangle (work, ++*mangled); 3099 3100 if (method) 3101 { 3102 char buf[50]; 3103 sprintf (buf, "virtual function thunk (delta:%d) for ", -delta); 3104 string_append (declp, buf); 3105 string_append (declp, method); 3106 free (method); 3107 n = strlen (*mangled); 3108 (*mangled) += n; 3109 } 3110 else 3111 { 3112 success = 0; 3113 } 3114 } 3115 } 3116 else if (strncmp (*mangled, "__t", 3) == 0 3117 && ((*mangled)[3] == 'i' || (*mangled)[3] == 'f')) 3118 { 3119 p = (*mangled)[3] == 'i' ? " type_info node" : " type_info function"; 3120 (*mangled) += 4; 3121 switch (**mangled) 3122 { 3123 case 'Q': 3124 case 'K': 3125 success = demangle_qualified (work, mangled, declp, 0, 1); 3126 break; 3127 case 't': 3128 success = demangle_template (work, mangled, declp, 0, 1, 1); 3129 break; 3130 default: 3131 success = do_type (work, mangled, declp); 3132 break; 3133 } 3134 if (success && **mangled != '\0') 3135 success = 0; 3136 if (success) 3137 string_append (declp, p); 3138 } 3139 else 3140 { 3141 success = 0; 3142 } 3143 return (success); 3144 } 3145 3146 static void 3147 recursively_demangle(struct work_stuff *work, const char **mangled, 3148 string *result, int namelength) 3149 { 3150 char * recurse = (char *)NULL; 3151 char * recurse_dem = (char *)NULL; 3152 3153 recurse = XNEWVEC (char, namelength + 1); 3154 memcpy (recurse, *mangled, namelength); 3155 recurse[namelength] = '\000'; 3156 3157 recurse_dem = cplus_demangle (recurse, work->options); 3158 3159 if (recurse_dem) 3160 { 3161 string_append (result, recurse_dem); 3162 free (recurse_dem); 3163 } 3164 else 3165 { 3166 string_appendn (result, *mangled, namelength); 3167 } 3168 free (recurse); 3169 *mangled += namelength; 3170 } 3171 3172 /* 3173 3174 LOCAL FUNCTION 3175 3176 arm_special -- special handling of ARM/lucid mangled strings 3177 3178 SYNOPSIS 3179 3180 static int 3181 arm_special (const char **mangled, 3182 string *declp); 3183 3184 3185 DESCRIPTION 3186 3187 Process some special ARM style mangling forms that don't fit 3188 the normal pattern. For example: 3189 3190 __vtbl__3foo (foo virtual table) 3191 __vtbl__3foo__3bar (bar::foo virtual table) 3192 3193 */ 3194 3195 static int 3196 arm_special (const char **mangled, string *declp) 3197 { 3198 int n; 3199 int success = 1; 3200 const char *scan; 3201 3202 if (strncmp (*mangled, ARM_VTABLE_STRING, ARM_VTABLE_STRLEN) == 0) 3203 { 3204 /* Found a ARM style virtual table, get past ARM_VTABLE_STRING 3205 and create the decl. Note that we consume the entire mangled 3206 input string, which means that demangle_signature has no work 3207 to do. */ 3208 scan = *mangled + ARM_VTABLE_STRLEN; 3209 while (*scan != '\0') /* first check it can be demangled */ 3210 { 3211 n = consume_count (&scan); 3212 if (n == -1) 3213 { 3214 return (0); /* no good */ 3215 } 3216 scan += n; 3217 if (scan[0] == '_' && scan[1] == '_') 3218 { 3219 scan += 2; 3220 } 3221 } 3222 (*mangled) += ARM_VTABLE_STRLEN; 3223 while (**mangled != '\0') 3224 { 3225 n = consume_count (mangled); 3226 if (n == -1 3227 || n > (long) strlen (*mangled)) 3228 return 0; 3229 string_prependn (declp, *mangled, n); 3230 (*mangled) += n; 3231 if ((*mangled)[0] == '_' && (*mangled)[1] == '_') 3232 { 3233 string_prepend (declp, "::"); 3234 (*mangled) += 2; 3235 } 3236 } 3237 string_append (declp, " virtual table"); 3238 } 3239 else 3240 { 3241 success = 0; 3242 } 3243 return (success); 3244 } 3245 3246 /* 3247 3248 LOCAL FUNCTION 3249 3250 demangle_qualified -- demangle 'Q' qualified name strings 3251 3252 SYNOPSIS 3253 3254 static int 3255 demangle_qualified (struct work_stuff *, const char *mangled, 3256 string *result, int isfuncname, int append); 3257 3258 DESCRIPTION 3259 3260 Demangle a qualified name, such as "Q25Outer5Inner" which is 3261 the mangled form of "Outer::Inner". The demangled output is 3262 prepended or appended to the result string according to the 3263 state of the append flag. 3264 3265 If isfuncname is nonzero, then the qualified name we are building 3266 is going to be used as a member function name, so if it is a 3267 constructor or destructor function, append an appropriate 3268 constructor or destructor name. I.E. for the above example, 3269 the result for use as a constructor is "Outer::Inner::Inner" 3270 and the result for use as a destructor is "Outer::Inner::~Inner". 3271 3272 BUGS 3273 3274 Numeric conversion is ASCII dependent (FIXME). 3275 3276 */ 3277 3278 static int 3279 demangle_qualified (struct work_stuff *work, const char **mangled, 3280 string *result, int isfuncname, int append) 3281 { 3282 int qualifiers = 0; 3283 int success = 1; 3284 char num[2]; 3285 string temp; 3286 string last_name; 3287 int bindex = register_Btype (work); 3288 3289 /* We only make use of ISFUNCNAME if the entity is a constructor or 3290 destructor. */ 3291 isfuncname = (isfuncname 3292 && ((work->constructor & 1) || (work->destructor & 1))); 3293 3294 string_init (&temp); 3295 string_init (&last_name); 3296 3297 if ((*mangled)[0] == 'K') 3298 { 3299 /* Squangling qualified name reuse */ 3300 int idx; 3301 (*mangled)++; 3302 idx = consume_count_with_underscores (mangled); 3303 if (idx == -1 || idx >= work -> numk) 3304 success = 0; 3305 else 3306 string_append (&temp, work -> ktypevec[idx]); 3307 } 3308 else 3309 switch ((*mangled)[1]) 3310 { 3311 case '_': 3312 /* GNU mangled name with more than 9 classes. The count is preceded 3313 by an underscore (to distinguish it from the <= 9 case) and followed 3314 by an underscore. */ 3315 (*mangled)++; 3316 qualifiers = consume_count_with_underscores (mangled); 3317 if (qualifiers == -1) 3318 success = 0; 3319 break; 3320 3321 case '1': 3322 case '2': 3323 case '3': 3324 case '4': 3325 case '5': 3326 case '6': 3327 case '7': 3328 case '8': 3329 case '9': 3330 /* The count is in a single digit. */ 3331 num[0] = (*mangled)[1]; 3332 num[1] = '\0'; 3333 qualifiers = atoi (num); 3334 3335 /* If there is an underscore after the digit, skip it. This is 3336 said to be for ARM-qualified names, but the ARM makes no 3337 mention of such an underscore. Perhaps cfront uses one. */ 3338 if ((*mangled)[2] == '_') 3339 { 3340 (*mangled)++; 3341 } 3342 (*mangled) += 2; 3343 break; 3344 3345 case '0': 3346 default: 3347 success = 0; 3348 } 3349 3350 if (!success) 3351 return success; 3352 3353 /* Pick off the names and collect them in the temp buffer in the order 3354 in which they are found, separated by '::'. */ 3355 3356 while (qualifiers-- > 0) 3357 { 3358 int remember_K = 1; 3359 string_clear (&last_name); 3360 3361 if (*mangled[0] == '_') 3362 (*mangled)++; 3363 3364 if (*mangled[0] == 't') 3365 { 3366 /* Here we always append to TEMP since we will want to use 3367 the template name without the template parameters as a 3368 constructor or destructor name. The appropriate 3369 (parameter-less) value is returned by demangle_template 3370 in LAST_NAME. We do not remember the template type here, 3371 in order to match the G++ mangling algorithm. */ 3372 success = demangle_template(work, mangled, &temp, 3373 &last_name, 1, 0); 3374 if (!success) 3375 break; 3376 } 3377 else if (*mangled[0] == 'K') 3378 { 3379 int idx; 3380 (*mangled)++; 3381 idx = consume_count_with_underscores (mangled); 3382 if (idx == -1 || idx >= work->numk) 3383 success = 0; 3384 else 3385 string_append (&temp, work->ktypevec[idx]); 3386 remember_K = 0; 3387 3388 if (!success) break; 3389 } 3390 else 3391 { 3392 if (EDG_DEMANGLING) 3393 { 3394 int namelength; 3395 /* Now recursively demangle the qualifier 3396 * This is necessary to deal with templates in 3397 * mangling styles like EDG */ 3398 namelength = consume_count (mangled); 3399 if (namelength == -1) 3400 { 3401 success = 0; 3402 break; 3403 } 3404 recursively_demangle(work, mangled, &temp, namelength); 3405 } 3406 else 3407 { 3408 string_delete (&last_name); 3409 success = do_type (work, mangled, &last_name); 3410 if (!success) 3411 break; 3412 string_appends (&temp, &last_name); 3413 } 3414 } 3415 3416 if (remember_K) 3417 remember_Ktype (work, temp.b, LEN_STRING (&temp)); 3418 3419 if (qualifiers > 0) 3420 string_append (&temp, SCOPE_STRING (work)); 3421 } 3422 3423 remember_Btype (work, temp.b, LEN_STRING (&temp), bindex); 3424 3425 /* If we are using the result as a function name, we need to append 3426 the appropriate '::' separated constructor or destructor name. 3427 We do this here because this is the most convenient place, where 3428 we already have a pointer to the name and the length of the name. */ 3429 3430 if (isfuncname) 3431 { 3432 string_append (&temp, SCOPE_STRING (work)); 3433 if (work -> destructor & 1) 3434 string_append (&temp, "~"); 3435 string_appends (&temp, &last_name); 3436 } 3437 3438 /* Now either prepend the temp buffer to the result, or append it, 3439 depending upon the state of the append flag. */ 3440 3441 if (append) 3442 string_appends (result, &temp); 3443 else 3444 { 3445 if (!STRING_EMPTY (result)) 3446 string_append (&temp, SCOPE_STRING (work)); 3447 string_prepends (result, &temp); 3448 } 3449 3450 string_delete (&last_name); 3451 string_delete (&temp); 3452 return (success); 3453 } 3454 3455 /* 3456 3457 LOCAL FUNCTION 3458 3459 get_count -- convert an ascii count to integer, consuming tokens 3460 3461 SYNOPSIS 3462 3463 static int 3464 get_count (const char **type, int *count) 3465 3466 DESCRIPTION 3467 3468 Assume that *type points at a count in a mangled name; set 3469 *count to its value, and set *type to the next character after 3470 the count. There are some weird rules in effect here. 3471 3472 If *type does not point at a string of digits, return zero. 3473 3474 If *type points at a string of digits followed by an 3475 underscore, set *count to their value as an integer, advance 3476 *type to point *after the underscore, and return 1. 3477 3478 If *type points at a string of digits not followed by an 3479 underscore, consume only the first digit. Set *count to its 3480 value as an integer, leave *type pointing after that digit, 3481 and return 1. 3482 3483 The excuse for this odd behavior: in the ARM and HP demangling 3484 styles, a type can be followed by a repeat count of the form 3485 `Nxy', where: 3486 3487 `x' is a single digit specifying how many additional copies 3488 of the type to append to the argument list, and 3489 3490 `y' is one or more digits, specifying the zero-based index of 3491 the first repeated argument in the list. Yes, as you're 3492 unmangling the name you can figure this out yourself, but 3493 it's there anyway. 3494 3495 So, for example, in `bar__3fooFPiN51', the first argument is a 3496 pointer to an integer (`Pi'), and then the next five arguments 3497 are the same (`N5'), and the first repeat is the function's 3498 second argument (`1'). 3499 */ 3500 3501 static int 3502 get_count (const char **type, int *count) 3503 { 3504 const char *p; 3505 int n; 3506 3507 if (!ISDIGIT ((unsigned char)**type)) 3508 return (0); 3509 else 3510 { 3511 *count = **type - '0'; 3512 (*type)++; 3513 if (ISDIGIT ((unsigned char)**type)) 3514 { 3515 p = *type; 3516 n = *count; 3517 do 3518 { 3519 n *= 10; 3520 n += *p - '0'; 3521 p++; 3522 } 3523 while (ISDIGIT ((unsigned char)*p)); 3524 if (*p == '_') 3525 { 3526 *type = p + 1; 3527 *count = n; 3528 } 3529 } 3530 } 3531 return (1); 3532 } 3533 3534 /* RESULT will be initialised here; it will be freed on failure. The 3535 value returned is really a type_kind_t. */ 3536 3537 static int 3538 do_type (struct work_stuff *work, const char **mangled, string *result) 3539 { 3540 int n; 3541 int done; 3542 int success; 3543 string decl; 3544 const char *remembered_type; 3545 int type_quals; 3546 type_kind_t tk = tk_none; 3547 3548 string_init (&decl); 3549 string_init (result); 3550 3551 done = 0; 3552 success = 1; 3553 while (success && !done) 3554 { 3555 int member; 3556 switch (**mangled) 3557 { 3558 3559 /* A pointer type */ 3560 case 'P': 3561 case 'p': 3562 (*mangled)++; 3563 if (! (work -> options & DMGL_JAVA)) 3564 string_prepend (&decl, "*"); 3565 if (tk == tk_none) 3566 tk = tk_pointer; 3567 break; 3568 3569 /* A reference type */ 3570 case 'R': 3571 (*mangled)++; 3572 string_prepend (&decl, "&"); 3573 if (tk == tk_none) 3574 tk = tk_reference; 3575 break; 3576 3577 /* An array */ 3578 case 'A': 3579 { 3580 ++(*mangled); 3581 if (!STRING_EMPTY (&decl) 3582 && (decl.b[0] == '*' || decl.b[0] == '&')) 3583 { 3584 string_prepend (&decl, "("); 3585 string_append (&decl, ")"); 3586 } 3587 string_append (&decl, "["); 3588 if (**mangled != '_') 3589 success = demangle_template_value_parm (work, mangled, &decl, 3590 tk_integral); 3591 if (**mangled == '_') 3592 ++(*mangled); 3593 string_append (&decl, "]"); 3594 break; 3595 } 3596 3597 /* A back reference to a previously seen type */ 3598 case 'T': 3599 (*mangled)++; 3600 if (!get_count (mangled, &n) || n >= work -> ntypes) 3601 { 3602 success = 0; 3603 } 3604 else 3605 { 3606 remembered_type = work -> typevec[n]; 3607 mangled = &remembered_type; 3608 } 3609 break; 3610 3611 /* A function */ 3612 case 'F': 3613 (*mangled)++; 3614 if (!STRING_EMPTY (&decl) 3615 && (decl.b[0] == '*' || decl.b[0] == '&')) 3616 { 3617 string_prepend (&decl, "("); 3618 string_append (&decl, ")"); 3619 } 3620 /* After picking off the function args, we expect to either find the 3621 function return type (preceded by an '_') or the end of the 3622 string. */ 3623 if (!demangle_nested_args (work, mangled, &decl) 3624 || (**mangled != '_' && **mangled != '\0')) 3625 { 3626 success = 0; 3627 break; 3628 } 3629 if (success && (**mangled == '_')) 3630 (*mangled)++; 3631 break; 3632 3633 case 'M': 3634 case 'O': 3635 { 3636 type_quals = TYPE_UNQUALIFIED; 3637 3638 member = **mangled == 'M'; 3639 (*mangled)++; 3640 3641 string_append (&decl, ")"); 3642 3643 /* We don't need to prepend `::' for a qualified name; 3644 demangle_qualified will do that for us. */ 3645 if (**mangled != 'Q') 3646 string_prepend (&decl, SCOPE_STRING (work)); 3647 3648 if (ISDIGIT ((unsigned char)**mangled)) 3649 { 3650 n = consume_count (mangled); 3651 if (n == -1 3652 || (int) strlen (*mangled) < n) 3653 { 3654 success = 0; 3655 break; 3656 } 3657 string_prependn (&decl, *mangled, n); 3658 *mangled += n; 3659 } 3660 else if (**mangled == 'X' || **mangled == 'Y') 3661 { 3662 string temp; 3663 do_type (work, mangled, &temp); 3664 string_prepends (&decl, &temp); 3665 string_delete (&temp); 3666 } 3667 else if (**mangled == 't') 3668 { 3669 string temp; 3670 string_init (&temp); 3671 success = demangle_template (work, mangled, &temp, 3672 NULL, 1, 1); 3673 if (success) 3674 { 3675 string_prependn (&decl, temp.b, temp.p - temp.b); 3676 string_delete (&temp); 3677 } 3678 else 3679 { 3680 string_delete (&temp); 3681 break; 3682 } 3683 } 3684 else if (**mangled == 'Q') 3685 { 3686 success = demangle_qualified (work, mangled, &decl, 3687 /*isfuncnam=*/0, 3688 /*append=*/0); 3689 if (!success) 3690 break; 3691 } 3692 else 3693 { 3694 success = 0; 3695 break; 3696 } 3697 3698 string_prepend (&decl, "("); 3699 if (member) 3700 { 3701 switch (**mangled) 3702 { 3703 case 'C': 3704 case 'V': 3705 case 'u': 3706 type_quals |= code_for_qualifier (**mangled); 3707 (*mangled)++; 3708 break; 3709 3710 default: 3711 break; 3712 } 3713 3714 if (*(*mangled)++ != 'F') 3715 { 3716 success = 0; 3717 break; 3718 } 3719 } 3720 if ((member && !demangle_nested_args (work, mangled, &decl)) 3721 || **mangled != '_') 3722 { 3723 success = 0; 3724 break; 3725 } 3726 (*mangled)++; 3727 if (! PRINT_ANSI_QUALIFIERS) 3728 { 3729 break; 3730 } 3731 if (type_quals != TYPE_UNQUALIFIED) 3732 { 3733 APPEND_BLANK (&decl); 3734 string_append (&decl, qualifier_string (type_quals)); 3735 } 3736 break; 3737 } 3738 case 'G': 3739 (*mangled)++; 3740 break; 3741 3742 case 'C': 3743 case 'V': 3744 case 'u': 3745 if (PRINT_ANSI_QUALIFIERS) 3746 { 3747 if (!STRING_EMPTY (&decl)) 3748 string_prepend (&decl, " "); 3749 3750 string_prepend (&decl, demangle_qualifier (**mangled)); 3751 } 3752 (*mangled)++; 3753 break; 3754 /* 3755 } 3756 */ 3757 3758 /* fall through */ 3759 default: 3760 done = 1; 3761 break; 3762 } 3763 } 3764 3765 if (success) switch (**mangled) 3766 { 3767 /* A qualified name, such as "Outer::Inner". */ 3768 case 'Q': 3769 case 'K': 3770 { 3771 success = demangle_qualified (work, mangled, result, 0, 1); 3772 break; 3773 } 3774 3775 /* A back reference to a previously seen squangled type */ 3776 case 'B': 3777 (*mangled)++; 3778 if (!get_count (mangled, &n) || n >= work -> numb) 3779 success = 0; 3780 else 3781 string_append (result, work->btypevec[n]); 3782 break; 3783 3784 case 'X': 3785 case 'Y': 3786 /* A template parm. We substitute the corresponding argument. */ 3787 { 3788 int idx; 3789 3790 (*mangled)++; 3791 idx = consume_count_with_underscores (mangled); 3792 3793 if (idx == -1 3794 || (work->tmpl_argvec && idx >= work->ntmpl_args) 3795 || consume_count_with_underscores (mangled) == -1) 3796 { 3797 success = 0; 3798 break; 3799 } 3800 3801 if (work->tmpl_argvec) 3802 string_append (result, work->tmpl_argvec[idx]); 3803 else 3804 string_append_template_idx (result, idx); 3805 3806 success = 1; 3807 } 3808 break; 3809 3810 default: 3811 success = demangle_fund_type (work, mangled, result); 3812 if (tk == tk_none) 3813 tk = (type_kind_t) success; 3814 break; 3815 } 3816 3817 if (success) 3818 { 3819 if (!STRING_EMPTY (&decl)) 3820 { 3821 string_append (result, " "); 3822 string_appends (result, &decl); 3823 } 3824 } 3825 else 3826 string_delete (result); 3827 string_delete (&decl); 3828 3829 if (success) 3830 /* Assume an integral type, if we're not sure. */ 3831 return (int) ((tk == tk_none) ? tk_integral : tk); 3832 else 3833 return 0; 3834 } 3835 3836 /* Given a pointer to a type string that represents a fundamental type 3837 argument (int, long, unsigned int, etc) in TYPE, a pointer to the 3838 string in which the demangled output is being built in RESULT, and 3839 the WORK structure, decode the types and add them to the result. 3840 3841 For example: 3842 3843 "Ci" => "const int" 3844 "Sl" => "signed long" 3845 "CUs" => "const unsigned short" 3846 3847 The value returned is really a type_kind_t. */ 3848 3849 static int 3850 demangle_fund_type (struct work_stuff *work, 3851 const char **mangled, string *result) 3852 { 3853 int done = 0; 3854 int success = 1; 3855 char buf[INTBUF_SIZE + 5 /* 'int%u_t' */]; 3856 unsigned int dec = 0; 3857 type_kind_t tk = tk_integral; 3858 3859 /* First pick off any type qualifiers. There can be more than one. */ 3860 3861 while (!done) 3862 { 3863 switch (**mangled) 3864 { 3865 case 'C': 3866 case 'V': 3867 case 'u': 3868 if (PRINT_ANSI_QUALIFIERS) 3869 { 3870 if (!STRING_EMPTY (result)) 3871 string_prepend (result, " "); 3872 string_prepend (result, demangle_qualifier (**mangled)); 3873 } 3874 (*mangled)++; 3875 break; 3876 case 'U': 3877 (*mangled)++; 3878 APPEND_BLANK (result); 3879 string_append (result, "unsigned"); 3880 break; 3881 case 'S': /* signed char only */ 3882 (*mangled)++; 3883 APPEND_BLANK (result); 3884 string_append (result, "signed"); 3885 break; 3886 case 'J': 3887 (*mangled)++; 3888 APPEND_BLANK (result); 3889 string_append (result, "__complex"); 3890 break; 3891 default: 3892 done = 1; 3893 break; 3894 } 3895 } 3896 3897 /* Now pick off the fundamental type. There can be only one. */ 3898 3899 switch (**mangled) 3900 { 3901 case '\0': 3902 case '_': 3903 break; 3904 case 'v': 3905 (*mangled)++; 3906 APPEND_BLANK (result); 3907 string_append (result, "void"); 3908 break; 3909 case 'x': 3910 (*mangled)++; 3911 APPEND_BLANK (result); 3912 string_append (result, "long long"); 3913 break; 3914 case 'l': 3915 (*mangled)++; 3916 APPEND_BLANK (result); 3917 string_append (result, "long"); 3918 break; 3919 case 'i': 3920 (*mangled)++; 3921 APPEND_BLANK (result); 3922 string_append (result, "int"); 3923 break; 3924 case 's': 3925 (*mangled)++; 3926 APPEND_BLANK (result); 3927 string_append (result, "short"); 3928 break; 3929 case 'b': 3930 (*mangled)++; 3931 APPEND_BLANK (result); 3932 string_append (result, "bool"); 3933 tk = tk_bool; 3934 break; 3935 case 'c': 3936 (*mangled)++; 3937 APPEND_BLANK (result); 3938 string_append (result, "char"); 3939 tk = tk_char; 3940 break; 3941 case 'w': 3942 (*mangled)++; 3943 APPEND_BLANK (result); 3944 string_append (result, "wchar_t"); 3945 tk = tk_char; 3946 break; 3947 case 'r': 3948 (*mangled)++; 3949 APPEND_BLANK (result); 3950 string_append (result, "long double"); 3951 tk = tk_real; 3952 break; 3953 case 'd': 3954 (*mangled)++; 3955 APPEND_BLANK (result); 3956 string_append (result, "double"); 3957 tk = tk_real; 3958 break; 3959 case 'f': 3960 (*mangled)++; 3961 APPEND_BLANK (result); 3962 string_append (result, "float"); 3963 tk = tk_real; 3964 break; 3965 case 'G': 3966 (*mangled)++; 3967 if (!ISDIGIT ((unsigned char)**mangled)) 3968 { 3969 success = 0; 3970 break; 3971 } 3972 case 'I': 3973 (*mangled)++; 3974 if (**mangled == '_') 3975 { 3976 int i; 3977 (*mangled)++; 3978 for (i = 0; 3979 i < (long) sizeof (buf) - 1 && **mangled && **mangled != '_'; 3980 (*mangled)++, i++) 3981 buf[i] = **mangled; 3982 if (**mangled != '_') 3983 { 3984 success = 0; 3985 break; 3986 } 3987 buf[i] = '\0'; 3988 (*mangled)++; 3989 } 3990 else 3991 { 3992 strncpy (buf, *mangled, 2); 3993 buf[2] = '\0'; 3994 *mangled += min (strlen (*mangled), 2); 3995 } 3996 sscanf (buf, "%x", &dec); 3997 sprintf (buf, "int%u_t", dec); 3998 APPEND_BLANK (result); 3999 string_append (result, buf); 4000 break; 4001 4002 /* fall through */ 4003 /* An explicit type, such as "6mytype" or "7integer" */ 4004 case '0': 4005 case '1': 4006 case '2': 4007 case '3': 4008 case '4': 4009 case '5': 4010 case '6': 4011 case '7': 4012 case '8': 4013 case '9': 4014 { 4015 int bindex = register_Btype (work); 4016 string btype; 4017 string_init (&btype); 4018 if (demangle_class_name (work, mangled, &btype)) { 4019 remember_Btype (work, btype.b, LEN_STRING (&btype), bindex); 4020 APPEND_BLANK (result); 4021 string_appends (result, &btype); 4022 } 4023 else 4024 success = 0; 4025 string_delete (&btype); 4026 break; 4027 } 4028 case 't': 4029 { 4030 string btype; 4031 string_init (&btype); 4032 success = demangle_template (work, mangled, &btype, 0, 1, 1); 4033 string_appends (result, &btype); 4034 string_delete (&btype); 4035 break; 4036 } 4037 default: 4038 success = 0; 4039 break; 4040 } 4041 4042 return success ? ((int) tk) : 0; 4043 } 4044 4045 4046 /* Handle a template's value parameter for HP aCC (extension from ARM) 4047 **mangled points to 'S' or 'U' */ 4048 4049 static int 4050 do_hpacc_template_const_value (struct work_stuff *work ATTRIBUTE_UNUSED, 4051 const char **mangled, string *result) 4052 { 4053 int unsigned_const; 4054 4055 if (**mangled != 'U' && **mangled != 'S') 4056 return 0; 4057 4058 unsigned_const = (**mangled == 'U'); 4059 4060 (*mangled)++; 4061 4062 switch (**mangled) 4063 { 4064 case 'N': 4065 string_append (result, "-"); 4066 /* fall through */ 4067 case 'P': 4068 (*mangled)++; 4069 break; 4070 case 'M': 4071 /* special case for -2^31 */ 4072 string_append (result, "-2147483648"); 4073 (*mangled)++; 4074 return 1; 4075 default: 4076 return 0; 4077 } 4078 4079 /* We have to be looking at an integer now */ 4080 if (!(ISDIGIT ((unsigned char)**mangled))) 4081 return 0; 4082 4083 /* We only deal with integral values for template 4084 parameters -- so it's OK to look only for digits */ 4085 while (ISDIGIT ((unsigned char)**mangled)) 4086 { 4087 char_str[0] = **mangled; 4088 string_append (result, char_str); 4089 (*mangled)++; 4090 } 4091 4092 if (unsigned_const) 4093 string_append (result, "U"); 4094 4095 /* FIXME? Some day we may have 64-bit (or larger :-) ) constants 4096 with L or LL suffixes. pai/1997-09-03 */ 4097 4098 return 1; /* success */ 4099 } 4100 4101 /* Handle a template's literal parameter for HP aCC (extension from ARM) 4102 **mangled is pointing to the 'A' */ 4103 4104 static int 4105 do_hpacc_template_literal (struct work_stuff *work, const char **mangled, 4106 string *result) 4107 { 4108 int literal_len = 0; 4109 char * recurse; 4110 char * recurse_dem; 4111 4112 if (**mangled != 'A') 4113 return 0; 4114 4115 (*mangled)++; 4116 4117 literal_len = consume_count (mangled); 4118 4119 if (literal_len <= 0) 4120 return 0; 4121 4122 /* Literal parameters are names of arrays, functions, etc. and the 4123 canonical representation uses the address operator */ 4124 string_append (result, "&"); 4125 4126 /* Now recursively demangle the literal name */ 4127 recurse = XNEWVEC (char, literal_len + 1); 4128 memcpy (recurse, *mangled, literal_len); 4129 recurse[literal_len] = '\000'; 4130 4131 recurse_dem = cplus_demangle (recurse, work->options); 4132 4133 if (recurse_dem) 4134 { 4135 string_append (result, recurse_dem); 4136 free (recurse_dem); 4137 } 4138 else 4139 { 4140 string_appendn (result, *mangled, literal_len); 4141 } 4142 (*mangled) += literal_len; 4143 free (recurse); 4144 4145 return 1; 4146 } 4147 4148 static int 4149 snarf_numeric_literal (const char **args, string *arg) 4150 { 4151 if (**args == '-') 4152 { 4153 char_str[0] = '-'; 4154 string_append (arg, char_str); 4155 (*args)++; 4156 } 4157 else if (**args == '+') 4158 (*args)++; 4159 4160 if (!ISDIGIT ((unsigned char)**args)) 4161 return 0; 4162 4163 while (ISDIGIT ((unsigned char)**args)) 4164 { 4165 char_str[0] = **args; 4166 string_append (arg, char_str); 4167 (*args)++; 4168 } 4169 4170 return 1; 4171 } 4172 4173 /* Demangle the next argument, given by MANGLED into RESULT, which 4174 *should be an uninitialized* string. It will be initialized here, 4175 and free'd should anything go wrong. */ 4176 4177 static int 4178 do_arg (struct work_stuff *work, const char **mangled, string *result) 4179 { 4180 /* Remember where we started so that we can record the type, for 4181 non-squangling type remembering. */ 4182 const char *start = *mangled; 4183 4184 string_init (result); 4185 4186 if (work->nrepeats > 0) 4187 { 4188 --work->nrepeats; 4189 4190 if (work->previous_argument == 0) 4191 return 0; 4192 4193 /* We want to reissue the previous type in this argument list. */ 4194 string_appends (result, work->previous_argument); 4195 return 1; 4196 } 4197 4198 if (**mangled == 'n') 4199 { 4200 /* A squangling-style repeat. */ 4201 (*mangled)++; 4202 work->nrepeats = consume_count(mangled); 4203 4204 if (work->nrepeats <= 0) 4205 /* This was not a repeat count after all. */ 4206 return 0; 4207 4208 if (work->nrepeats > 9) 4209 { 4210 if (**mangled != '_') 4211 /* The repeat count should be followed by an '_' in this 4212 case. */ 4213 return 0; 4214 else 4215 (*mangled)++; 4216 } 4217 4218 /* Now, the repeat is all set up. */ 4219 return do_arg (work, mangled, result); 4220 } 4221 4222 /* Save the result in WORK->previous_argument so that we can find it 4223 if it's repeated. Note that saving START is not good enough: we 4224 do not want to add additional types to the back-referenceable 4225 type vector when processing a repeated type. */ 4226 if (work->previous_argument) 4227 string_delete (work->previous_argument); 4228 else 4229 work->previous_argument = XNEW (string); 4230 4231 if (!do_type (work, mangled, work->previous_argument)) 4232 return 0; 4233 4234 string_appends (result, work->previous_argument); 4235 4236 remember_type (work, start, *mangled - start); 4237 return 1; 4238 } 4239 4240 static void 4241 remember_type (struct work_stuff *work, const char *start, int len) 4242 { 4243 char *tem; 4244 4245 if (work->forgetting_types) 4246 return; 4247 4248 if (work -> ntypes >= work -> typevec_size) 4249 { 4250 if (work -> typevec_size == 0) 4251 { 4252 work -> typevec_size = 3; 4253 work -> typevec = XNEWVEC (char *, work->typevec_size); 4254 } 4255 else 4256 { 4257 work -> typevec_size *= 2; 4258 work -> typevec 4259 = XRESIZEVEC (char *, work->typevec, work->typevec_size); 4260 } 4261 } 4262 tem = XNEWVEC (char, len + 1); 4263 memcpy (tem, start, len); 4264 tem[len] = '\0'; 4265 work -> typevec[work -> ntypes++] = tem; 4266 } 4267 4268 4269 /* Remember a K type class qualifier. */ 4270 static void 4271 remember_Ktype (struct work_stuff *work, const char *start, int len) 4272 { 4273 char *tem; 4274 4275 if (work -> numk >= work -> ksize) 4276 { 4277 if (work -> ksize == 0) 4278 { 4279 work -> ksize = 5; 4280 work -> ktypevec = XNEWVEC (char *, work->ksize); 4281 } 4282 else 4283 { 4284 work -> ksize *= 2; 4285 work -> ktypevec 4286 = XRESIZEVEC (char *, work->ktypevec, work->ksize); 4287 } 4288 } 4289 tem = XNEWVEC (char, len + 1); 4290 memcpy (tem, start, len); 4291 tem[len] = '\0'; 4292 work -> ktypevec[work -> numk++] = tem; 4293 } 4294 4295 /* Register a B code, and get an index for it. B codes are registered 4296 as they are seen, rather than as they are completed, so map<temp<char> > 4297 registers map<temp<char> > as B0, and temp<char> as B1 */ 4298 4299 static int 4300 register_Btype (struct work_stuff *work) 4301 { 4302 int ret; 4303 4304 if (work -> numb >= work -> bsize) 4305 { 4306 if (work -> bsize == 0) 4307 { 4308 work -> bsize = 5; 4309 work -> btypevec = XNEWVEC (char *, work->bsize); 4310 } 4311 else 4312 { 4313 work -> bsize *= 2; 4314 work -> btypevec 4315 = XRESIZEVEC (char *, work->btypevec, work->bsize); 4316 } 4317 } 4318 ret = work -> numb++; 4319 work -> btypevec[ret] = NULL; 4320 return(ret); 4321 } 4322 4323 /* Store a value into a previously registered B code type. */ 4324 4325 static void 4326 remember_Btype (struct work_stuff *work, const char *start, 4327 int len, int index) 4328 { 4329 char *tem; 4330 4331 tem = XNEWVEC (char, len + 1); 4332 memcpy (tem, start, len); 4333 tem[len] = '\0'; 4334 work -> btypevec[index] = tem; 4335 } 4336 4337 /* Lose all the info related to B and K type codes. */ 4338 static void 4339 forget_B_and_K_types (struct work_stuff *work) 4340 { 4341 int i; 4342 4343 while (work -> numk > 0) 4344 { 4345 i = --(work -> numk); 4346 if (work -> ktypevec[i] != NULL) 4347 { 4348 free (work -> ktypevec[i]); 4349 work -> ktypevec[i] = NULL; 4350 } 4351 } 4352 4353 while (work -> numb > 0) 4354 { 4355 i = --(work -> numb); 4356 if (work -> btypevec[i] != NULL) 4357 { 4358 free (work -> btypevec[i]); 4359 work -> btypevec[i] = NULL; 4360 } 4361 } 4362 } 4363 /* Forget the remembered types, but not the type vector itself. */ 4364 4365 static void 4366 forget_types (struct work_stuff *work) 4367 { 4368 int i; 4369 4370 while (work -> ntypes > 0) 4371 { 4372 i = --(work -> ntypes); 4373 if (work -> typevec[i] != NULL) 4374 { 4375 free (work -> typevec[i]); 4376 work -> typevec[i] = NULL; 4377 } 4378 } 4379 } 4380 4381 /* Process the argument list part of the signature, after any class spec 4382 has been consumed, as well as the first 'F' character (if any). For 4383 example: 4384 4385 "__als__3fooRT0" => process "RT0" 4386 "complexfunc5__FPFPc_PFl_i" => process "PFPc_PFl_i" 4387 4388 DECLP must be already initialised, usually non-empty. It won't be freed 4389 on failure. 4390 4391 Note that g++ differs significantly from ARM and lucid style mangling 4392 with regards to references to previously seen types. For example, given 4393 the source fragment: 4394 4395 class foo { 4396 public: 4397 foo::foo (int, foo &ia, int, foo &ib, int, foo &ic); 4398 }; 4399 4400 foo::foo (int, foo &ia, int, foo &ib, int, foo &ic) { ia = ib = ic; } 4401 void foo (int, foo &ia, int, foo &ib, int, foo &ic) { ia = ib = ic; } 4402 4403 g++ produces the names: 4404 4405 __3fooiRT0iT2iT2 4406 foo__FiR3fooiT1iT1 4407 4408 while lcc (and presumably other ARM style compilers as well) produces: 4409 4410 foo__FiR3fooT1T2T1T2 4411 __ct__3fooFiR3fooT1T2T1T2 4412 4413 Note that g++ bases its type numbers starting at zero and counts all 4414 previously seen types, while lucid/ARM bases its type numbers starting 4415 at one and only considers types after it has seen the 'F' character 4416 indicating the start of the function args. For lucid/ARM style, we 4417 account for this difference by discarding any previously seen types when 4418 we see the 'F' character, and subtracting one from the type number 4419 reference. 4420 4421 */ 4422 4423 static int 4424 demangle_args (struct work_stuff *work, const char **mangled, 4425 string *declp) 4426 { 4427 string arg; 4428 int need_comma = 0; 4429 int r; 4430 int t; 4431 const char *tem; 4432 char temptype; 4433 4434 if (PRINT_ARG_TYPES) 4435 { 4436 string_append (declp, "("); 4437 if (**mangled == '\0') 4438 { 4439 string_append (declp, "void"); 4440 } 4441 } 4442 4443 while ((**mangled != '_' && **mangled != '\0' && **mangled != 'e') 4444 || work->nrepeats > 0) 4445 { 4446 if ((**mangled == 'N') || (**mangled == 'T')) 4447 { 4448 temptype = *(*mangled)++; 4449 4450 if (temptype == 'N') 4451 { 4452 if (!get_count (mangled, &r)) 4453 { 4454 return (0); 4455 } 4456 } 4457 else 4458 { 4459 r = 1; 4460 } 4461 if ((HP_DEMANGLING || ARM_DEMANGLING || EDG_DEMANGLING) && work -> ntypes >= 10) 4462 { 4463 /* If we have 10 or more types we might have more than a 1 digit 4464 index so we'll have to consume the whole count here. This 4465 will lose if the next thing is a type name preceded by a 4466 count but it's impossible to demangle that case properly 4467 anyway. Eg if we already have 12 types is T12Pc "(..., type1, 4468 Pc, ...)" or "(..., type12, char *, ...)" */ 4469 if ((t = consume_count(mangled)) <= 0) 4470 { 4471 return (0); 4472 } 4473 } 4474 else 4475 { 4476 if (!get_count (mangled, &t)) 4477 { 4478 return (0); 4479 } 4480 } 4481 if (LUCID_DEMANGLING || ARM_DEMANGLING || HP_DEMANGLING || EDG_DEMANGLING) 4482 { 4483 t--; 4484 } 4485 /* Validate the type index. Protect against illegal indices from 4486 malformed type strings. */ 4487 if ((t < 0) || (t >= work -> ntypes)) 4488 { 4489 return (0); 4490 } 4491 while (work->nrepeats > 0 || --r >= 0) 4492 { 4493 tem = work -> typevec[t]; 4494 if (need_comma && PRINT_ARG_TYPES) 4495 { 4496 string_append (declp, ", "); 4497 } 4498 if (!do_arg (work, &tem, &arg)) 4499 { 4500 return (0); 4501 } 4502 if (PRINT_ARG_TYPES) 4503 { 4504 string_appends (declp, &arg); 4505 } 4506 string_delete (&arg); 4507 need_comma = 1; 4508 } 4509 } 4510 else 4511 { 4512 if (need_comma && PRINT_ARG_TYPES) 4513 string_append (declp, ", "); 4514 if (!do_arg (work, mangled, &arg)) 4515 return (0); 4516 if (PRINT_ARG_TYPES) 4517 string_appends (declp, &arg); 4518 string_delete (&arg); 4519 need_comma = 1; 4520 } 4521 } 4522 4523 if (**mangled == 'e') 4524 { 4525 (*mangled)++; 4526 if (PRINT_ARG_TYPES) 4527 { 4528 if (need_comma) 4529 { 4530 string_append (declp, ","); 4531 } 4532 string_append (declp, "..."); 4533 } 4534 } 4535 4536 if (PRINT_ARG_TYPES) 4537 { 4538 string_append (declp, ")"); 4539 } 4540 return (1); 4541 } 4542 4543 /* Like demangle_args, but for demangling the argument lists of function 4544 and method pointers or references, not top-level declarations. */ 4545 4546 static int 4547 demangle_nested_args (struct work_stuff *work, const char **mangled, 4548 string *declp) 4549 { 4550 string* saved_previous_argument; 4551 int result; 4552 int saved_nrepeats; 4553 4554 /* The G++ name-mangling algorithm does not remember types on nested 4555 argument lists, unless -fsquangling is used, and in that case the 4556 type vector updated by remember_type is not used. So, we turn 4557 off remembering of types here. */ 4558 ++work->forgetting_types; 4559 4560 /* For the repeat codes used with -fsquangling, we must keep track of 4561 the last argument. */ 4562 saved_previous_argument = work->previous_argument; 4563 saved_nrepeats = work->nrepeats; 4564 work->previous_argument = 0; 4565 work->nrepeats = 0; 4566 4567 /* Actually demangle the arguments. */ 4568 result = demangle_args (work, mangled, declp); 4569 4570 /* Restore the previous_argument field. */ 4571 if (work->previous_argument) 4572 { 4573 string_delete (work->previous_argument); 4574 free ((char *) work->previous_argument); 4575 } 4576 work->previous_argument = saved_previous_argument; 4577 --work->forgetting_types; 4578 work->nrepeats = saved_nrepeats; 4579 4580 return result; 4581 } 4582 4583 /* Returns 1 if a valid function name was found or 0 otherwise. */ 4584 4585 static int 4586 demangle_function_name (struct work_stuff *work, const char **mangled, 4587 string *declp, const char *scan) 4588 { 4589 size_t i; 4590 string type; 4591 const char *tem; 4592 4593 string_appendn (declp, (*mangled), scan - (*mangled)); 4594 string_need (declp, 1); 4595 *(declp -> p) = '\0'; 4596 4597 /* Consume the function name, including the "__" separating the name 4598 from the signature. We are guaranteed that SCAN points to the 4599 separator. */ 4600 4601 (*mangled) = scan + 2; 4602 /* We may be looking at an instantiation of a template function: 4603 foo__Xt1t2_Ft3t4, where t1, t2, ... are template arguments and a 4604 following _F marks the start of the function arguments. Handle 4605 the template arguments first. */ 4606 4607 if (HP_DEMANGLING && (**mangled == 'X')) 4608 { 4609 demangle_arm_hp_template (work, mangled, 0, declp); 4610 /* This leaves MANGLED pointing to the 'F' marking func args */ 4611 } 4612 4613 if (LUCID_DEMANGLING || ARM_DEMANGLING || HP_DEMANGLING || EDG_DEMANGLING) 4614 { 4615 4616 /* See if we have an ARM style constructor or destructor operator. 4617 If so, then just record it, clear the decl, and return. 4618 We can't build the actual constructor/destructor decl until later, 4619 when we recover the class name from the signature. */ 4620 4621 if (strcmp (declp -> b, "__ct") == 0) 4622 { 4623 work -> constructor += 1; 4624 string_clear (declp); 4625 return 1; 4626 } 4627 else if (strcmp (declp -> b, "__dt") == 0) 4628 { 4629 work -> destructor += 1; 4630 string_clear (declp); 4631 return 1; 4632 } 4633 } 4634 4635 if (declp->p - declp->b >= 3 4636 && declp->b[0] == 'o' 4637 && declp->b[1] == 'p' 4638 && strchr (cplus_markers, declp->b[2]) != NULL) 4639 { 4640 /* see if it's an assignment expression */ 4641 if (declp->p - declp->b >= 10 /* op$assign_ */ 4642 && memcmp (declp->b + 3, "assign_", 7) == 0) 4643 { 4644 for (i = 0; i < ARRAY_SIZE (optable); i++) 4645 { 4646 int len = declp->p - declp->b - 10; 4647 if ((int) strlen (optable[i].in) == len 4648 && memcmp (optable[i].in, declp->b + 10, len) == 0) 4649 { 4650 string_clear (declp); 4651 string_append (declp, "operator"); 4652 string_append (declp, optable[i].out); 4653 string_append (declp, "="); 4654 break; 4655 } 4656 } 4657 } 4658 else 4659 { 4660 for (i = 0; i < ARRAY_SIZE (optable); i++) 4661 { 4662 int len = declp->p - declp->b - 3; 4663 if ((int) strlen (optable[i].in) == len 4664 && memcmp (optable[i].in, declp->b + 3, len) == 0) 4665 { 4666 string_clear (declp); 4667 string_append (declp, "operator"); 4668 string_append (declp, optable[i].out); 4669 break; 4670 } 4671 } 4672 } 4673 } 4674 else if (declp->p - declp->b >= 5 && memcmp (declp->b, "type", 4) == 0 4675 && strchr (cplus_markers, declp->b[4]) != NULL) 4676 { 4677 /* type conversion operator */ 4678 tem = declp->b + 5; 4679 if (do_type (work, &tem, &type)) 4680 { 4681 string_clear (declp); 4682 string_append (declp, "operator "); 4683 string_appends (declp, &type); 4684 string_delete (&type); 4685 } 4686 } 4687 else if (declp->b[0] == '_' && declp->b[1] == '_' 4688 && declp->b[2] == 'o' && declp->b[3] == 'p') 4689 { 4690 /* ANSI. */ 4691 /* type conversion operator. */ 4692 tem = declp->b + 4; 4693 if (do_type (work, &tem, &type)) 4694 { 4695 string_clear (declp); 4696 string_append (declp, "operator "); 4697 string_appends (declp, &type); 4698 string_delete (&type); 4699 } 4700 } 4701 else if (declp->b[0] == '_' && declp->b[1] == '_' 4702 && ISLOWER((unsigned char)declp->b[2]) 4703 && ISLOWER((unsigned char)declp->b[3])) 4704 { 4705 if (declp->b[4] == '\0') 4706 { 4707 /* Operator. */ 4708 for (i = 0; i < ARRAY_SIZE (optable); i++) 4709 { 4710 if (strlen (optable[i].in) == 2 4711 && memcmp (optable[i].in, declp->b + 2, 2) == 0) 4712 { 4713 string_clear (declp); 4714 string_append (declp, "operator"); 4715 string_append (declp, optable[i].out); 4716 break; 4717 } 4718 } 4719 } 4720 else 4721 { 4722 if (declp->b[2] == 'a' && declp->b[5] == '\0') 4723 { 4724 /* Assignment. */ 4725 for (i = 0; i < ARRAY_SIZE (optable); i++) 4726 { 4727 if (strlen (optable[i].in) == 3 4728 && memcmp (optable[i].in, declp->b + 2, 3) == 0) 4729 { 4730 string_clear (declp); 4731 string_append (declp, "operator"); 4732 string_append (declp, optable[i].out); 4733 break; 4734 } 4735 } 4736 } 4737 } 4738 } 4739 4740 /* If a function name was obtained but it's not valid, we were not 4741 successful. */ 4742 if (LEN_STRING (declp) == 1 && declp->b[0] == '.') 4743 return 0; 4744 else 4745 return 1; 4746 } 4747 4748 /* a mini string-handling package */ 4749 4750 static void 4751 string_need (string *s, int n) 4752 { 4753 int tem; 4754 4755 if (s->b == NULL) 4756 { 4757 if (n < 32) 4758 { 4759 n = 32; 4760 } 4761 s->p = s->b = XNEWVEC (char, n); 4762 s->e = s->b + n; 4763 } 4764 else if (s->e - s->p < n) 4765 { 4766 tem = s->p - s->b; 4767 n += tem; 4768 n *= 2; 4769 s->b = XRESIZEVEC (char, s->b, n); 4770 s->p = s->b + tem; 4771 s->e = s->b + n; 4772 } 4773 } 4774 4775 static void 4776 string_delete (string *s) 4777 { 4778 if (s->b != NULL) 4779 { 4780 free (s->b); 4781 s->b = s->e = s->p = NULL; 4782 } 4783 } 4784 4785 static void 4786 string_init (string *s) 4787 { 4788 s->b = s->p = s->e = NULL; 4789 } 4790 4791 static void 4792 string_clear (string *s) 4793 { 4794 s->p = s->b; 4795 } 4796 4797 #if 0 4798 4799 static int 4800 string_empty (string *s) 4801 { 4802 return (s->b == s->p); 4803 } 4804 4805 #endif 4806 4807 static void 4808 string_append (string *p, const char *s) 4809 { 4810 int n; 4811 if (s == NULL || *s == '\0') 4812 return; 4813 n = strlen (s); 4814 string_need (p, n); 4815 memcpy (p->p, s, n); 4816 p->p += n; 4817 } 4818 4819 static void 4820 string_appends (string *p, string *s) 4821 { 4822 int n; 4823 4824 if (s->b != s->p) 4825 { 4826 n = s->p - s->b; 4827 string_need (p, n); 4828 memcpy (p->p, s->b, n); 4829 p->p += n; 4830 } 4831 } 4832 4833 static void 4834 string_appendn (string *p, const char *s, int n) 4835 { 4836 if (n != 0) 4837 { 4838 string_need (p, n); 4839 memcpy (p->p, s, n); 4840 p->p += n; 4841 } 4842 } 4843 4844 static void 4845 string_prepend (string *p, const char *s) 4846 { 4847 if (s != NULL && *s != '\0') 4848 { 4849 string_prependn (p, s, strlen (s)); 4850 } 4851 } 4852 4853 static void 4854 string_prepends (string *p, string *s) 4855 { 4856 if (s->b != s->p) 4857 { 4858 string_prependn (p, s->b, s->p - s->b); 4859 } 4860 } 4861 4862 static void 4863 string_prependn (string *p, const char *s, int n) 4864 { 4865 char *q; 4866 4867 if (n != 0) 4868 { 4869 string_need (p, n); 4870 for (q = p->p - 1; q >= p->b; q--) 4871 { 4872 q[n] = q[0]; 4873 } 4874 memcpy (p->b, s, n); 4875 p->p += n; 4876 } 4877 } 4878 4879 static void 4880 string_append_template_idx (string *s, int idx) 4881 { 4882 char buf[INTBUF_SIZE + 1 /* 'T' */]; 4883 sprintf(buf, "T%d", idx); 4884 string_append (s, buf); 4885 } 4886