gdb/testsuite/gdb.cp/demangle.exp

   1 # Copyright (C) 1992, 1997, 1999, 2003 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 2 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program; if not, write to the Free Software
  15 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  16
  17 # Please email any bugs, comments, and/or additions to this file to:
  18 # bug-gdb@prep.ai.mit.edu
  19
  20 # This file was written by Fred Fish. (fnf@cygnus.com)
  21
  22 if $tracelevel then {
  23     strace $tracelevel
  24 }
  25
  26 if { [skip_cplus_tests] } { continue }
  27
  28 ### The demangling style we last sent to GDB.
  29 set current_demangling_style none
  30
  31 ### Set GDB's current demangling style to STYLE.  Subsequent calls to
  32 ### test_demangle will include STYLE in the test name when reporting
  33 ### passes and failures.
  34 proc set_demangling_style {style} {
  35     global gdb_prompt
  36     global current_demangling_style
  37
  38     send_gdb "set demangle-style $style\n"
  39     gdb_expect {
  40         -re "set demangle-style $style\[\r\n\]+$gdb_prompt $" {
  41             pass "$style: set demangle-style"
  42         }
  43         -re ".*$gdb_prompt $" {
  44             fail "$style: set demangle-style"
  45             error "set_demangling_style: set style"
  46         }
  47         timeout {
  48             fail "$style: set demangle-style (timeout)"
  49             error "set_demangling_style: set style"
  50         }
  51     }
  52
  53     send_gdb "show demangle-style\n"
  54     gdb_expect {
  55         -re "The current C\[+\]+ demangling style is \"$style\".\r\n$gdb_prompt $" {
  56             pass "$style: check demangling style"
  57         }
  58         -re ".*$gdb_prompt $" {
  59             fail "$style: check demangling style"
  60             error "set_demangling_style: check style"
  61         }
  62         timeout {
  63             fail "$style: check demangling style (timeout)"
  64             error "set_demangling_style: check style"
  65         }
  66     }
  67
  68     set current_demangling_style $style
  69 }
  70
  71
  72 ### Utility function for test_demangling and test_demangling_exact.
  73 proc test_demangling_core {tester test result} {
  74     global current_demangling_style
  75
  76     if {! [regexp {^([^ ]+): (.+)$} $test dummy style name]} {
  77       error "bad test name passed to test_demangling"
  78     }
  79
  80     if {[string compare $style $current_demangling_style]} {
  81         set_demangling_style $style
  82     }
  83
  84     $tester "maintenance demangle $name" $result $test
  85 }
  86
  87 ### Demangle an identifier, and check that the result matches a pattern.
  88 ###
  89 ### TEST should be of the form "STYLE: NAME", where STYLE is the name
  90 ### of a demangling style (like "gnu" or "arm"), and NAME is a mangled
  91 ### identifier to demangle.  Pass when the result matches the regular
  92 ### expression RESULT.  Report passes and fails using TEST as the name
  93 ### of the test.
  94 ###
  95 ### Why don't we just pass the STYLE and NAME as two separate
  96 ### arguments, or let the style be a global variable?  That would be
  97 ### cleaner.  However, doing it this way means that:
  98 ###
  99 ### 1) the name of the test, as recorded in the summary and log,
 100 ### appears verbatim in the script, and
 101 ###
 102 ### 2) that test names are unique, even though we try to demangle the same
 103 ### identifiers using several different mangling styles.
 104 ###
 105 ### This makes it a lot easier for people tracking down failures to
 106 ### find the one they care about.
 107
 108 proc test_demangling {test result} {
 109     test_demangling_core gdb_test $test $result
 110 }
 111
 112 ### Like test_demangling, above, except that RESULT is not a regexp,
 113 ### but a string that must match exactly.
 114
 115 proc test_demangling_exact {test result} {
 116     test_demangling_core gdb_test_exact $test $result
 117 }
 118
 119
 120
 121 #
 122 #  Test gnu style name demangling
 123 #
 124
 125 proc test_gnu_style_demangling {} {
 126     global gdb_prompt
 127
 128     test_demangling "gnu: Abort__FP6EditoriPCc" \
 129         "Abort\[(\]+Editor \[*\]+, int, (const char|char const) \[*\]+\[)\]+"
 130     test_demangling_exact "gnu: AddAlignment__9ivTSolverUiP12ivInteractorP7ivTGlue" "ivTSolver::AddAlignment(unsigned int, ivInteractor *, ivTGlue *)"
 131     test_demangling "gnu: Append__15NameChooserViewPCc" \
 132         "NameChooserView::Append\[(\]+(const char|char const) \[*\]+\[)\]+"
 133     test_demangling_exact "gnu: ArrowheadIntersects__9ArrowLineP9ArrowheadR6BoxObjP7Graphic" "ArrowLine::ArrowheadIntersects(Arrowhead *, BoxObj &, Graphic *)"
 134     test_demangling_exact "gnu: AtEnd__13ivRubberGroup" "ivRubberGroup::AtEnd(void)"
 135     test_demangling_exact "gnu: BgFilter__9ivTSolverP12ivInteractor" "ivTSolver::BgFilter(ivInteractor *)"
 136     test_demangling "gnu: BitPatterntoa__FRC10BitPatternccc" \
 137         "BitPatterntoa\[(\]+(const BitPattern|BitPattern const) &, char, char, char\[)\]+"
 138     test_demangling_exact "gnu: Check__6UArrayi" "UArray::Check(int)"
 139     test_demangling_exact "gnu: CoreConstDecls__8TextCodeR7ostream" "TextCode::CoreConstDecls(ostream &)"
 140     test_demangling_exact "gnu: Detach__8StateVarP12StateVarView" "StateVar::Detach(StateVarView *)"
 141     test_demangling_exact "gnu: Done__9ComponentG8Iterator" "Component::Done(Iterator)"
 142     test_demangling "gnu: DrawDestinationTransformedImage__FP7_XImageiiT0iiUlUiiiUiUlUlP4_XGCRC13ivTransformeriiii" \
 143         "DrawDestinationTransformedImage\[(\]+_XImage \[*\]+, int, int, _XImage \[*\]+, int, int, unsigned long, unsigned int, int, int, unsigned int, unsigned long, unsigned long, _XGC \[*\]+, (const ivTransformer|ivTransformer const) &, int, int, int, int\[)\]+"
 144
 145     test_demangling "gnu: Edit__12StringEditorPCcii" \
 146         "StringEditor::Edit\[(\]+(const char|char const) \[*\]+, int, int\[)\]+"
 147     test_demangling_exact "gnu: Effect__11RelateManipR7ivEvent" "RelateManip::Effect(ivEvent &)"
 148     test_demangling "gnu: FilterName__FPCc" \
 149         "FilterName\[(\]+(const char|char const) \[*\]+\[)\]+"
 150     test_demangling "gnu: Filter__6PSTextPCci" \
 151         "PSText::Filter\[(\]+(const char|char const) \[*\]+, int\[)\]+"
 152     test_demangling "gnu: FindColor__7CatalogPCciii" \
 153         "Catalog::FindColor\[(\]+(const char|char const) \[*\]+, int, int, int\[)\]+"
 154     test_demangling_exact "gnu: FindFixed__FRP4CNetP4CNet" "FindFixed(CNet *&, CNet *)"
 155     test_demangling "gnu: FindFont__7CatalogPCcN21" \
 156         "Catalog::FindFont\[(\]+(const char|char const) \[*\]+, (const char|char const) \[*\]+, (const char|char const) \[*\]+\[)\]+"
 157     test_demangling_exact "gnu: Fix48_abort__FR8twolongs" "Fix48_abort(twolongs &)"
 158     test_demangling_exact "gnu: GetBarInfo__15iv2_6_VScrollerP13ivPerspectiveRiT2" "iv2_6_VScroller::GetBarInfo(ivPerspective *, int &, int &)"
 159     test_demangling_exact "gnu: GetBgColor__C9ivPainter" "ivPainter::GetBgColor(void) const"
 160
 161     test_demangling "gnu: Iisdouble__FPC6IntRep" \
 162         "Iisdouble\[(\]+(const IntRep|IntRep const) \[*\]+\[)\]+"
 163     test_demangling_exact "gnu: InsertBody__15H_PullrightMenuii" "H_PullrightMenu::InsertBody(int, int)"
 164     test_demangling_exact "gnu: InsertCharacter__9TextManipc" "TextManip::InsertCharacter(char)"
 165
 166     test_demangling_exact "gnu: InsertToplevel__7ivWorldP12ivInteractorT1" "ivWorld::InsertToplevel(ivInteractor *, ivInteractor *)"
 167     test_demangling_exact "gnu: InsertToplevel__7ivWorldP12ivInteractorT1iiUi" "ivWorld::InsertToplevel(ivInteractor *, ivInteractor *, int, int, unsigned int)"
 168     test_demangling "gnu: IsADirectory__FPCcR4stat" \
 169         "IsADirectory\[(\]+(const char|char const) \[*\]+, stat &\[)\]+"
 170     test_demangling_exact "gnu: IsAGroup__FP11GraphicViewP11GraphicComp" "IsAGroup(GraphicView *, GraphicComp *)"
 171     test_demangling_exact "gnu: IsA__10ButtonCodeUl" "ButtonCode::IsA(unsigned long)"
 172
 173     test_demangling_exact "gnu: ReadName__FR7istreamPc" "ReadName(istream &, char *)"
 174     test_demangling_exact "gnu: Redraw__13StringBrowseriiii" "StringBrowser::Redraw(int, int, int, int)"
 175     test_demangling_exact "gnu: Rotate__13ivTransformerf" "ivTransformer::Rotate(float)"
 176     test_demangling_exact "gnu: Rotated__C13ivTransformerf" "ivTransformer::Rotated(float) const"
 177     test_demangling_exact "gnu: Round__Ff" "Round(float)"
 178
 179     test_demangling_exact "gnu: SetExport__16MemberSharedNameUi" "MemberSharedName::SetExport(unsigned int)"
 180     test_demangling_exact "gnu: Set__14ivControlState13ControlStatusUi" "ivControlState::Set(ControlStatus, unsigned int)"
 181     test_demangling_exact "gnu: Set__5DFacePcii" "DFace::Set(char *, int, int)"
 182
 183     test_demangling_exact "gnu: VConvert__9ivTSolverP12ivInteractorRP8TElementT2" "ivTSolver::VConvert(ivInteractor *, TElement *&, TElement *&)"
 184     test_demangling_exact "gnu: VConvert__9ivTSolverP7ivTGlueRP8TElement" "ivTSolver::VConvert(ivTGlue *, TElement *&)"
 185     test_demangling_exact "gnu: VOrder__9ivTSolverUiRP12ivInteractorT2" "ivTSolver::VOrder(unsigned int, ivInteractor *&, ivInteractor *&)"
 186     test_demangling "gnu: Valid__7CatalogPCcRP4Tool" \
 187         "Catalog::Valid\[(\]+(const char|char const) \[*\]+, Tool \[*\]+&\[)\]+"
 188     test_demangling_exact "gnu: _10PageButton\$__both" "PageButton::__both"
 189     test_demangling_exact "gnu: _3RNG\$singleMantissa" "RNG::singleMantissa"
 190     test_demangling_exact "gnu: _5IComp\$_release" "IComp::_release"
 191     test_demangling_exact "gnu: _\$_10BitmapComp" "BitmapComp::~BitmapComp(void)"
 192
 193     test_demangling_exact "gnu: _\$_9__io_defs" "__io_defs::~__io_defs(void)"
 194     test_demangling_exact "gnu: _\$_Q23foo3bar" "foo::bar::~bar(void)"
 195     test_demangling_exact "gnu: _\$_Q33foo3bar4bell" "foo::bar::bell::~bell(void)"
 196     test_demangling_exact "gnu: __10ivTelltaleiP7ivGlyph" "ivTelltale::ivTelltale(int, ivGlyph *)"
 197     test_demangling_exact "gnu: __10ivViewportiP12ivInteractorUi" "ivViewport::ivViewport(int, ivInteractor *, unsigned int)"
 198     test_demangling_exact "gnu: __10ostrstream" "ostrstream::ostrstream(void)"
 199     test_demangling_exact "gnu: __10ostrstreamPcii" "ostrstream::ostrstream(char *, int, int)"
 200     test_demangling "gnu: __11BasicDialogiPCcP13ivButtonStateN22Ui" \
 201         "BasicDialog::BasicDialog\[(\]+int, (const char|char const) \[*\]+, ivButtonState \[*\]+, (const char|char const) \[*\]+, (const char|char const) \[*\]+, unsigned int\[)\]+"
 202     test_demangling_exact "gnu: __11BitmapTablei" "BitmapTable::BitmapTable(int)"
 203     test_demangling_exact "gnu: __12ViewportCodeP12ViewportComp" "ViewportCode::ViewportCode(ViewportComp *)"
 204     test_demangling "gnu: __12iv2_6_BorderiPCci" \
 205         "iv2_6_Border::iv2_6_Border\[(\]+int, (const char|char const) \[*\]+, int\[)\]+"
 206     test_demangling_exact "gnu: __12iv2_6_Borderii" "iv2_6_Border::iv2_6_Border(int, int)"
 207     test_demangling "gnu: __12ivBackgroundiP7ivGlyphPC7ivColor" \
 208         "ivBackground::ivBackground\[(\]+int, ivGlyph \[*\]+, (const ivColor|ivColor const) \[*\]+\[)\]+"
 209     test_demangling_exact "gnu: __12ivBreak_Listl" "ivBreak_List::ivBreak_List(long)"
 210     test_demangling "gnu: __14TextInteractoriPCcUi" \
 211         "TextInteractor::TextInteractor\[(\]+int, (const char|char const) \[*\]+, unsigned int\[)\]+"
 212     test_demangling_exact "gnu: __14iv2_6_MenuItemiP12ivInteractor" "iv2_6_MenuItem::iv2_6_MenuItem(int, ivInteractor *)"
 213     test_demangling "gnu: __14iv2_6_MenuItemiPCcP12ivInteractor" \
 214         "iv2_6_MenuItem::iv2_6_MenuItem\[(\]+int, (const char|char const) \[*\]+, ivInteractor \[*\]+\[)\]+"
 215
 216     test_demangling_exact "gnu: __20DisplayList_IteratorR11DisplayList" "DisplayList_Iterator::DisplayList_Iterator(DisplayList &)"
 217     test_demangling_exact "gnu: __3fooRT0" "foo::foo(foo &)"
 218     test_demangling_exact "gnu: __3fooiN31" "foo::foo(int, int, int, int)"
 219     test_demangling "gnu: __3fooiPCc" \
 220         "foo::foo\[(\]+int, (const char|char const) \[*\]+\[)\]+"
 221     test_demangling_exact "gnu: __3fooiRT0iT2iT2" "foo::foo(int, foo &, int, foo &, int, foo &)"
 222     test_demangling "gnu: __6GetOptiPPcPCc" \
 223         "GetOpt::GetOpt\[(\]+int, char \[*\]+\[*\]+, (const char|char const) \[*\]+\[)\]+"
 224     test_demangling_exact "gnu: __6KeyMapPT0" "KeyMap::KeyMap(KeyMap *)"
 225     test_demangling "gnu: __7ivWorldPCcRiPPcPC12ivOptionDescPC14ivPropertyData" \
 226         "ivWorld::ivWorld\[(\]+(const char|char const) \[*\]+, int &, char \[*\]+\[*\]+, (const ivOptionDesc|ivOptionDesc const) \[*\]+, (const ivPropertyData|ivPropertyData const) \[*\]+\[)\]+"
 227     test_demangling "gnu: __7procbufPCci" \
 228         "procbuf::procbuf\[(\]+(const char|char const) \[*\]+, int\[)\]+"
 229     test_demangling_exact "gnu: __8ArrowCmdP6EditorUiUi" "ArrowCmd::ArrowCmd(Editor *, unsigned int, unsigned int)"
 230
 231     test_demangling_exact "gnu: __9F_EllipseiiiiP7Graphic" "F_Ellipse::F_Ellipse(int, int, int, int, Graphic *)"
 232     test_demangling_exact "gnu: __9FrameDataP9FrameCompi" "FrameData::FrameData(FrameComp *, int)"
 233     test_demangling_exact "gnu: __9HVGraphicP9CanvasVarP7Graphic" "HVGraphic::HVGraphic(CanvasVar *, Graphic *)"
 234     test_demangling_exact "gnu: __Q23foo3bar" "foo::bar::bar(void)"
 235     test_demangling_exact "gnu: __Q33foo3bar4bell" "foo::bar::bell::bell(void)"
 236     test_demangling_exact "gnu: __aa__3fooRT0" "foo::operator&&(foo &)"
 237     test_demangling_exact "gnu: __aad__3fooRT0" "foo::operator&=(foo &)"
 238     test_demangling_exact "gnu: __ad__3fooRT0" "foo::operator&(foo &)"
 239     test_demangling_exact "gnu: __adv__3fooRT0" "foo::operator/=(foo &)"
 240     test_demangling_exact "gnu: __aer__3fooRT0" "foo::operator^=(foo &)"
 241     test_demangling_exact "gnu: __als__3fooRT0" "foo::operator<<=(foo &)"
 242     test_demangling_exact "gnu: __amd__3fooRT0" "foo::operator%=(foo &)"
 243     test_demangling_exact "gnu: __ami__3fooRT0" "foo::operator-=(foo &)"
 244     test_demangling_exact "gnu: __aml__3FixRT0" "Fix::operator*=(Fix &)"
 245     test_demangling_exact "gnu: __aml__5Fix16i" "Fix16::operator*=(int)"
 246     test_demangling_exact "gnu: __aml__5Fix32RT0" "Fix32::operator*=(Fix32 &)"
 247     test_demangling_exact "gnu: __aor__3fooRT0" "foo::operator|=(foo &)"
 248     test_demangling_exact "gnu: __apl__3fooRT0" "foo::operator+=(foo &)"
 249     test_demangling_exact "gnu: __ars__3fooRT0" "foo::operator>>=(foo &)"
 250
 251     test_demangling_exact "gnu: __as__3fooRT0" "foo::operator=(foo &)"
 252     test_demangling_exact "gnu: __cl__3fooRT0" "foo::operator()(foo &)"
 253     test_demangling_exact "gnu: __cl__6Normal" "Normal::operator()(void)"
 254     test_demangling_exact "gnu: __cl__6Stringii" "String::operator()(int, int)"
 255     test_demangling_exact "gnu: __cm__3fooRT0" "foo::operator, (foo &)"
 256     test_demangling_exact "gnu: __co__3foo" "foo::operator~(void)"
 257     test_demangling_exact "gnu: __dl__3fooPv" "foo::operator delete(void *)"
 258     test_demangling_exact "gnu: __dv__3fooRT0" "foo::operator/(foo &)"
 259     test_demangling_exact "gnu: __eq__3fooRT0" "foo::operator==(foo &)"
 260     test_demangling_exact "gnu: __er__3fooRT0" "foo::operator^(foo &)"
 261     test_demangling_exact "gnu: __ge__3fooRT0" "foo::operator>=(foo &)"
 262     test_demangling_exact "gnu: __gt__3fooRT0" "foo::operator>(foo &)"
 263     test_demangling_exact "gnu: __le__3fooRT0" "foo::operator<=(foo &)"
 264     test_demangling_exact "gnu: __ls__3fooRT0" "foo::operator<<(foo &)"
 265     test_demangling_exact "gnu: __ls__FR7ostreamPFR3ios_R3ios" "operator<<(ostream &, ios &(*)(ios &))"
 266     test_demangling_exact "gnu: __ls__FR7ostreamR3Fix" "operator<<(ostream &, Fix &)"
 267     test_demangling_exact "gnu: __lt__3fooRT0" "foo::operator<(foo &)"
 268     test_demangling_exact "gnu: __md__3fooRT0" "foo::operator%(foo &)"
 269     test_demangling_exact "gnu: __mi__3fooRT0" "foo::operator-(foo &)"
 270     test_demangling_exact "gnu: __ml__3fooRT0" "foo::operator*(foo &)"
 271     test_demangling_exact "gnu: __mm__3fooi" "foo::operator--(int)"
 272
 273     test_demangling_exact "gnu: __ne__3fooRT0" "foo::operator!=(foo &)"
 274     test_demangling "gnu: __ne__FRC7ComplexT0" \
 275         "operator!=\[(\]+(const Complex|Complex const) &, (const Complex|Complex const) &\[)\]+"
 276     test_demangling "gnu: __ne__FRC7Complexd" \
 277         "operator!=\[(\]+(const Complex|Complex const) &, double\[)\]+"
 278     test_demangling "gnu: __ne__FRC9SubStringRC6String" \
 279         "operator!=\[(\]+(const SubString|SubString const) &, (const String|String const) &\[)\]+"
 280     test_demangling_exact "gnu: __nt__3foo" "foo::operator!(void)"
 281     test_demangling_exact "gnu: __nw__3fooi" "foo::operator new(int)"
 282     test_demangling_exact "gnu: __oo__3fooRT0" "foo::operator||(foo &)"
 283     test_demangling_exact "gnu: __opPc__3foo" "foo::operator char *(void)"
 284     test_demangling_exact "gnu: __opi__3foo" "foo::operator int(void)"
 285     test_demangling_exact "gnu: __or__3fooRT0" "foo::operator|(foo &)"
 286     test_demangling_exact "gnu: __pl__3fooRT0" "foo::operator+(foo &)"
 287     test_demangling_exact "gnu: __pp__3fooi" "foo::operator++(int)"
 288     test_demangling_exact "gnu: __rf__3foo" "foo::operator->(void)"
 289     test_demangling_exact "gnu: __rm__3fooRT0" "foo::operator->*(foo &)"
 290     test_demangling_exact "gnu: __rs__3fooRT0" "foo::operator>>(foo &)"
 291     test_demangling "gnu: __vc__3fooRT0" "foo::operator\\\[\\\]\\(foo &\\)"
 292     test_demangling "gnu: _gsub__6StringRC5RegexPCci" \
 293         "String::_gsub\[(\]+(const Regex|Regex const) &, (const char|char const) \[*\]+, int\[)\]+"
 294     test_demangling_exact "gnu: _new_Fix__FUs" "_new_Fix(unsigned short)"
 295
 296     # gcc 2.4.5 (and earlier) style virtual tables.  We want to continue to
 297     # correctly demangle these even if newer compilers use a different form.
 298     test_demangling_exact "gnu: _vt.foo" "foo virtual table"
 299     test_demangling_exact "gnu: _vt.foo.bar" "foo::bar virtual table"
 300     test_demangling_exact "gnu: _vt\$foo" "foo virtual table"
 301     test_demangling_exact "gnu: _vt\$foo\$bar" "foo::bar virtual table"
 302
 303     test_demangling_exact "gnu: append__7ivGlyphPT0" "ivGlyph::append(ivGlyph *)"
 304     test_demangling "gnu: arg__FRC7Complex" \
 305         "arg\[(\]+(const Complex|Complex const) &\[)\]+"
 306     test_demangling_exact "gnu: clearok__FP7_win_sti" "clearok(_win_st *, int)"
 307
 308     test_demangling_exact "gnu: complexfunc2__FPFPc_i" "complexfunc2(int (*)(char *))"
 309     test_demangling_exact "gnu: complexfunc3__FPFPFPl_s_i" "complexfunc3(int (*)(short (*)(long *)))"
 310     test_demangling_exact "gnu: complexfunc4__FPFPFPc_s_i" "complexfunc4(int (*)(short (*)(char *)))"
 311     test_demangling_exact "gnu: complexfunc5__FPFPc_PFl_i" "complexfunc5(int (*(*)(char *))(long))"
 312     test_demangling_exact "gnu: complexfunc6__FPFPi_PFl_i" "complexfunc6(int (*(*)(int *))(long))"
 313     test_demangling_exact "gnu: complexfunc7__FPFPFPc_i_PFl_i" "complexfunc7(int (*(*)(int (*)(char *)))(long))"
 314     test_demangling "gnu: contains__C9BitStringRC10BitPattern" \
 315         "BitString::contains\[(\]+(const BitPattern|BitPattern const) &\[)\]+ const"
 316     test_demangling "gnu: contains__C9BitStringRC12BitSubStringi" \
 317         "BitString::contains\[(\]+(const BitSubString|BitSubString const) &, int\[)\]+ const"
 318     test_demangling "gnu: contains__C9BitStringRT0" \
 319         "BitString::contains\[(\]+(const BitString|BitString const) &\[)\]+ const"
 320     test_demangling "gnu: div__FPC6IntRepT0P6IntRep" \
 321         "div\[(\]+(const IntRep|IntRep const) \[*\]+, (const IntRep|IntRep const) \[*\]+, IntRep \[*\]+\[)\]+"
 322     test_demangling "gnu: div__FPC6IntReplP6IntRep" \
 323         "div\[(\]+(const IntRep|IntRep const) \[*\]+, long, IntRep \[*\]+\[)\]+"
 324     test_demangling "gnu: div__FRC8RationalT0R8Rational" \
 325         "div\[(\]+(const Rational|Rational const) &, (const Rational|Rational const) &, Rational &\[)\]+"
 326     test_demangling "gnu: divide__FRC7IntegerT0R7IntegerT2" \
 327         "divide\[(\]+(const Integer|Integer const) &, (const Integer|Integer const) &, Integer &, Integer &\[)\]+"
 328     test_demangling "gnu: divide__FRC7IntegerlR7IntegerRl" \
 329         "divide\[(\]+(const Integer|Integer const) &, long, Integer &, long &\[)\]+"
 330     test_demangling "gnu: enable__14DocumentViewerPCcUi" \
 331         "DocumentViewer::enable\[(\]+(const char|char const) \[*\]+, unsigned int\[)\]+"
 332
 333     test_demangling_exact "gnu: foo__FiN30" "foo(int, int, int, int)"
 334     test_demangling_exact "gnu: foo__FiR3fooiT1iT1" "foo(int, foo &, int, foo &, int, foo &)"
 335     test_demangling_exact "gnu: foo___3barl" "bar::foo_(long)"
 336     test_demangling_exact "gnu: insert__15ivClippingStacklRP8_XRegion" "ivClippingStack::insert(long, _XRegion *&)"
 337     test_demangling_exact "gnu: insert__16ChooserInfo_ListlR11ChooserInfo" "ChooserInfo_List::insert(long, ChooserInfo &)"
 338     test_demangling_exact "gnu: insert__17FontFamilyRepListlRP15ivFontFamilyRep" "FontFamilyRepList::insert(long, ivFontFamilyRep *&)"
 339     test_demangling_exact "gnu: leaveok__FP7_win_stc" "leaveok(_win_st *, char)"
 340     test_demangling_exact "gnu: left_mover__C7ivMFKitP12ivAdjustableP7ivStyle" "ivMFKit::left_mover(ivAdjustable *, ivStyle *) const"
 341     test_demangling "gnu: matches__C9BitStringRC10BitPatterni" \
 342         "BitString::matches\[(\]+(const BitPattern|BitPattern const) &, int\[)\]+ const"
 343     test_demangling "gnu: matches__C9SubStringRC5Regex" \
 344         "SubString::matches\[(\]+(const Regex|Regex const) &\[)\]+ const"
 345
 346     test_demangling_exact "gnu: overload1arg__FSc" "overload1arg(signed char)"
 347     test_demangling_exact "gnu: overload1arg__FUc" "overload1arg(unsigned char)"
 348     test_demangling_exact "gnu: overload1arg__FUi" "overload1arg(unsigned int)"
 349     test_demangling_exact "gnu: overload1arg__FUl" "overload1arg(unsigned long)"
 350     test_demangling_exact "gnu: overload1arg__FUs" "overload1arg(unsigned short)"
 351     test_demangling_exact "gnu: overload1arg__Fc" "overload1arg(char)"
 352     test_demangling_exact "gnu: overload1arg__Fd" "overload1arg(double)"
 353     test_demangling_exact "gnu: overload1arg__Ff" "overload1arg(float)"
 354     test_demangling_exact "gnu: overload1arg__Fi" "overload1arg(int)"
 355     test_demangling_exact "gnu: overload1arg__Fl" "overload1arg(long)"
 356     test_demangling_exact "gnu: overload1arg__Fs" "overload1arg(short)"
 357     test_demangling_exact "gnu: overload1arg__Fv" "overload1arg(void)"
 358     test_demangling_exact "gnu: overloadargs__Fi" "overloadargs(int)"
 359     test_demangling_exact "gnu: overloadargs__Fii" "overloadargs(int, int)"
 360     test_demangling_exact "gnu: overloadargs__Fiii" "overloadargs(int, int, int)"
 361     test_demangling_exact "gnu: overloadargs__Fiiii" "overloadargs(int, int, int, int)"
 362
 363     test_demangling_exact "gnu: overloadargs__Fiiiii" "overloadargs(int, int, int, int, int)"
 364     test_demangling_exact "gnu: overloadargs__Fiiiiii" "overloadargs(int, int, int, int, int, int)"
 365     test_demangling_exact "gnu: overloadargs__Fiiiiiii" "overloadargs(int, int, int, int, int, int, int)"
 366     test_demangling_exact "gnu: overloadargs__Fiiiiiiii" "overloadargs(int, int, int, int, int, int, int, int)"
 367     test_demangling_exact "gnu: overloadargs__Fiiiiiiiii" "overloadargs(int, int, int, int, int, int, int, int, int)"
 368     test_demangling_exact "gnu: overloadargs__Fiiiiiiiiii" "overloadargs(int, int, int, int, int, int, int, int, int, int)"
 369     test_demangling_exact "gnu: overloadargs__Fiiiiiiiiiii" "overloadargs(int, int, int, int, int, int, int, int, int, int, int)"
 370     test_demangling "gnu: pick__13ivCompositionP8ivCanvasRC12ivAllocationiR5ivHit" \
 371         "ivComposition::pick\[(\]+ivCanvas \[*\]+, (const ivAllocation|ivAllocation const) &, int, ivHit &\[)\]+"
 372     test_demangling "gnu: pointer__C11ivHScrollerRC7ivEventRC12ivAllocation" \
 373         "ivHScroller::pointer\[(\]+(const ivEvent|ivEvent const) &, (const ivAllocation|ivAllocation const) &\[)\]+ const"
 374     test_demangling_exact "gnu: poke__8ivRasterUlUlffff" "ivRaster::poke(unsigned long, unsigned long, float, float, float, float)"
 375     test_demangling_exact "gnu: polar__Fdd" "polar(double, double)"
 376     test_demangling "gnu: read__10osStdInputRPCc" \
 377         "osStdInput::read\[(\]+(const char|char const) \[*\]+&\[)\]+"
 378
 379     test_demangling_exact "gnu: scale__13ivTransformerff" "ivTransformer::scale(float, float)"
 380     test_demangling "gnu: scanw__12CursesWindowPCce" \
 381         "CursesWindow::scanw\[(\]+(const char|char const) \[*\]+,...\[)\]+"
 382     test_demangling "gnu: scmp__FPCcT0" \
 383         "scmp\[(\]+(const char|char const) \[*\]+, (const char|char const) \[*\]+\[)\]+"
 384     test_demangling_exact "gnu: sgetn__7filebufPci" "filebuf::sgetn(char *, int)"
 385     test_demangling_exact "gnu: shift__FP5_FrepiT0" "shift(_Frep *, int, _Frep *)"
 386     test_demangling_exact "gnu: test__C6BitSeti" "BitSet::test(int) const"
 387     test_demangling_exact "gnu: test__C6BitSetii" "BitSet::test(int, int) const"
 388     test_demangling "gnu: testbit__FRC7Integerl" \
 389         "testbit\[(\]+(const Integer|Integer const) &, long\[)\]+"
 390     test_demangling_exact "gnu: text_source__8Documentl" "Document::text_source(long)"
 391     test_demangling_exact "gnu: variance__6Erlangd" "Erlang::variance(double)"
 392     test_demangling "gnu: vform__8iostreamPCcPc" \
 393         "iostream::vform\[(\]+(const char|char const) \[*\]+, char \[*\]+\[)\]+"
 394     test_demangling_exact "gnu: view__14DocumentViewerP8ItemViewP11TabularItem" "DocumentViewer::view(ItemView *, TabularItem *)"
 395     test_demangling_exact "gnu: xy_extents__11ivExtensionffff" "ivExtension::xy_extents(float, float, float, float)"
 396     test_demangling_exact "gnu: zero__8osMemoryPvUi" "osMemory::zero(void *, unsigned int)"
 397     test_demangling_exact "gnu: _2T4\$N" "T4::N"
 398     test_demangling_exact "gnu: _Q22T42t1\$N" "T4::t1::N"
 399     test_demangling_exact "gnu: get__2T1" "T1::get(void)"
 400     test_demangling_exact "gnu: get__Q22T11a" "T1::a::get(void)"
 401     test_demangling_exact "gnu: get__Q32T11a1b" "T1::a::b::get(void)"
 402     test_demangling_exact "gnu: get__Q42T11a1b1c" "T1::a::b::c::get(void)"
 403     test_demangling_exact "gnu: get__Q52T11a1b1c1d" "T1::a::b::c::d::get(void)"
 404     test_demangling_exact "gnu: put__2T1i" "T1::put(int)"
 405     test_demangling_exact "gnu: put__Q22T11ai" "T1::a::put(int)"
 406     test_demangling_exact "gnu: put__Q32T11a1bi" "T1::a::b::put(int)"
 407     test_demangling_exact "gnu: put__Q42T11a1b1ci" "T1::a::b::c::put(int)"
 408     test_demangling_exact "gnu: put__Q52T11a1b1c1di" "T1::a::b::c::d::put(int)"
 409
 410     test_demangling_exact "gnu: bar__3fooPv"       "foo::bar(void *)"
 411     test_demangling "gnu: bar__3fooPCv" \
 412         "foo::bar\[(\]+(const void|void const) *\[*\]+\[)\]+"
 413     test_demangling_exact "gnu: bar__C3fooPv"      "foo::bar(void *) const"
 414     test_demangling "gnu: bar__C3fooPCv" \
 415         "foo::bar\[(\]+(const void|void const) *\[*\]+\[)\]+ const"
 416     test_demangling_exact "gnu: __eq__3fooRT0"     "foo::operator==(foo &)"
 417     test_demangling "gnu: __eq__3fooRC3foo" \
 418          "foo::operator==\[(\]+(const foo|foo const) &\[)\]+"
 419     test_demangling_exact "gnu: __eq__C3fooR3foo"  "foo::operator==(foo &) const"
 420     test_demangling "gnu: __eq__C3fooRT0" \
 421            "foo::operator==\[(\]+(const foo|foo const) &\[)\]+ const"
 422
 423     test_demangling_exact "gnu: elem__t6vector1Zdi" "vector<double>::elem(int)"
 424     test_demangling_exact "gnu: elem__t6vector1Zii" "vector<int>::elem(int)"
 425     test_demangling_exact "gnu: __t6vector1Zdi"     "vector<double>::vector(int)"
 426     test_demangling_exact "gnu: __t6vector1Zii"     "vector<int>::vector(int)"
 427     test_demangling_exact "gnu: _\$_t6vector1Zdi"    "vector<double>::~vector(int)"
 428     test_demangling_exact "gnu: _\$_t6vector1Zii"    "vector<int>::~vector(int)"
 429
 430     test_demangling_exact "gnu: __nw__t2T11ZcUi" "T1<char>::operator new(unsigned int)"
 431     test_demangling_exact "gnu: __nw__t2T11Z1tUi" "T1<t>::operator new(unsigned int)"
 432     test_demangling_exact "gnu: __dl__t2T11ZcPv" "T1<char>::operator delete(void *)"
 433     test_demangling_exact "gnu: __dl__t2T11Z1tPv" "T1<t>::operator delete(void *)"
 434     test_demangling_exact "gnu: __t2T11Zci" "T1<char>::T1(int)"
 435     test_demangling_exact "gnu: __t2T11Zc" "T1<char>::T1(void)"
 436     test_demangling_exact "gnu: __t2T11Z1ti" "T1<t>::T1(int)"
 437     test_demangling_exact "gnu: __t2T11Z1t" "T1<t>::T1(void)"
 438
 439     test_demangling_exact "gnu: __Q2t4List1Z10VHDLEntity3Pix" \
 440         "List<VHDLEntity>::Pix::Pix(void)"
 441
 442     test_demangling_exact "gnu: __Q2t4List1Z10VHDLEntity3PixPQ2t4List1Z10VHDLEntity7element" \
 443         "List<VHDLEntity>::Pix::Pix(List<VHDLEntity>::element *)"
 444
 445     test_demangling_exact "gnu: __Q2t4List1Z10VHDLEntity3PixRCQ2t4List1Z10VHDLEntity3Pix" \
 446         "List<VHDLEntity>::Pix::Pix(List<VHDLEntity>::Pix const &)"
 447
 448     test_demangling_exact "gnu: __Q2t4List1Z10VHDLEntity7elementRC10VHDLEntityPT0" \
 449         "List<VHDLEntity>::element::element(VHDLEntity const &, List<VHDLEntity>::element *)"
 450
 451     test_demangling_exact "gnu: __Q2t4List1Z10VHDLEntity7elementRCQ2t4List1Z10VHDLEntity7element" \
 452         "List<VHDLEntity>::element::element(List<VHDLEntity>::element const &)"
 453
 454     test_demangling_exact "gnu: __cl__C11VHDLLibraryGt4PixX3Z11VHDLLibraryZ14VHDLLibraryRepZt4List1Z10VHDLEntity" \
 455         "VHDLLibrary::operator()(PixX<VHDLLibrary, VHDLLibraryRep, List<VHDLEntity> >) const"
 456
 457     test_demangling_exact "gnu: __cl__Ct4List1Z10VHDLEntityRCQ2t4List1Z10VHDLEntity3Pix" \
 458         "List<VHDLEntity>::operator()(List<VHDLEntity>::Pix const &) const"
 459
 460     test_demangling_exact "gnu: __ne__FPvRCQ2t4List1Z10VHDLEntity3Pix" \
 461         "operator!=(void *, List<VHDLEntity>::Pix const &)"
 462
 463     test_demangling_exact "gnu: __ne__FPvRCt4PixX3Z11VHDLLibraryZ14VHDLLibraryRepZt4List1Z10VHDLEntity" \
 464         "operator!=(void *, PixX<VHDLLibrary, VHDLLibraryRep, List<VHDLEntity> > const &)"
 465
 466     test_demangling_exact "gnu: __t4List1Z10VHDLEntityRCt4List1Z10VHDLEntity" \
 467         "List<VHDLEntity>::List(List<VHDLEntity> const &)"
 468
 469     test_demangling_exact "gnu: __t4PixX3Z11VHDLLibraryZ14VHDLLibraryRepZt4List1Z10VHDLEntity" \
 470         "PixX<VHDLLibrary, VHDLLibraryRep, List<VHDLEntity> >::PixX(void)"
 471
 472     test_demangling_exact "gnu: __t4PixX3Z11VHDLLibraryZ14VHDLLibraryRepZt4List1Z10VHDLEntityP14VHDLLibraryRepGQ2t4List1Z10VHDLEntity3Pix" \
 473         "PixX<VHDLLibrary, VHDLLibraryRep, List<VHDLEntity> >::PixX(VHDLLibraryRep *, List<VHDLEntity>::Pix)"
 474
 475     test_demangling_exact "gnu: __t4PixX3Z11VHDLLibraryZ14VHDLLibraryRepZt4List1Z10VHDLEntityRCt4PixX3Z11VHDLLibraryZ14VHDLLibraryRepZt4List1Z10VHDLEntity" \
 476         "PixX<VHDLLibrary, VHDLLibraryRep, List<VHDLEntity> >::PixX(PixX<VHDLLibrary, VHDLLibraryRep, List<VHDLEntity> > const &)"
 477
 478     test_demangling_exact "gnu: nextE__C11VHDLLibraryRt4PixX3Z11VHDLLibraryZ14VHDLLibraryRepZt4List1Z10VHDLEntity" \
 479         "VHDLLibrary::nextE(PixX<VHDLLibrary, VHDLLibraryRep, List<VHDLEntity> > &) const"
 480
 481     test_demangling_exact "gnu: next__Ct4List1Z10VHDLEntityRQ2t4List1Z10VHDLEntity3Pix" \
 482         "List<VHDLEntity>::next(List<VHDLEntity>::Pix &) const"
 483
 484     test_demangling_exact "gnu: _GLOBAL_\$D\$set" "global destructors keyed to set"
 485
 486     test_demangling_exact "gnu: _GLOBAL_\$I\$set" "global constructors keyed to set"
 487
 488     test_demangling_exact "gnu: __as__t5ListS1ZUiRCt5ListS1ZUi" \
 489         "ListS<unsigned int>::operator=(ListS<unsigned int> const &)"
 490
 491     test_demangling_exact "gnu: __cl__Ct5ListS1ZUiRCQ2t5ListS1ZUi3Vix" \
 492         "ListS<unsigned int>::operator()(ListS<unsigned int>::Vix const &) const"
 493
 494     test_demangling_exact "gnu: __cl__Ct5SetLS1ZUiRCQ2t5SetLS1ZUi3Vix" \
 495         "SetLS<unsigned int>::operator()(SetLS<unsigned int>::Vix const &) const"
 496
 497     test_demangling_exact "gnu: __t10ListS_link1ZUiRCUiPT0" \
 498         "ListS_link<unsigned int>::ListS_link(unsigned int const &, ListS_link<unsigned int> *)"
 499
 500     test_demangling_exact "gnu: __t10ListS_link1ZUiRCt10ListS_link1ZUi" \
 501         "ListS_link<unsigned int>::ListS_link(ListS_link<unsigned int> const &)"
 502
 503     test_demangling_exact "gnu: __t5ListS1ZUiRCt5ListS1ZUi" \
 504         "ListS<unsigned int>::ListS(ListS<unsigned int> const &)"
 505
 506     test_demangling_exact "gnu: next__Ct5ListS1ZUiRQ2t5ListS1ZUi3Vix" \
 507         "ListS<unsigned int>::next(ListS<unsigned int>::Vix &) const"
 508
 509     test_demangling_exact "gnu: __ne__FPvRCQ2t5SetLS1ZUi3Vix" \
 510         "operator!=(void *, SetLS<unsigned int>::Vix const &)"
 511     test_demangling_exact "gnu: __t8ListElem1Z5LabelRt4List1Z5Label" \
 512         "ListElem<Label>::ListElem(List<Label> &)"
 513     test_demangling_exact "gnu: __t8BDDHookV1ZPcRCPc" \
 514         "BDDHookV<char *>::BDDHookV(char *const &)"
 515
 516     test_demangling_exact "gnu: _vt\$t8BDDHookV1ZPc" "BDDHookV<char *> virtual table"
 517
 518     test_demangling_exact "gnu: __ne__FPvRCQ211BDDFunction4VixB" \
 519         "operator!=(void *, BDDFunction::VixB const &)"
 520     test_demangling_exact "gnu: __eq__FPvRCQ211BDDFunction4VixB" \
 521         "operator==(void *, BDDFunction::VixB const &)"
 522
 523     test_demangling_exact "gnu: relativeId__CQ36T_phi210T_preserve8FPC_nextRCQ26T_phi210T_preserveRC10Parameters" \
 524          "T_phi2::T_preserve::FPC_next::relativeId(T_phi2::T_preserve const &, Parameters const &) const"
 525
 526     test_demangling_exact "gnu: _Utf390_1__1_9223372036854775807__9223372036854775" \
 527             "Can't demangle \"_Utf390_1__1_9223372036854775807__9223372036854775\""
 528     test_demangling_exact "gnu: foo__I40" "foo(int64_t)"
 529     test_demangling_exact "gnu: foo__I_200_" "foo(int512_t)"
 530     test_demangling_exact "gnu: foo__I_200" "Can't demangle \"foo__I_200\""
 531
 532     ## Buffer overrun.  Should make GDB crash.  Woo hoo!
 533     test_demangling_exact "gnu: foo__I_4000000000000000000000000000000000000000000000000000000000000000000000000" "Can't demangle \"foo__I_4000000000000000000000000000000000000000000000000000000000000000000000000\""
 534
 535     ## 1999-04-19: "Fix from Dale Hawkins".  Shouldn't segfault.
 536     # Accept even a dubious demangling; the string is ambiguous.
 537     send_gdb "maintenance demangle __thunk_64__0RL__list__Q29CosNaming20_proxy_NamingContextUlRPt25_CORBA_Unbounded_Sequence1ZQ29CosNaming7BindingRPQ29CosNaming15BindingIterator\n"
 538     gdb_expect {
 539         -re "virtual function thunk \\(delta:-64\\) for CosNaming::_proxy_NamingContext::_0RL__list\\(unsigned long, _CORBA_Unbounded_Sequence<CosNaming::Binding> \\*\\&, CosNaming::BindingIterator \\*\\&\\)\r\n$gdb_prompt $" {
 540                 pass "gnu: __thunk_64__0RL__list__Q29CosNaming20_proxy_NamingContextUlRPt25_CORBA_Unbounded_Sequence1ZQ29CosNaming7BindingRPQ29CosNaming15BindingIterator"
 541         }
 542         -re ".*Can't demangle \"__thunk_64__0RL__list__Q29CosNaming20_proxy_NamingContextUlRPt25_CORBA_Unbounded_Sequence1ZQ29CosNaming7BindingRPQ29CosNaming15BindingIterator\"\r\n$gdb_prompt $" {
 543                 pass "gnu: __thunk_64__0RL__list__Q29CosNaming20_proxy_NamingContextUlRPt25_CORBA_Unbounded_Sequence1ZQ29CosNaming7BindingRPQ29CosNaming15BindingIterator"
 544         }
 545         -re ".*$gdb_prompt $" {
 546                 fail "gnu: __thunk_64__0RL__list__Q29CosNaming20_proxy_NamingContextUlRPt25_CORBA_Unbounded_Sequence1ZQ29CosNaming7BindingRPQ29CosNaming15BindingIterator"
 547         }
 548         timeout {
 549                 fail "gnu: __thunk_64__0RL__list__Q29CosNaming20_proxy_NamingContextUlRPt25_CORBA_Unbounded_Sequence1ZQ29CosNaming7BindingRPQ29CosNaming15BindingIterator (timeout)"
 550         }
 551     }
 552 }
 553
 554 #
 555 #  Test lucid style name demangling
 556 #
 557
 558 proc test_lucid_style_demangling {} {
 559     test_demangling_exact "lucid: WS__FR7istream" "WS(istream &)"
 560     test_demangling_exact "lucid: __aa__3fooFR3foo" "foo::operator&&(foo &)"
 561     test_demangling_exact "lucid: __aad__3fooFR3foo" "foo::operator&=(foo &)"
 562     test_demangling_exact "lucid: __ad__3fooFR3foo" "foo::operator&(foo &)"
 563     test_demangling_exact "lucid: __adv__3fooFR3foo" "foo::operator/=(foo &)"
 564     test_demangling_exact "lucid: __adv__7complexF7complex" "complex::operator/=(complex)"
 565     test_demangling_exact "lucid: __aer__3fooFR3foo" "foo::operator^=(foo &)"
 566     test_demangling_exact "lucid: __als__3fooFR3foo" "foo::operator<<=(foo &)"
 567     test_demangling_exact "lucid: __amd__3fooFR3foo" "foo::operator%=(foo &)"
 568     test_demangling_exact "lucid: __ami__3fooFR3foo" "foo::operator-=(foo &)"
 569     test_demangling_exact "lucid: __amu__3fooFR3foo" "foo::operator*=(foo &)"
 570     test_demangling_exact "lucid: __amu__7complexF7complex" "complex::operator*=(complex)"
 571     test_demangling_exact "lucid: __aor__3fooFR3foo" "foo::operator|=(foo &)"
 572     test_demangling_exact "lucid: __apl__3fooFR3foo" "foo::operator+=(foo &)"
 573     test_demangling_exact "lucid: __ars__3fooFR3foo" "foo::operator>>=(foo &)"
 574     test_demangling_exact "lucid: __as__18istream_withassignFP9streambuf" "istream_withassign::operator=(streambuf *)"
 575     test_demangling_exact "lucid: __as__18istream_withassignFR7istream" "istream_withassign::operator=(istream &)"
 576     test_demangling_exact "lucid: __as__3fooFR3foo" "foo::operator=(foo &)"
 577     test_demangling_exact "lucid: __as__3iosFR3ios" "ios::operator=(ios &)"
 578     test_demangling_exact "lucid: __cl__3fooFR3foo" "foo::operator()(foo &)"
 579     test_demangling_exact "lucid: __cm__3fooFR3foo" "foo::operator, (foo &)"
 580
 581     test_demangling_exact "lucid: __co__3fooFv" "foo::operator~(void)"
 582     test_demangling_exact "lucid: __ct__10istrstreamFPc" "istrstream::istrstream(char *)"
 583     test_demangling_exact "lucid: __ct__10istrstreamFPci" "istrstream::istrstream(char *, int)"
 584     test_demangling_exact "lucid: __ct__10ostrstreamFPciT2" "ostrstream::ostrstream(char *, int, int)"
 585     test_demangling_exact "lucid: __ct__10ostrstreamFv" "ostrstream::ostrstream(void)"
 586     test_demangling_exact "lucid: __ct__10smanip_intFPFR3iosi_R3iosi" "smanip_int::smanip_int(ios &(*)(ios &, int), int)"
 587     test_demangling "lucid: __ct__11c_exceptionFPcRC7complexT2" "c_exception::c_exception\[(\]+char \[*\]+, (const complex|complex const) &, (const complex|complex const) &\[)\]+"
 588     test_demangling "lucid: __ct__11fstreambaseFPCciT2" "fstreambase::fstreambase\[(\]+(const char|char const) \[*\]+, int, int\[)\]+"
 589     test_demangling_exact "lucid: __ct__11fstreambaseFi" "fstreambase::fstreambase(int)"
 590     test_demangling_exact "lucid: __ct__11fstreambaseFiPcT1" "fstreambase::fstreambase(int, char *, int)"
 591     test_demangling_exact "lucid: __ct__11fstreambaseFv" "fstreambase::fstreambase(void)"
 592     test_demangling_exact "lucid: __ct__11smanip_longFPFR3iosl_R3iosl" "smanip_long::smanip_long(ios &(*)(ios &, long), long)"
 593     test_demangling_exact "lucid: __ct__11stdiostreamFP4FILE" "stdiostream::stdiostream(FILE *)"
 594     test_demangling_exact "lucid: __ct__12strstreambufFPFl_PvPFPv_v" "strstreambuf::strstreambuf(void *(*)(long), void (*)(void *))"
 595     test_demangling_exact "lucid: __ct__12strstreambufFPUciT1" "strstreambuf::strstreambuf(unsigned char *, int, unsigned char *)"
 596     test_demangling_exact "lucid: __ct__12strstreambufFPciT1" "strstreambuf::strstreambuf(char *, int, char *)"
 597     test_demangling_exact "lucid: __ct__12strstreambufFi" "strstreambuf::strstreambuf(int)"
 598     test_demangling_exact "lucid: __ct__12strstreambufFv" "strstreambuf::strstreambuf(void)"
 599     test_demangling_exact "lucid: __ct__13strstreambaseFPciT1" "strstreambase::strstreambase(char *, int, char *)"
 600     test_demangling_exact "lucid: __ct__3fooFR3foo" "foo::foo(foo &)"
 601
 602     test_demangling_exact "lucid: __ct__3fooFi" "foo::foo(int)"
 603     test_demangling_exact "lucid: __ct__3fooFiN31" "foo::foo(int, int, int, int)"
 604     test_demangling "lucid: __ct__3fooFiPCc" \
 605         "foo::foo\[(\]+int, (const char|char const) \[*\]+\[)\]+"
 606     test_demangling_exact "lucid: __ct__3fooFiR3fooT1T2T1T2" "foo::foo(int, foo &, int, foo &, int, foo &)"
 607     test_demangling_exact "lucid: __ct__3iosFP9streambuf" "ios::ios(streambuf *)"
 608     test_demangling_exact "lucid: __ct__7filebufFiPcT1" "filebuf::filebuf(int, char *, int)"
 609     test_demangling "lucid: __ct__7fstreamFPCciT2" \
 610         "fstream::fstream\[(\]+(const char|char const) \[*\]+, int, int\[)\]+"
 611     test_demangling_exact "lucid: __ct__7fstreamFiPcT1" "fstream::fstream(int, char *, int)"
 612     test_demangling_exact "lucid: __ct__7istreamFP9streambuf" "istream::istream(streambuf *)"
 613     test_demangling_exact "lucid: __ct__7istreamFP9streambufiP7ostream" "istream::istream(streambuf *, int, ostream *)"
 614     test_demangling_exact "lucid: __ct__7istreamFiPcT1" "istream::istream(int, char *, int)"
 615     test_demangling_exact "lucid: __ct__7istreamFiT1P7ostream" "istream::istream(int, int, ostream *)"
 616     test_demangling_exact "lucid: __ct__7ostreamFP9streambuf" "ostream::ostream(streambuf *)"
 617     test_demangling_exact "lucid: __ct__7ostreamFiPc" "ostream::ostream(int, char *)"
 618     test_demangling "lucid: __ct__8ifstreamFPCciT2" \
 619         "ifstream::ifstream\[(\]+(const char|char const) \[*\]+, int, int\[)\]+"
 620     test_demangling_exact "lucid: __ct__8ifstreamFiPcT1" "ifstream::ifstream(int, char *, int)"
 621
 622     test_demangling_exact "lucid: __ct__Q23foo3barFv" "foo::bar::bar(void)"
 623     test_demangling_exact "lucid: __ct__Q33foo3bar4bellFv" "foo::bar::bell::bell(void)"
 624     test_demangling_exact "lucid: __dl__3fooSFPv" "foo::operator delete(void *) static"
 625     test_demangling_exact "lucid: __dl__FPv" "operator delete(void *)"
 626     test_demangling_exact "lucid: __dt__10istrstreamFv" "istrstream::~istrstream(void)"
 627
 628     test_demangling_exact "lucid: __dt__Q23foo3barFv" "foo::bar::~bar(void)"
 629     test_demangling_exact "lucid: __dt__Q33foo3bar4bellFv" "foo::bar::bell::~bell(void)"
 630     test_demangling_exact "lucid: __dv__3fooFR3foo" "foo::operator/(foo &)"
 631     test_demangling_exact "lucid: __dv__F7complexT1" "operator/(complex, complex)"
 632     test_demangling_exact "lucid: __eq__3fooFR3foo" "foo::operator==(foo &)"
 633     test_demangling_exact "lucid: __er__3fooFR3foo" "foo::operator^(foo &)"
 634     test_demangling_exact "lucid: __ge__3fooFR3foo" "foo::operator>=(foo &)"
 635     test_demangling_exact "lucid: __gt__3fooFR3foo" "foo::operator>(foo &)"
 636     test_demangling_exact "lucid: __le__3fooFR3foo" "foo::operator<=(foo &)"
 637     test_demangling_exact "lucid: __ls__3fooFR3foo" "foo::operator<<(foo &)"
 638     test_demangling_exact "lucid: __ls__7ostreamFP9streambuf" "ostream::operator<<(streambuf *)"
 639
 640     test_demangling "lucid: __ls__7ostreamFPCc" \
 641         "ostream::operator<<\[(\]+(const char|char const) \[*\]+\[)\]+"
 642     test_demangling_exact "lucid: __ls__7ostreamFPFR3ios_R3ios" "ostream::operator<<(ios &(*)(ios &))"
 643     test_demangling_exact "lucid: __ls__7ostreamFPv" "ostream::operator<<(void *)"
 644     test_demangling_exact "lucid: __ls__7ostreamFUi" "ostream::operator<<(unsigned int)"
 645     test_demangling_exact "lucid: __ls__7ostreamFUl" "ostream::operator<<(unsigned long)"
 646     test_demangling_exact "lucid: __ls__7ostreamFd" "ostream::operator<<(double)"
 647     test_demangling_exact "lucid: __ls__7ostreamFf" "ostream::operator<<(float)"
 648     test_demangling_exact "lucid: __ls__7ostreamFi" "ostream::operator<<(int)"
 649     test_demangling_exact "lucid: __ls__7ostreamFl" "ostream::operator<<(long)"
 650     test_demangling_exact "lucid: __ls__FR7ostream7complex" "operator<<(ostream &, complex)"
 651     test_demangling_exact "lucid: __lt__3fooFR3foo" "foo::operator<(foo &)"
 652     test_demangling_exact "lucid: __md__3fooFR3foo" "foo::operator%(foo &)"
 653     test_demangling_exact "lucid: __mi__3fooFR3foo" "foo::operator-(foo &)"
 654     test_demangling_exact "lucid: __ml__3fooFR3foo" "foo::operator*(foo &)"
 655     test_demangling_exact "lucid: __ml__F7complexT1" "operator*(complex, complex)"
 656     test_demangling_exact "lucid: __mm__3fooFi" "foo::operator--(int)"
 657     test_demangling_exact "lucid: __ne__3fooFR3foo" "foo::operator!=(foo &)"
 658     test_demangling_exact "lucid: __nt__3fooFv" "foo::operator!(void)"
 659     test_demangling_exact "lucid: __nw__3fooSFi" "foo::operator new(int) static"
 660     test_demangling_exact "lucid: __nw__FUi" "operator new(unsigned int)"
 661     test_demangling_exact "lucid: __nw__FUiPv" "operator new(unsigned int, void *)"
 662     test_demangling_exact "lucid: __oo__3fooFR3foo" "foo::operator||(foo &)"
 663     test_demangling_exact "lucid: __opPc__3fooFv" "foo::operator char *(void)"
 664     test_demangling_exact "lucid: __opi__3fooFv" "foo::operator int(void)"
 665     test_demangling_exact "lucid: __or__3fooFR3foo" "foo::operator|(foo &)"
 666
 667     test_demangling_exact "lucid: __pl__3fooFR3foo" "foo::operator+(foo &)"
 668     test_demangling_exact "lucid: __pp__3fooFi" "foo::operator++(int)"
 669     test_demangling_exact "lucid: __pt__3fooFv" "foo::operator->(void)"
 670     test_demangling_exact "lucid: __rm__3fooFR3foo" "foo::operator->*(foo &)"
 671     test_demangling_exact "lucid: __rs__3fooFR3foo" "foo::operator>>(foo &)"
 672     test_demangling_exact "lucid: __rs__7istreamFP9streambuf" "istream::operator>>(streambuf *)"
 673     test_demangling_exact "lucid: __rs__7istreamFPFR3ios_R3ios" "istream::operator>>(ios &(*)(ios &))"
 674     test_demangling_exact "lucid: __rs__7istreamFPFR7istream_R7istream" "istream::operator>>(istream &(*)(istream &))"
 675     test_demangling_exact "lucid: __rs__7istreamFPUc" "istream::operator>>(unsigned char *)"
 676     test_demangling_exact "lucid: __rs__7istreamFPc" "istream::operator>>(char *)"
 677     test_demangling_exact "lucid: __rs__7istreamFRUi" "istream::operator>>(unsigned int &)"
 678     test_demangling_exact "lucid: __rs__7istreamFRUl" "istream::operator>>(unsigned long &)"
 679     test_demangling_exact "lucid: __rs__7istreamFRUs" "istream::operator>>(unsigned short &)"
 680     test_demangling_exact "lucid: __rs__7istreamFRd" "istream::operator>>(double &)"
 681     test_demangling_exact "lucid: __rs__7istreamFRf" "istream::operator>>(float &)"
 682     test_demangling_exact "lucid: __rs__7istreamFRi" "istream::operator>>(int &)"
 683     test_demangling_exact "lucid: __rs__7istreamFRl" "istream::operator>>(long &)"
 684     test_demangling_exact "lucid: __rs__7istreamFRs" "istream::operator>>(short &)"
 685     test_demangling_exact "lucid: __rs__FR7istreamR7complex" "operator>>(istream &, complex &)"
 686     test_demangling "lucid: __vc__3fooFR3foo" "foo::operator\\\[\\\]\\(foo &\\)"
 687     test_demangling_exact "lucid: __vtbl__10istrstream" "istrstream virtual table"
 688     test_demangling_exact "lucid: __vtbl__17ostream__iostream__19iostream_withassign" "iostream_withassign::ostream__iostream virtual table"
 689
 690     test_demangling_exact "lucid: __vtbl__3ios" "ios virtual table"
 691     test_demangling_exact "lucid: __vtbl__3ios__13strstreambase" "strstreambase::ios virtual table"
 692
 693     # GDB 930414 demangles this as t_cc_main_ (obviously wrong).
 694     # GDB 930701 gets into an infinite loop.
 695     # GDB 930727 says "Can't demangle".
 696     # What is the correct demangling?  FIXME.
 697
 698     # NOTE: carlton/2003-01-17: No, don't FIXME, just obsolete lucid.
 699     # I'm KFAILing this rather than deleting it for form's sake.
 700     setup_kfail "gdb/945" "*-*-*"
 701     test_demangling_exact "lucid: __vtbl__3foo__vt_cc_main_" ""
 702
 703     test_demangling_exact "lucid: abs__F7complex" "abs(complex)"
 704     test_demangling_exact "lucid: allocate__9streambufFv" "streambuf::allocate(void)"
 705     test_demangling_exact "lucid: attach__11fstreambaseFi" "fstreambase::attach(int)"
 706     test_demangling_exact "lucid: bitalloc__3iosSFv" "ios::bitalloc(void) static"
 707     test_demangling_exact "lucid: chr__FiT1" "chr(int, int)"
 708     test_demangling_exact "lucid: complex_error__FR11c_exception" "complex_error(c_exception &)"
 709     test_demangling_exact "lucid: complexfunc2__FPFPc_i" "complexfunc2(int (*)(char *))"
 710     test_demangling_exact "lucid: complexfunc3__FPFPFPl_s_i" "complexfunc3(int (*)(short (*)(long *)))"
 711
 712     test_demangling_exact "lucid: complexfunc4__FPFPFPc_s_i" "complexfunc4(int (*)(short (*)(char *)))"
 713     test_demangling_exact "lucid: complexfunc5__FPFPc_PFl_i" "complexfunc5(int (*(*)(char *))(long))"
 714     test_demangling_exact "lucid: complexfunc6__FPFPi_PFl_i" "complexfunc6(int (*(*)(int *))(long))"
 715     test_demangling_exact "lucid: complexfunc7__FPFPFPc_i_PFl_i" "complexfunc7(int (*(*)(int (*)(char *)))(long))"
 716     test_demangling_exact "lucid: complicated_put__7ostreamFc" "ostream::complicated_put(char)"
 717     test_demangling_exact "lucid: conv10__FlPc" "conv10(long, char *)"
 718     test_demangling_exact "lucid: conv16__FUlPc" "conv16(unsigned long, char *)"
 719     test_demangling_exact "lucid: dec__FR3ios" "dec(ios &)"
 720     test_demangling_exact "lucid: dec__Fli" "dec(long, int)"
 721     test_demangling_exact "lucid: dofield__FP7ostreamPciT2T3" "dofield(ostream *, char *, int, char *, int)"
 722
 723     test_demangling_exact "lucid: flags__3iosFl" "ios::flags(long)"
 724     test_demangling_exact "lucid: flags__3iosFv" "ios::flags(void)"
 725     test_demangling_exact "lucid: foo__FiN31" "foo(int, int, int, int)"
 726     test_demangling_exact "lucid: foo__FiR3fooT1T2T1T2" "foo(int, foo &, int, foo &, int, foo &)"
 727     test_demangling_exact "lucid: foo___3barFl" "bar::foo_(long)"
 728     test_demangling "lucid: form__FPCce" "form\[(\]+(const char|char const) \[*\]+,...\[)\]+"
 729     test_demangling_exact "lucid: get__7istreamFPcic" "istream::get(char *, int, char)"
 730     test_demangling_exact "lucid: get__7istreamFR9streambufc" "istream::get(streambuf &, char)"
 731     test_demangling_exact "lucid: get_complicated__7istreamFRUc" "istream::get_complicated(unsigned char &)"
 732     test_demangling_exact "lucid: get_complicated__7istreamFRc" "istream::get_complicated(char &)"
 733     test_demangling_exact "lucid: getline__7istreamFPUcic" "istream::getline(unsigned char *, int, char)"
 734     test_demangling_exact "lucid: getline__7istreamFPcic" "istream::getline(char *, int, char)"
 735
 736     test_demangling_exact "lucid: ignore__7istreamFiT1" "istream::ignore(int, int)"
 737     test_demangling_exact "lucid: init__12strstreambufFPciT1" "strstreambuf::init(char *, int, char *)"
 738     test_demangling_exact "lucid: init__3iosFP9streambuf" "ios::init(streambuf *)"
 739     test_demangling_exact "lucid: initcount__13Iostream_init" "Iostream_init::initcount"
 740     test_demangling_exact "lucid: ipfx__7istreamFi" "istream::ipfx(int)"
 741     test_demangling_exact "lucid: ls_complicated__7ostreamFUc" "ostream::ls_complicated(unsigned char)"
 742     test_demangling_exact "lucid: ls_complicated__7ostreamFc" "ostream::ls_complicated(char)"
 743     test_demangling "lucid: open__11fstreambaseFPCciT2" \
 744         "fstreambase::open\[(\]+(const char|char const) \[*\]+, int, int\[)\]+"
 745     test_demangling "lucid: open__7filebufFPCciT2" \
 746         "filebuf::open\[(\]+(const char|char const) \[*\]+, int, int\[)\]+"
 747
 748     test_demangling_exact "lucid: overload1arg__FSc" "overload1arg(signed char)"
 749     test_demangling_exact "lucid: overload1arg__FUc" "overload1arg(unsigned char)"
 750     test_demangling_exact "lucid: overload1arg__FUi" "overload1arg(unsigned int)"
 751     test_demangling_exact "lucid: overload1arg__FUl" "overload1arg(unsigned long)"
 752     test_demangling_exact "lucid: overload1arg__FUs" "overload1arg(unsigned short)"
 753     test_demangling_exact "lucid: overload1arg__Fc" "overload1arg(char)"
 754     test_demangling_exact "lucid: overload1arg__Fd" "overload1arg(double)"
 755     test_demangling_exact "lucid: overload1arg__Ff" "overload1arg(float)"
 756     test_demangling_exact "lucid: overload1arg__Fi" "overload1arg(int)"
 757     test_demangling_exact "lucid: overload1arg__Fl" "overload1arg(long)"
 758     test_demangling_exact "lucid: overload1arg__Fs" "overload1arg(short)"
 759     test_demangling_exact "lucid: overload1arg__Fv" "overload1arg(void)"
 760     test_demangling_exact "lucid: overloadargs__FiN21" "overloadargs(int, int, int)"
 761     test_demangling_exact "lucid: overloadargs__FiN31" "overloadargs(int, int, int, int)"
 762     test_demangling_exact "lucid: overloadargs__FiN41" "overloadargs(int, int, int, int, int)"
 763     test_demangling_exact "lucid: overloadargs__FiN51" "overloadargs(int, int, int, int, int, int)"
 764     test_demangling_exact "lucid: overloadargs__FiN61" "overloadargs(int, int, int, int, int, int, int)"
 765
 766     test_demangling_exact "lucid: overloadargs__FiN71" "overloadargs(int, int, int, int, int, int, int, int)"
 767     test_demangling_exact "lucid: overloadargs__FiN81" "overloadargs(int, int, int, int, int, int, int, int, int)"
 768     test_demangling_exact "lucid: overloadargs__FiN91" "overloadargs(int, int, int, int, int, int, int, int, int, int)"
 769     test_demangling_exact "lucid: overloadargs__FiN91N11" "overloadargs(int, int, int, int, int, int, int, int, int, int, int)"
 770     test_demangling_exact "lucid: overloadargs__FiT1" "overloadargs(int, int)"
 771     test_demangling_exact "lucid: polar__FdT1" "polar(double, double)"
 772     test_demangling_exact "lucid: pow__F7complexT1" "pow(complex, complex)"
 773     test_demangling_exact "lucid: pow__F7complexd" "pow(complex, double)"
 774     test_demangling_exact "lucid: pow__F7complexi" "pow(complex, int)"
 775     test_demangling_exact "lucid: pow__Fd7complex" "pow(double, complex)"
 776     test_demangling_exact "lucid: pstart__FPciT2" "pstart(char *, int, int)"
 777     test_demangling_exact "lucid: put__7ostreamFc" "ostream::put(char)"
 778
 779     test_demangling_exact "lucid: read__7istreamFPci" "istream::read(char *, int)"
 780     test_demangling_exact "lucid: resetiosflags__FR3iosl" "resetiosflags(ios &, long)"
 781     test_demangling_exact "lucid: restore_errno__FRi" "restore_errno(int &)"
 782     test_demangling_exact "lucid: rs_complicated__7istreamFRUc" "istream::rs_complicated(unsigned char &)"
 783     test_demangling_exact "lucid: rs_complicated__7istreamFRc" "istream::rs_complicated(char &)"
 784     test_demangling_exact "lucid: seekg__7istreamFl8seek_dir" "istream::seekg(long, seek_dir)"
 785     test_demangling_exact "lucid: seekoff__12strstreambufFl8seek_diri" "strstreambuf::seekoff(long, seek_dir, int)"
 786     test_demangling_exact "lucid: seekoff__9streambufFlQ2_3ios12ios_seek_diri" "streambuf::seekoff(long, ios::ios_seek_dir, int)"
 787     test_demangling_exact "lucid: seekpos__9streambufFli" "streambuf::seekpos(long, int)"
 788     test_demangling_exact "lucid: set_new_handler__FPFv_v" "set_new_handler(void (*)(void))"
 789     test_demangling_exact "lucid: setb__9streambufFPcT1i" "streambuf::setb(char *, char *, int)"
 790
 791     test_demangling_exact "lucid: setb__FR3iosi" "setb(ios &, int)"
 792     test_demangling_exact "lucid: setbuf__11fstreambaseFPci" "fstreambase::setbuf(char *, int)"
 793     test_demangling_exact "lucid: setbuf__9streambufFPUci" "streambuf::setbuf(unsigned char *, int)"
 794     test_demangling_exact "lucid: setbuf__9streambufFPciT2" "streambuf::setbuf(char *, int, int)"
 795     test_demangling_exact "lucid: setf__3iosFlT1" "ios::setf(long, long)"
 796     test_demangling_exact "lucid: setfill__FR3iosi" "setfill(ios &, int)"
 797     test_demangling_exact "lucid: setg__9streambufFPcN21" "streambuf::setg(char *, char *, char *)"
 798     test_demangling_exact "lucid: setp__9streambufFPcT1" "streambuf::setp(char *, char *)"
 799
 800     test_demangling "lucid: sputn__9streambufFPCci" \
 801         "streambuf::sputn\[(\]+(const char|char const) \[*\]+, int\[)\]+"
 802     test_demangling "lucid: str__FPCci" \
 803         "str\[(\]+(const char|char const) \[*\]+, int\[)\]+"
 804     test_demangling_exact "lucid: tie__3iosFP7ostream" "ios::tie(ostream *)"
 805     test_demangling_exact "lucid: uconv10__FUlPc" "uconv10(unsigned long, char *)"
 806
 807     test_demangling "lucid: write__7ostreamFPCci" \
 808         "ostream::write\[(\]+(const char|char const) \[*\]+, int\[)\]+"
 809     test_demangling_exact "lucid: xget__7istreamFPc" "istream::xget(char *)"
 810     test_demangling_exact "lucid: xsgetn__9streambufFPci" "streambuf::xsgetn(char *, int)"
 811     test_demangling "lucid: xsputn__9streambufFPCci" \
 812         "streambuf::xsputn\[(\]+(const char|char const) \[*\]+, int\[)\]+"
 813
 814     test_demangling_exact "lucid: _Utf390_1__1_9223372036854775807__9223372036854775" \
 815             "Can't demangle \"_Utf390_1__1_9223372036854775807__9223372036854775\""
 816 }
 817
 818 #
 819 #  Test arm style name demangling
 820 #
 821
 822 proc test_arm_style_demangling {} {
 823     test_demangling_exact "arm: __dt__21T5__pt__11_PFiPPdPv_iFv" "T5<int (*)(int, double **, void *)>::~T5(void)"
 824
 825     test_demangling_exact "arm: __ct__1cFi" "c::c(int)"
 826
 827     test_demangling_exact "arm: __dt__11T5__pt__2_iFv" "T5<int>::~T5(void)"
 828
 829     test_demangling_exact "arm: __dt__11T5__pt__2_cFv" "T5<char>::~T5(void)"
 830
 831     test_demangling_exact "arm: __ct__2T2Fi" "T2::T2(int)"
 832     test_demangling_exact "arm: __dt__2T1Fv" "T1::~T1(void)"
 833
 834     test_demangling_exact "arm: __dt__12T5__pt__3_1xFv" "T5<x>::~T5(void)"
 835
 836     test_demangling_exact "arm: __dt__17T5__pt__8_PFcPv_iFv" "T5<int (*)(char, void *)>::~T5(void)"
 837
 838     test_demangling "arm: g__FP1cPC1cT1" \
 839         "g\[(\]+c *\[*\]+, (const c|c const) *\[*\]+, c *\[*\]+\[)\]+"
 840     test_demangling "arm: g__FPUlPCUlT1" \
 841         "g\[(\]+unsigned long \[*\]+, (const unsigned long|unsigned long const) \[*\]+, unsigned long \[*\]+\[)\]+"
 842     test_demangling "arm: g__FPUiPCUiT1" \
 843         "g\[(\]+unsigned int \[*\]+, (const unsigned int|unsigned int const) \[*\]+, unsigned int \[*\]+\[)\]+"
 844     test_demangling "arm: g__FPUsPCUsT1" \
 845         "g\[(\]+unsigned short \[*\]+, (const unsigned short|unsigned short const) \[*\]+, unsigned short \[*\]+\[)\]+"
 846     test_demangling "arm: g__FPUcPCUcT1" \
 847         "g\[(\]+unsigned char \[*\]+, (const unsigned char|unsigned char const) \[*\]+, unsigned char \[*\]+\[)\]+"
 848     test_demangling "arm: g__F1TPlPClT2" \
 849         "g\[(\]+T, long \[*\]+, (const long|long const) \[*\]+, long \[*\]+\[)\]+"
 850     test_demangling "arm: g__F1RRlRClT2" \
 851         "g\[(\]+R, long &, (const long|long const) &, long &\[)\]+"
 852     test_demangling "arm: g__F1TPiPCiT2" \
 853         "g\[(\]+T, int \[*\]+, (const int|int const) \[*\]+, int \[*\]+\[)\]+"
 854     test_demangling "arm: g__F1RRiRCiT2" \
 855         "g\[(\]+R, int &, (const int|int const) &, int &\[)\]+"
 856     test_demangling "arm: g__F1TPsPCsT2" \
 857         "g\[(\]+T, short \[*\]+, (const short|short const) \[*\]+, short \[*\]+\[)\]+"
 858     test_demangling "arm: g__F1RRsRCsT2" \
 859         "g\[(\]+R, short &, (const short|short const) &, short &\[)\]+"
 860     test_demangling "arm: g__F1TPcPCcT2" \
 861         "g\[(\]+T, char \[*\]+, (const char|char const) \[*\]+, char \[*\]+\[)\]+"
 862     test_demangling "arm: g__F1RRcRCcT2" \
 863         "g\[(\]+R, char &, (const char|char const) &, char &\[)\]+"
 864
 865     test_demangling_exact "arm: __ct__21T5__pt__11_PFiPPdPv_iFi" "T5<int (*)(int, double **, void *)>::T5(int)"
 866
 867     test_demangling "arm: __gt__FRC2T2c" \
 868         "operator>\[(\]+(const T2|T2 const) &, char\[)\]+"
 869     test_demangling "arm: __ge__FRC2T2c" \
 870         "operator>=\[(\]+(const T2|T2 const) &, char\[)\]+"
 871     test_demangling "arm: __lt__FRC2T2c" \
 872         "operator<\[(\]+(const T2|T2 const) &, char\[)\]+"
 873
 874     test_demangling "arm: __le__FRC2T2c" \
 875         "operator<=\[(\]+(const T2|T2 const) &, char\[)\]+"
 876     test_demangling "arm: __ne__FRC2T2c" \
 877         "operator!=\[(\]+(const T2|T2 const) &, char\[)\]+"
 878     test_demangling "arm: __eq__FRC2T2c" \
 879         "operator==\[(\]+(const T2|T2 const) &, char\[)\]+"
 880     test_demangling_exact "arm: __amd__FR2T2i" "operator%=(T2 &, int)"
 881     test_demangling_exact "arm: __adv__FR2T2i" "operator/=(T2 &, int)"
 882     test_demangling_exact "arm: __amu__FR2T2i" "operator*=(T2 &, int)"
 883     test_demangling_exact "arm: __ami__FR2T2i" "operator-=(T2 &, int)"
 884     test_demangling_exact "arm: __apl__FR2T2i" "operator+=(T2 &, int)"
 885     test_demangling_exact "arm: __nw__2T1SFUi" "T1::operator new(unsigned int) static"
 886     test_demangling_exact "arm: __dl__2T1SFPv" "T1::operator delete(void *) static"
 887     test_demangling_exact "arm: put__2T7SFi" "T7::put(int) static"
 888
 889     test_demangling_exact "arm: __dl__12T5__pt__3_1xSFPv" "T5<x>::operator delete(void *) static"
 890
 891     test_demangling_exact "arm: h__FUc" "h(unsigned char)"
 892     test_demangling_exact "arm: f__Fic" "f(int, char)"
 893     test_demangling_exact "arm: h__FUi" "h(unsigned int)"
 894     test_demangling_exact "arm: h__Fci" "h(char, int)"
 895     test_demangling_exact "arm: h__FUl" "h(unsigned long)"
 896     test_demangling_exact "arm: h__Fcl" "h(char, long)"
 897     test_demangling_exact "arm: h__FUs" "h(unsigned short)"
 898     test_demangling_exact "arm: h__Fcs" "h(char, short)"
 899     test_demangling "arm: __amd__FR2T2RC2T2" \
 900         "operator%=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
 901     test_demangling "arm: __adv__FR2T2RC2T2" \
 902         "operator/=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
 903     test_demangling "arm: __amu__FR2T2RC2T2" \
 904         "operator\[*\]+=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
 905     test_demangling "arm: __ami__FR2T2RC2T2" \
 906         "operator-=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
 907     test_demangling "arm: __apl__FR2T2RC2T2" \
 908         "operator\[+\]+=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
 909
 910     test_demangling "arm: g__F1SRPUlRPCUlT2" \
 911         "g\[(\]+S, unsigned long \[*\]+&, (const unsigned long|unsigned long const) \[*\]+&, unsigned long \[*\]+&\[)\]+"
 912     test_demangling "arm: g__F1SRPUiRPCUiT2" \
 913         "g\[(\]+S, unsigned int \[*\]+&, (const unsigned int|unsigned int const) \[*\]+&, unsigned int \[*\]+&\[)\]+"
 914     test_demangling "arm: g__F1SRPUsRPCUsT2" \
 915         "g\[(\]+S, unsigned short \[*\]+&, (const unsigned short|unsigned short const) \[*\]+&, unsigned short \[*\]+&\[)\]+"
 916     test_demangling "arm: g__F1SRPUcRPCUcT2" \
 917         "g\[(\]+S, unsigned char \[*\]+&, (const unsigned char|unsigned char const) \[*\]+&, unsigned char \[*\]+&\[)\]+"
 918     test_demangling "arm: g__F1T1SRPlRPClT3" \
 919         "g\[(\]+T, S, long \[*\]+&, (const long|long const) \[*\]+&, long \[*\]+&\[)\]+"
 920     test_demangling "arm: g__F1T1SRPiRPCiT3" \
 921         "g\[(\]+T, S, int \[*\]+&, (const int|int const) \[*\]+&, int \[*\]+&\[)\]+"
 922     test_demangling "arm: g__F1T1SRPcRPCcT3" \
 923         "g\[(\]+T, S, char \[*\]+&, (const char|char const) \[*\]+&, char \[*\]+&\[)\]+"
 924
 925     test_demangling_exact "arm: X__12T5__pt__3_1x" "T5<x>::X"
 926
 927     test_demangling_exact "arm: __ct__11T5__pt__2_iFi" "T5<int>::T5(int)"
 928
 929     test_demangling_exact "arm: __ct__11T5__pt__2_cFi" "T5<char>::T5(int)"
 930
 931     test_demangling "arm: __gt__FRC2T2T1" \
 932         "operator>\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
 933     test_demangling "arm: __ge__FRC2T2T1" \
 934         "operator>=\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
 935     test_demangling "arm: __lt__FRC2T2T1" \
 936         "operator<\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
 937     test_demangling "arm: __le__FRC2T2T1" \
 938         "operator<=\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
 939     test_demangling "arm: __ne__FRC2T2T1" \
 940         "operator!=\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
 941     test_demangling "arm: __eq__FRC2T2T1" \
 942         "operator==\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
 943     test_demangling "arm: g__FcR1cRC1cT2" \
 944         "g\[(\]+char, c &, (const c|c const) &, c &\[)\]+"
 945     test_demangling "arm: g__FcRPdRPCdT2" \
 946         "g\[(\]+char, double *\[*\]+&, (const double|double const) *\[*\]+&, double *\[*\]+&\[)\]+"
 947     test_demangling "arm: g__FcRPfRPCfT2" \
 948         "g\[(\]+char, float *\[*\]+&, (const float|float const) *\[*\]+&, float *\[*\]+&\[)\]+"
 949     test_demangling_exact "arm: h__FcT1" "h(char, char)"
 950     test_demangling_exact "arm: f__Ficd" "f(int, char, double)"
 951     test_demangling "arm: g__F1T1SdRPsRPCsT4" \
 952         "g\[(\]+T, S, double, short \[*\]+&, (const short|short const) \[*\]+&, short \[*\]+&\[)\]+"
 953     test_demangling "arm: g__F1cC1cT1" \
 954         "g\[(\]+c, (const c|c const), c\[)\]+"
 955     test_demangling "arm: g__FPdPCdT1" \
 956         "g\[(\]+double *\[*\]+, (const double|double const) *\[*\]+, double *\[*\]+\[)\]+"
 957     test_demangling "arm: g__FPfPCfT1" \
 958         "g\[(\]+float *\[*\]+, (const float|float const) *\[*\]+, float *\[*\]+\[)\]+"
 959
 960     test_demangling "arm: g__FUlCUlT1" \
 961         "g\[(\]+unsigned long, (const unsigned long|unsigned long const), unsigned long\[)\]+"
 962     test_demangling "arm: g__FPlPClT1" \
 963         "g\[(\]+long \[*\]+, (const long|long const) \[*\]+, long \[*\]+\[)\]+"
 964     test_demangling "arm: g__FUiCUiT1" \
 965         "g\[(\]+unsigned int, (const unsigned int|unsigned int const), unsigned int\[)\]+"
 966     test_demangling "arm: g__FPiPCiT1" \
 967         "g\[(\]+int \[*\]+, (const int|int const) \[*\]+, int \[*\]+\[)\]+"
 968     test_demangling "arm: g__FUsCUsT1" \
 969         "g\[(\]+unsigned short, (const unsigned short|unsigned short const), unsigned short\[)\]+"
 970     test_demangling "arm: g__FPsPCsT1" \
 971         "g\[(\]+short \[*\]+, (const short|short const) \[*\]+, short \[*\]+\[)\]+"
 972     test_demangling "arm: g__FUcCUcT1" \
 973         "g\[(\]+unsigned char, (const unsigned char|unsigned char const), unsigned char\[)\]+"
 974     test_demangling "arm: g__FPcPCcT1" \
 975         "g\[(\]+char \[*\]+, (const char|char const) \[*\]+, char \[*\]+\[)\]+"
 976     test_demangling "arm: g__F1TlClT2" \
 977         "g\[(\]+T, long, (const long|long const), long\[)\]+"
 978     test_demangling "arm: g__F1TiCiT2" \
 979         "g\[(\]+T, int, (const int|int const), int\[)\]+"
 980     test_demangling "arm: g__F1TsCsT2" \
 981         "g\[(\]+T, short, (const short|short const), short\[)\]+"
 982     test_demangling "arm: g__F1TcCcT2" \
 983         "g\[(\]+T, char, (const char|char const), char\[)\]+"
 984
 985     test_demangling_exact "arm: __dl__17T5__pt__8_PFcPv_iSFPv" "T5<int (*)(char, void *)>::operator delete(void *) static"
 986
 987     test_demangling "arm: printf__FPCce" \
 988         "printf\[(\]+(const char|char const) \[*\]+,...\[)\]+"
 989
 990     test_demangling_exact "arm: X__17T5__pt__8_PFcPv_i" "T5<int (*)(char, void *)>::X"
 991
 992     test_demangling_exact "arm: __ct__12T5__pt__3_1xFi" "T5<x>::T5(int)"
 993
 994     test_demangling "arm: g__F1SRUlRCUlT2" \
 995         "g\[(\]+S, unsigned long &, (const unsigned long|unsigned long const) &, unsigned long &\[)\]+"
 996     test_demangling "arm: g__F1SRPlRPClT2" \
 997         "g\[(\]+S, long \[*\]+&, (const long|long const) \[*\]+&, long \[*\]+&\[)\]+"
 998     test_demangling "arm: g__F1RRUiRCUiT2" \
 999         "g\[(\]+R, unsigned int &, (const unsigned int|unsigned int const) &, unsigned int &\[)\]+"
1000     test_demangling "arm: g__F1SRPiRPCiT2" \
1001         "g\[(\]+S, int \[*\]+&, (const int|int const) \[*\]+&, int \[*\]+&\[)\]+"
1002     test_demangling "arm: g__F1RRUsRCUsT2" \
1003         "g\[(\]+R, unsigned short &, (const unsigned short|unsigned short const) &, unsigned short &\[)\]+"
1004     test_demangling "arm: g__F1SRPsRPCsT2" \
1005         "g\[(\]+S, short \[*\]+&, (const short|short const) \[*\]+&, short \[*\]+&\[)\]+"
1006     test_demangling "arm: g__F1RRUcRCUcT2" \
1007         "g\[(\]+R, unsigned char &, (const unsigned char|unsigned char const) &, unsigned char &\[)\]+"
1008     test_demangling "arm: g__F1SRPcRPCcT2" \
1009         "g\[(\]+S, char \[*\]+&, (const char|char const) \[*\]+&, char \[*\]+&\[)\]+"
1010     test_demangling "arm: g__F1T1RRlRClT3" \
1011         "g\[(\]+T, R, long &, (const long|long const) &, long &\[)\]+"
1012     test_demangling "arm: g__F1T1RRiRCiT3" \
1013         "g\[(\]+T, R, int &, (const int|int const) &, int &\[)\]+"
1014     test_demangling "arm: g__F1T1RRsRCsT3" \
1015         "g\[(\]+T, R, short &, (const short|short const) &, short &\[)\]+"
1016     test_demangling "arm: g__F1T1RRcRCcT3" \
1017         "g\[(\]+T, R, char &, (const char|char const) &, char &\[)\]+"
1018
1019     test_demangling_exact "arm: __dl__21T5__pt__11_PFiPPdPv_iSFPv" "T5<int (*)(int, double **, void *)>::operator delete(void *) static"
1020
1021     test_demangling_exact "arm: __std__foo" "global destructors keyed to foo"
1022
1023     test_demangling_exact "arm: __sti__bar" "global constructors keyed to bar"
1024
1025     test_demangling_exact "arm: f__FicdPcPFci_v" "f(int, char, double, char *, void (*)(char, int))"
1026     test_demangling_exact "arm: f__FicdPcPFic_v" "f(int, char, double, char *, void (*)(int, char))"
1027     test_demangling_exact "arm: get__2T7SFv" "T7::get(void) static"
1028
1029     test_demangling_exact "arm: X__21T5__pt__11_PFiPPdPv_i" "T5<int (*)(int, double **, void *)>::X"
1030
1031     test_demangling "arm: g__FcRdRCdT2" \
1032         "g\[(\]+char, double &, (const double|double const) &, double &\[)\]+"
1033     test_demangling "arm: g__FcRfRCfT2" \
1034         "g\[(\]+char, float &, (const float|float const) &, float &\[)\]+"
1035     test_demangling "arm: __md__FC2T2i" \
1036         "operator%\[(\]+(const T2|T2 const), int\[)\]+"
1037     test_demangling "arm: __dv__FC2T2i" \
1038         "operator/\[(\]+(const T2|T2 const), int\[)\]+"
1039     test_demangling "arm: __ml__FC2T2i" \
1040         "operator\[*\]+\[(\]+(const T2|T2 const), int\[)\]+"
1041     test_demangling "arm: __mi__FC2T2i" \
1042         "operator-\[(\]+(const T2|T2 const), int\[)\]+"
1043     test_demangling "arm: __pl__FC2T2i" \
1044         "operator\[+\]+\[(\]+(const T2|T2 const), int\[)\]+"
1045
1046     test_demangling_exact "arm: __dl__11T5__pt__2_iSFPv" "T5<int>::operator delete(void *) static"
1047
1048     test_demangling_exact "arm: __dl__11T5__pt__2_cSFPv" "T5<char>::operator delete(void *) static"
1049
1050     test_demangling_exact "arm: h__Fc" "h(char)"
1051     test_demangling_exact "arm: h__Fd" "h(double)"
1052     test_demangling_exact "arm: h__Ff" "h(float)"
1053     test_demangling_exact "arm: h__Fi" "h(int)"
1054     test_demangling_exact "arm: f__Fi" "f(int)"
1055     test_demangling_exact "arm: h__Fl" "h(long)"
1056
1057     test_demangling_exact "arm: h__Fs" "h(short)"
1058     test_demangling "arm: __md__FC2T2RC2T2" \
1059         "operator%\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1060     test_demangling "arm: __dv__FC2T2RC2T2" \
1061         "operator/\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1062     test_demangling "arm: __ml__FC2T2RC2T2" \
1063         "operator\[*\]+\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1064     test_demangling "arm: __mi__FC2T2RC2T2" \
1065         "operator-\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1066     test_demangling "arm: __pl__FC2T2RC2T2" \
1067         "operator\[+\]+\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1068     test_demangling "arm: g__FcRP1cRPC1cT2" \
1069         "g\[(\]+char, c *\[*\]+&, (const c|c const) *\[*\]+&, c *\[*\]+&\[)\]+"
1070
1071     test_demangling_exact "arm: X__11T5__pt__2_c" "T5<char>::X"
1072
1073     test_demangling_exact "arm: X__11T5__pt__2_i" "T5<int>::X"
1074
1075     test_demangling "arm: g__FdCdT1" \
1076         "g\[(\]+double, (const double|double const), double\[)\]+"
1077     test_demangling "arm: g__FfCfT1" \
1078         "g\[(\]+float, (const float|float const), float\[)\]+"
1079     test_demangling "arm: g__FlClT1" \
1080         "g\[(\]+long, (const long|long const), long\[)\]+"
1081     test_demangling "arm: g__FiCiT1" \
1082         "g\[(\]+int, (const int|int const), int\[)\]+"
1083     test_demangling "arm: g__FsCsT1" \
1084         "g\[(\]+short, (const short|short const), short\[)\]+"
1085     test_demangling "arm: g__FcCcT1" \
1086         "g\[(\]+char, (const char|char const), char\[)\]+"
1087
1088     test_demangling_exact "arm: __ct__17T5__pt__8_PFcPv_iFi" "T5<int (*)(char, void *)>::T5(int)"
1089
1090     test_demangling_exact "arm: f__FicdPc" "f(int, char, double, char *)"
1091     test_demangling_exact "arm: __nw__FUi" "operator new(unsigned int)"
1092     test_demangling_exact "arm: __ct__Q3_2T11a1bSFi" "T1::a::b::b(int) static"
1093     test_demangling_exact "arm: __dt__Q3_2T11a1bSFi" "T1::a::b::~b(int) static"
1094     test_demangling_exact "arm: put__Q3_2T11a1bSFi" "T1::a::b::put(int) static"
1095     test_demangling_exact "arm: get__Q2_2T11aSFv" "T1::a::get(void) static"
1096     test_demangling_exact "arm: put__2T1SFi" "T1::put(int) static"
1097     test_demangling_exact "arm: put__Q5_2T11a1b1c1dSFi" "T1::a::b::c::d::put(int) static"
1098     test_demangling_exact "arm: get__Q4_2T11a1b1cSFv" "T1::a::b::c::get(void) static"
1099     test_demangling_exact "arm: put__Q2_2T11aSFi" "T1::a::put(int) static"
1100     test_demangling_exact "arm: put__Q4_2T11a1b1cSFi" "T1::a::b::c::put(int) static"
1101     test_demangling_exact "arm: get__Q3_2T11a1bSFv" "T1::a::b::get(void) static"
1102     test_demangling_exact "arm: get__2T1SFv" "T1::get(void) static"
1103     test_demangling_exact "arm: get__Q5_2T11a1b1c1dSFv" "T1::a::b::c::d::get(void) static"
1104
1105     test_demangling_exact "arm: __dt__11T1__pt__2_cFv" "T1<char>::~T1(void)"
1106
1107     test_demangling_exact "arm: __dt__12T1__pt__3_1tFv" "T1<t>::~T1(void)"
1108
1109     test_demangling_exact "arm: __dl__12T1__pt__3_1tSFPv" "T1<t>::operator delete(void *) static"
1110
1111     test_demangling_exact "arm: __ct__11T1__pt__2_cFi" "T1<char>::T1(int)"
1112
1113     test_demangling_exact "arm: __ct__11T1__pt__2_cFv" "T1<char>::T1(void)"
1114
1115     test_demangling_exact "arm: __ct__12T1__pt__3_1tFi" "T1<t>::T1(int)"
1116
1117     test_demangling_exact "arm: __ct__12T1__pt__3_1tFv" "T1<t>::T1(void)"
1118
1119     test_demangling_exact "arm: __dl__11T1__pt__2_cSFPv" "T1<char>::operator delete(void *) static"
1120
1121     test_demangling_exact "arm: bar__3fooFPv"       "foo::bar(void *)"
1122     test_demangling "arm: bar__3fooFPCv" \
1123              "foo::bar\[(\]+(const void|void const) *\[*\]+\[)\]+"
1124     test_demangling_exact "arm: bar__3fooCFPv"      "foo::bar(void *) const"
1125     test_demangling "arm: bar__3fooCFPCv" \
1126             "foo::bar\[(\]+(const void|void const) *\[*\]+\[)\]+ const"
1127     test_demangling_exact "arm: __eq__3fooFR3foo"   "foo::operator==(foo &)"
1128     test_demangling "arm: __eq__3fooFRC3foo" \
1129          "foo::operator==\[(\]+(const foo|foo const) &\[)\]+"
1130     test_demangling_exact "arm: __eq__3fooCFR3foo"  "foo::operator==(foo &) const"
1131     test_demangling "arm: __eq__3fooCFRC3foo" \
1132         "foo::operator==\[(\]+(const foo|foo const) &\[)\]+ const"
1133
1134     test_demangling_exact "arm: elem__15vector__pt__2_dFi" "vector<double>::elem(int)"
1135
1136     test_demangling_exact "arm: elem__15vector__pt__2_iFi" "vector<int>::elem(int)"
1137
1138     test_demangling_exact "arm: __ct__15vector__pt__2_dFi" "vector<double>::vector(int)"
1139
1140     test_demangling_exact "arm: __ct__15vector__pt__2_iFi" "vector<int>::vector(int)"
1141
1142     test_demangling_exact "arm: __ct__25DListNode__pt__9_R6RLabelFR6RLabelP25DListNode__pt__9_R6RLabelT2" \
1143         "DListNode<RLabel &>::DListNode(RLabel &, DListNode<RLabel &> *, DListNode<RLabel &> *)"
1144
1145     test_demangling_exact "arm: bar__3fooFiT16FooBar" "foo::bar(int, int, FooBar)"
1146
1147     test_demangling_exact "arm: bar__3fooFPiN51PdN37PcN211T1iN215" \
1148       "foo::bar(int *, int *, int *, int *, int *, int *, double *, double *, double *, double *, char *, char *, char *, int *, int, int, int)"
1149
1150     test_demangling_exact "arm: _Utf390_1__1_9223372036854775807__9223372036854775" \
1151             "Can't demangle \"_Utf390_1__1_9223372036854775807__9223372036854775\""
1152 }
1153
1154 proc test_hp_style_demangling {} {
1155
1156     # HP aCC mangling style is based on ARM for all the basic stuff,
1157     # so first we use some of the ARM tests here.  Later we have HP-specific
1158     # tests.
1159
1160     test_demangling "hp: g__FP1cPC1cT1" \
1161         "g\[(\]+c *\[*\]+, (const c|c const) *\[*\]+, c *\[*\]+\[)\]+"
1162     test_demangling "hp: g__FPUlPCUlT1" \
1163         "g\[(\]+unsigned long \[*\]+, (const unsigned long|unsigned long const) \[*\]+, unsigned long \[*\]+\[)\]+"
1164     test_demangling "hp: g__FPUiPCUiT1" \
1165         "g\[(\]+unsigned int \[*\]+, (const unsigned int|unsigned int const) \[*\]+, unsigned int \[*\]+\[)\]+"
1166     test_demangling "hp: g__FPUsPCUsT1" \
1167         "g\[(\]+unsigned short \[*\]+, (const unsigned short|unsigned short const) \[*\]+, unsigned short \[*\]+\[)\]+"
1168     test_demangling "hp: g__FPUcPCUcT1" \
1169         "g\[(\]+unsigned char \[*\]+, (const unsigned char|unsigned char const) \[*\]+, unsigned char \[*\]+\[)\]+"
1170     test_demangling "hp: g__F1TPlPClT2" \
1171         "g\[(\]+T, long \[*\]+, (const long|long const) \[*\]+, long \[*\]+\[)\]+"
1172     test_demangling "hp: g__F1RRlRClT2" \
1173         "g\[(\]+R, long &, (const long|long const) &, long &\[)\]+"
1174     test_demangling "hp: g__F1TPiPCiT2" \
1175         "g\[(\]+T, int \[*\]+, (const int|int const) \[*\]+, int \[*\]+\[)\]+"
1176     test_demangling "hp: g__F1RRiRCiT2" \
1177         "g\[(\]+R, int &, (const int|int const) &, int &\[)\]+"
1178     test_demangling "hp: g__F1TPsPCsT2" \
1179         "g\[(\]+T, short \[*\]+, (const short|short const) \[*\]+, short \[*\]+\[)\]+"
1180     test_demangling "hp: g__F1RRsRCsT2" \
1181         "g\[(\]+R, short &, (const short|short const) &, short &\[)\]+"
1182     test_demangling "hp: g__F1TPcPCcT2" \
1183         "g\[(\]+T, char \[*\]+, (const char|char const) \[*\]+, char \[*\]+\[)\]+"
1184     test_demangling "hp: g__F1RRcRCcT2" \
1185         "g\[(\]+R, char &, (const char|char const) &, char &\[)\]+"
1186
1187     test_demangling "hp: __gt__FRC2T2c" \
1188         "operator>\[(\]+(const T2|T2 const) &, char\[)\]+"
1189     test_demangling "hp: __ge__FRC2T2c" \
1190         "operator>=\[(\]+(const T2|T2 const) &, char\[)\]+"
1191     test_demangling "hp: __lt__FRC2T2c" \
1192         "operator<\[(\]+(const T2|T2 const) &, char\[)\]+"
1193
1194     test_demangling "hp: __le__FRC2T2c" \
1195         "operator<=\[(\]+(const T2|T2 const) &, char\[)\]+"
1196     test_demangling "hp: __ne__FRC2T2c" \
1197         "operator!=\[(\]+(const T2|T2 const) &, char\[)\]+"
1198     test_demangling "hp: __eq__FRC2T2c" \
1199         "operator==\[(\]+(const T2|T2 const) &, char\[)\]+"
1200     test_demangling_exact "hp: __amd__FR2T2i" "operator%=(T2 &, int)"
1201     test_demangling_exact "hp: __adv__FR2T2i" "operator/=(T2 &, int)"
1202     test_demangling_exact "hp: __amu__FR2T2i" "operator*=(T2 &, int)"
1203     test_demangling_exact "hp: __ami__FR2T2i" "operator-=(T2 &, int)"
1204     test_demangling_exact "hp: __apl__FR2T2i" "operator+=(T2 &, int)"
1205     test_demangling_exact "hp: __nw__2T1SFUi" "T1::operator new(unsigned int) static"
1206     test_demangling_exact "hp: __dl__2T1SFPv" "T1::operator delete(void *) static"
1207     test_demangling_exact "hp: put__2T7SFi" "T7::put(int) static"
1208
1209     test_demangling_exact "hp: h__FUc" "h(unsigned char)"
1210     test_demangling_exact "hp: f__Fic" "f(int, char)"
1211     test_demangling_exact "hp: h__FUi" "h(unsigned int)"
1212     test_demangling_exact "hp: h__Fci" "h(char, int)"
1213     test_demangling_exact "hp: h__FUl" "h(unsigned long)"
1214     test_demangling_exact "hp: h__Fcl" "h(char, long)"
1215     test_demangling_exact "hp: h__FUs" "h(unsigned short)"
1216     test_demangling_exact "hp: h__Fcs" "h(char, short)"
1217     test_demangling "hp: __amd__FR2T2RC2T2" \
1218         "operator%=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
1219     test_demangling "hp: __adv__FR2T2RC2T2" \
1220         "operator/=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
1221     test_demangling "hp: __amu__FR2T2RC2T2" \
1222         "operator\[*\]+=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
1223     test_demangling "hp: __ami__FR2T2RC2T2" \
1224         "operator-=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
1225     test_demangling "hp: __apl__FR2T2RC2T2" \
1226         "operator\[+\]+=\[(\]+T2 &, (const T2|T2 const) &\[)\]+"
1227
1228     test_demangling "hp: g__F1SRPUlRPCUlT2" \
1229         "g\[(\]+S, unsigned long \[*\]+&, (const unsigned long|unsigned long const) \[*\]+&, unsigned long \[*\]+&\[)\]+"
1230     test_demangling "hp: g__F1SRPUiRPCUiT2" \
1231         "g\[(\]+S, unsigned int \[*\]+&, (const unsigned int|unsigned int const) \[*\]+&, unsigned int \[*\]+&\[)\]+"
1232     test_demangling "hp: g__F1SRPUsRPCUsT2" \
1233         "g\[(\]+S, unsigned short \[*\]+&, (const unsigned short|unsigned short const) \[*\]+&, unsigned short \[*\]+&\[)\]+"
1234     test_demangling "hp: g__F1SRPUcRPCUcT2" \
1235         "g\[(\]+S, unsigned char \[*\]+&, (const unsigned char|unsigned char const) \[*\]+&, unsigned char \[*\]+&\[)\]+"
1236     test_demangling "hp: g__F1T1SRPlRPClT3" \
1237         "g\[(\]+T, S, long \[*\]+&, (const long|long const) \[*\]+&, long \[*\]+&\[)\]+"
1238     test_demangling "hp: g__F1T1SRPiRPCiT3" \
1239         "g\[(\]+T, S, int \[*\]+&, (const int|int const) \[*\]+&, int \[*\]+&\[)\]+"
1240     test_demangling "hp: g__F1T1SRPcRPCcT3" \
1241         "g\[(\]+T, S, char \[*\]+&, (const char|char const) \[*\]+&, char \[*\]+&\[)\]+"
1242
1243
1244     test_demangling "hp: __gt__FRC2T2T1" \
1245         "operator>\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
1246     test_demangling "hp: __ge__FRC2T2T1" \
1247         "operator>=\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
1248     test_demangling "hp: __lt__FRC2T2T1" \
1249         "operator<\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
1250     test_demangling "hp: __le__FRC2T2T1" \
1251         "operator<=\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
1252     test_demangling "hp: __ne__FRC2T2T1" \
1253         "operator!=\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
1254     test_demangling "hp: __eq__FRC2T2T1" \
1255         "operator==\[(\]+(const T2|T2 const) &, (const T2|T2 const) &\[)\]+"
1256     test_demangling "hp: g__FcR1cRC1cT2" \
1257         "g\[(\]+char, c &, (const c|c const) &, c &\[)\]+"
1258     test_demangling "hp: g__FcRPdRPCdT2" \
1259         "g\[(\]+char, double *\[*\]+&, (const double|double const) *\[*\]+&, double *\[*\]+&\[)\]+"
1260     test_demangling "hp: g__FcRPfRPCfT2" \
1261         "g\[(\]+char, float *\[*\]+&, (const float|float const) *\[*\]+&, float *\[*\]+&\[)\]+"
1262     test_demangling_exact "hp: h__FcT1" "h(char, char)"
1263     test_demangling_exact "hp: f__Ficd" "f(int, char, double)"
1264     test_demangling "hp: g__F1T1SdRPsRPCsT4" \
1265         "g\[(\]+T, S, double, short \[*\]+&, (const short|short const) \[*\]+&, short \[*\]+&\[)\]+"
1266     test_demangling "hp: g__F1cC1cT1" \
1267         "g\[(\]+c, (const c|c const), c\[)\]+"
1268     test_demangling "hp: g__FPdPCdT1" \
1269         "g\[(\]+double *\[*\]+, (const double|double const) *\[*\]+, double *\[*\]+\[)\]+"
1270     test_demangling "hp: g__FPfPCfT1" \
1271         "g\[(\]+float *\[*\]+, (const float|float const) *\[*\]+, float *\[*\]+\[)\]+"
1272
1273     test_demangling "hp: g__FUlCUlT1" \
1274         "g\[(\]+unsigned long, (const unsigned long|unsigned long const), unsigned long\[)\]+"
1275     test_demangling "hp: g__FPlPClT1" \
1276         "g\[(\]+long \[*\]+, (const long|long const) \[*\]+, long \[*\]+\[)\]+"
1277     test_demangling "hp: g__FUiCUiT1" \
1278         "g\[(\]+unsigned int, (const unsigned int|unsigned int const), unsigned int\[)\]+"
1279     test_demangling "hp: g__FPiPCiT1" \
1280         "g\[(\]+int \[*\]+, (const int|int const) \[*\]+, int \[*\]+\[)\]+"
1281     test_demangling "hp: g__FUsCUsT1" \
1282         "g\[(\]+unsigned short, (const unsigned short|unsigned short const), unsigned short\[)\]+"
1283     test_demangling "hp: g__FPsPCsT1" \
1284         "g\[(\]+short \[*\]+, (const short|short const) \[*\]+, short \[*\]+\[)\]+"
1285     test_demangling "hp: g__FUcCUcT1" \
1286         "g\[(\]+unsigned char, (const unsigned char|unsigned char const), unsigned char\[)\]+"
1287     test_demangling "hp: g__FPcPCcT1" \
1288         "g\[(\]+char \[*\]+, (const char|char const) \[*\]+, char \[*\]+\[)\]+"
1289     test_demangling "hp: g__F1TlClT2" \
1290         "g\[(\]+T, long, (const long|long const), long\[)\]+"
1291     test_demangling "hp: g__F1TiCiT2" \
1292         "g\[(\]+T, int, (const int|int const), int\[)\]+"
1293     test_demangling "hp: g__F1TsCsT2" \
1294         "g\[(\]+T, short, (const short|short const), short\[)\]+"
1295     test_demangling "hp: g__F1TcCcT2" \
1296         "g\[(\]+T, char, (const char|char const), char\[)\]+"
1297
1298     test_demangling "hp: printf__FPCce" \
1299         "printf\[(\]+(const char|char const) \[*\]+,...\[)\]+"
1300
1301
1302     test_demangling "hp: g__F1SRUlRCUlT2" \
1303         "g\[(\]+S, unsigned long &, (const unsigned long|unsigned long const) &, unsigned long &\[)\]+"
1304     test_demangling "hp: g__F1SRPlRPClT2" \
1305         "g\[(\]+S, long \[*\]+&, (const long|long const) \[*\]+&, long \[*\]+&\[)\]+"
1306     test_demangling "hp: g__F1RRUiRCUiT2" \
1307         "g\[(\]+R, unsigned int &, (const unsigned int|unsigned int const) &, unsigned int &\[)\]+"
1308     test_demangling "hp: g__F1SRPiRPCiT2" \
1309         "g\[(\]+S, int \[*\]+&, (const int|int const) \[*\]+&, int \[*\]+&\[)\]+"
1310     test_demangling "hp: g__F1RRUsRCUsT2" \
1311         "g\[(\]+R, unsigned short &, (const unsigned short|unsigned short const) &, unsigned short &\[)\]+"
1312     test_demangling "hp: g__F1SRPsRPCsT2" \
1313         "g\[(\]+S, short \[*\]+&, (const short|short const) \[*\]+&, short \[*\]+&\[)\]+"
1314     test_demangling "hp: g__F1RRUcRCUcT2" \
1315         "g\[(\]+R, unsigned char &, (const unsigned char|unsigned char const) &, unsigned char &\[)\]+"
1316     test_demangling "hp: g__F1SRPcRPCcT2" \
1317         "g\[(\]+S, char \[*\]+&, (const char|char const) \[*\]+&, char \[*\]+&\[)\]+"
1318     test_demangling "hp: g__F1T1RRlRClT3" \
1319         "g\[(\]+T, R, long &, (const long|long const) &, long &\[)\]+"
1320     test_demangling "hp: g__F1T1RRiRCiT3" \
1321         "g\[(\]+T, R, int &, (const int|int const) &, int &\[)\]+"
1322     test_demangling "hp: g__F1T1RRsRCsT3" \
1323         "g\[(\]+T, R, short &, (const short|short const) &, short &\[)\]+"
1324     test_demangling "hp: g__F1T1RRcRCcT3" \
1325         "g\[(\]+T, R, char &, (const char|char const) &, char &\[)\]+"
1326
1327
1328     test_demangling_exact "hp: f__FicdPcPFci_v" "f(int, char, double, char *, void (*)(char, int))"
1329     test_demangling_exact "hp: f__FicdPcPFic_v" "f(int, char, double, char *, void (*)(int, char))"
1330     test_demangling_exact "hp: get__2T7SFv" "T7::get(void) static"
1331
1332
1333     test_demangling "hp: g__FcRdRCdT2" \
1334         "g\[(\]+char, double &, (const double|double const) &, double &\[)\]+"
1335     test_demangling "hp: g__FcRfRCfT2" \
1336         "g\[(\]+char, float &, (const float|float const) &, float &\[)\]+"
1337     test_demangling "hp: __md__FC2T2i" \
1338         "operator%\[(\]+(const T2|T2 const), int\[)\]+"
1339     test_demangling "hp: __dv__FC2T2i" \
1340         "operator/\[(\]+(const T2|T2 const), int\[)\]+"
1341     test_demangling "hp: __ml__FC2T2i" \
1342         "operator\[*\]+\[(\]+(const T2|T2 const), int\[)\]+"
1343     test_demangling "hp: __mi__FC2T2i" \
1344         "operator-\[(\]+(const T2|T2 const), int\[)\]+"
1345     test_demangling "hp: __pl__FC2T2i" \
1346         "operator\[+\]+\[(\]+(const T2|T2 const), int\[)\]+"
1347
1348
1349     test_demangling_exact "hp: h__Fc" "h(char)"
1350     test_demangling_exact "hp: h__Fd" "h(double)"
1351     test_demangling_exact "hp: h__Ff" "h(float)"
1352     test_demangling_exact "hp: h__Fi" "h(int)"
1353     test_demangling_exact "hp: f__Fi" "f(int)"
1354     test_demangling_exact "hp: h__Fl" "h(long)"
1355
1356     test_demangling_exact "hp: h__Fs" "h(short)"
1357     test_demangling "hp: __md__FC2T2RC2T2" \
1358         "operator%\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1359     test_demangling "hp: __dv__FC2T2RC2T2" \
1360         "operator/\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1361     test_demangling "hp: __ml__FC2T2RC2T2" \
1362         "operator\[*\]+\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1363     test_demangling "hp: __mi__FC2T2RC2T2" \
1364         "operator-\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1365     test_demangling "hp: __pl__FC2T2RC2T2" \
1366         "operator\[+\]+\[(\]+(const T2|T2 const), (const T2|T2 const) &\[)\]+"
1367     test_demangling "hp: g__FcRP1cRPC1cT2" \
1368         "g\[(\]+char, c *\[*\]+&, (const c|c const) *\[*\]+&, c *\[*\]+&\[)\]+"
1369
1370
1371     test_demangling "hp: g__FdCdT1" \
1372         "g\[(\]+double, (const double|double const), double\[)\]+"
1373     test_demangling "hp: g__FfCfT1" \
1374         "g\[(\]+float, (const float|float const), float\[)\]+"
1375     test_demangling "hp: g__FlClT1" \
1376         "g\[(\]+long, (const long|long const), long\[)\]+"
1377     test_demangling "hp: g__FiCiT1" \
1378         "g\[(\]+int, (const int|int const), int\[)\]+"
1379     test_demangling "hp: g__FsCsT1" \
1380         "g\[(\]+short, (const short|short const), short\[)\]+"
1381     test_demangling "hp: g__FcCcT1" \
1382         "g\[(\]+char, (const char|char const), char\[)\]+"
1383
1384
1385     test_demangling_exact "hp: f__FicdPc" "f(int, char, double, char *)"
1386     test_demangling_exact "hp: __nw__FUi" "operator new(unsigned int)"
1387     test_demangling_exact "hp: __ct__Q3_2T11a1bSFi" "T1::a::b::b(int) static"
1388     test_demangling_exact "hp: __dt__Q3_2T11a1bSFi" "T1::a::b::~b(int) static"
1389     test_demangling_exact "hp: put__Q3_2T11a1bSFi" "T1::a::b::put(int) static"
1390     test_demangling_exact "hp: get__Q2_2T11aSFv" "T1::a::get(void) static"
1391     test_demangling_exact "hp: put__2T1SFi" "T1::put(int) static"
1392     test_demangling_exact "hp: put__Q5_2T11a1b1c1dSFi" "T1::a::b::c::d::put(int) static"
1393     test_demangling_exact "hp: get__Q4_2T11a1b1cSFv" "T1::a::b::c::get(void) static"
1394     test_demangling_exact "hp: put__Q2_2T11aSFi" "T1::a::put(int) static"
1395     test_demangling_exact "hp: put__Q4_2T11a1b1cSFi" "T1::a::b::c::put(int) static"
1396     test_demangling_exact "hp: get__Q3_2T11a1bSFv" "T1::a::b::get(void) static"
1397     test_demangling_exact "hp: get__2T1SFv" "T1::get(void) static"
1398     test_demangling_exact "hp: get__Q5_2T11a1b1c1dSFv" "T1::a::b::c::d::get(void) static"
1399
1400
1401     test_demangling_exact "hp: bar__3fooFPv"       "foo::bar(void *)"
1402     test_demangling "hp: bar__3fooFPCv" \
1403              "foo::bar\[(\]+(const void|void const) *\[*\]+\[)\]+"
1404     test_demangling_exact "hp: bar__3fooCFPv"      "foo::bar(void *) const"
1405     test_demangling "hp: bar__3fooCFPCv" \
1406             "foo::bar\[(\]+(const void|void const) *\[*\]+\[)\]+ const"
1407     test_demangling_exact "hp: __eq__3fooFR3foo"   "foo::operator==(foo &)"
1408     test_demangling "hp: __eq__3fooFRC3foo" \
1409          "foo::operator==\[(\]+(const foo|foo const) &\[)\]+"
1410     test_demangling_exact "hp: __eq__3fooCFR3foo"  "foo::operator==(foo &) const"
1411     test_demangling "hp: __eq__3fooCFRC3foo" \
1412         "foo::operator==\[(\]+(const foo|foo const) &\[)\]+ const"
1413
1414     test_demangling_exact "hp: bar__3fooFiT16FooBar" "foo::bar(int, int, FooBar)"
1415
1416     test_demangling_exact "hp: bar__3fooFPiN51PdN37PcN211T1iN215" \
1417       "foo::bar(int *, int *, int *, int *, int *, int *, double *, double *, double *, double *, char *, char *, char *, int *, int, int, int)"
1418
1419
1420     # HP aCC specific tests. HP aCC demangling does not use __pt__ for
1421     # template specifications.  There are other differences as well.
1422
1423     test_demangling_exact "hp: __dt__2T5XTPFiPPdPv_i__Fv" "T5<int (*)(int, double **, void *)>::~T5(void)"
1424
1425     test_demangling_exact "hp: __ct__1cFi" "c::c(int)"
1426
1427     test_demangling_exact "hp: __dt__2T5XTi__Fv" "T5<int>::~T5(void)"
1428
1429     test_demangling_exact "hp: __dt__2T5XTc__Fv" "T5<char>::~T5(void)"
1430
1431     test_demangling_exact "hp: __ct__2T2Fi" "T2::T2(int)"
1432     test_demangling_exact "hp: __dt__2T1Fv" "T1::~T1(void)"
1433
1434     test_demangling_exact "hp: __dt__2T5XT1x__Fv" "T5<x>::~T5(void)"
1435
1436     test_demangling_exact "hp: __dt__2T5XTPFcPv_i__Fv" "T5<int (*)(char, void *)>::~T5(void)"
1437
1438     test_demangling_exact "hp: __ct__2T5XTPFiPPdPv_i__Fi" "T5<int (*)(int, double **, void *)>::T5(int)"
1439
1440     test_demangling_exact "hp: __dl__2T5XT1x__SFPv" "T5<x>::operator delete(void *) static"
1441
1442     test_demangling_exact "hp: X__2T5XT1x" "T5<x>::X"
1443
1444     test_demangling_exact "hp: __ct__2T5XTi__Fi" "T5<int>::T5(int)"
1445
1446     test_demangling_exact "hp: __ct__2T5XTc__Fi" "T5<char>::T5(int)"
1447
1448     test_demangling_exact "hp: __dl__2T5XTPFcPv_i__SFPv" "T5<int (*)(char, void *)>::operator delete(void *) static"
1449
1450     test_demangling_exact "hp: X__2T5XTPFcPv_i" "T5<int (*)(char, void *)>::X"
1451
1452     test_demangling_exact "hp: __ct__2T5XT1x__Fi" "T5<x>::T5(int)"
1453
1454     test_demangling_exact "hp: __dl__2T5XTPFiPPdPv_i__SFPv" "T5<int (*)(int, double **, void *)>::operator delete(void *) static"
1455     test_demangling_exact "hp: X__2T5XTPFiPPdPv_i" "T5<int (*)(int, double **, void *)>::X"
1456
1457     test_demangling_exact "hp: __dl__2T5XTi__SFPv" "T5<int>::operator delete(void *) static"
1458
1459     test_demangling_exact "hp: __dl__2T5XTc__SFPv" "T5<char>::operator delete(void *) static"
1460
1461     test_demangling_exact "hp: X__2T5XTc" "T5<char>::X"
1462
1463     test_demangling_exact "hp: X__2T5XTi" "T5<int>::X"
1464
1465     test_demangling_exact "hp: __ct__2T5XTPFcPv_i__Fi" "T5<int (*)(char, void *)>::T5(int)"
1466
1467     test_demangling_exact "hp: __dt__2T1XTc__Fv" "T1<char>::~T1(void)"
1468
1469     test_demangling_exact "hp: __dt__2T1XT1t__Fv" "T1<t>::~T1(void)"
1470
1471     test_demangling_exact "hp: __dl__2T1XT1t__SFPv" "T1<t>::operator delete(void *) static"
1472
1473     test_demangling_exact "hp: __ct__2T1XTc__Fi" "T1<char>::T1(int)"
1474
1475     test_demangling_exact "hp: __ct__2T1XTc__Fv" "T1<char>::T1(void)"
1476
1477     test_demangling_exact "hp: __ct__2T1XT1t__Fi" "T1<t>::T1(int)"
1478
1479     test_demangling_exact "hp: __ct__2T1XT1t__Fv" "T1<t>::T1(void)"
1480
1481     test_demangling_exact "hp: __dl__2T1XTc__SFPv" "T1<char>::operator delete(void *) static"
1482
1483     test_demangling_exact "hp: elem__6vectorXTd__Fi" "vector<double>::elem(int)"
1484
1485     test_demangling_exact "hp: elem__6vectorXTi__Fi" "vector<int>::elem(int)"
1486
1487     test_demangling_exact "hp: __ct__6vectorXTd__Fi" "vector<double>::vector(int)"
1488
1489     test_demangling_exact "hp: __ct__6vectorXTi__Fi" "vector<int>::vector(int)"
1490
1491     test_demangling_exact "hp: __ct__9DListNodeXTR6RLabel__FR6RLabelP9DListNodeXTR6RLabel_T2" \
1492         "DListNode<RLabel &>::DListNode(RLabel &, DListNode<RLabel &> *, DListNode<RLabel &> *)"
1493
1494
1495     # Absolute integer constants in template args
1496
1497     test_demangling_exact "hp: elem__6vectorXTiUP34__Fi" "vector<int,34U>::elem(int)"
1498     test_demangling_exact "hp: elem__6vectorXUP2701Td__Fi" "vector<2701U,double>::elem(int)"
1499     test_demangling_exact "hp: elem__6vectorXTiSP334__Fi" "vector<int,334>::elem(int)"
1500     test_demangling_exact "hp: elem__6vectorXTiSN67__Fi" "vector<int,-67>::elem(int)"
1501     test_demangling_exact "hp: elem__6vectorXTiSM__SCFPPd" "vector<int,-2147483648>::elem(double **) static const"
1502     test_demangling_exact "hp: elem__6vectorXTiSN67UP4000TRs__Fi" "vector<int,-67,4000U,short &>::elem(int)"
1503     test_demangling_exact "hp: elem__6vectorXTiSN67TRdTFPv_i__Fi" "vector<int,-67,double &,int (void *)>::elem(int)"
1504     test_demangling_exact "hp: X__6vectorXTiSN67TdTPvUP5TRs" "vector<int,-67,double,void *,5U,short &>::X"
1505
1506     # Named constants in template args
1507
1508     test_demangling_exact "hp: elem__6vectorXTiA3foo__Fi" "vector<int,&foo>::elem(int)"
1509     test_demangling_exact "hp: elem__6vectorXTiA3fooTPvA5Label__FiPPvT2" "vector<int,&foo,void *,&Label>::elem(int, void **, void **)"
1510     test_demangling_exact "hp: elem__6vectorXTiSN42A3foo__Fi" "vector<int,-42,&foo>::elem(int)"
1511
1512     # Alternate entry points for functions
1513
1514     test_demangling_exact "hp: __ct__2T5XTPFcPv_i__Fi_2" "T5<int (*)(char, void *)>::T5(int)"
1515     test_demangling_exact "hp: __ct__2T5XTPFcPv_i__Fi_19" "T5<int (*)(char, void *)>::T5(int)"
1516     test_demangling_exact "hp: f__FicdPcPFci_v_34" "f(int, char, double, char *, void (*)(char, int))"
1517
1518
1519     # Template partial specializations
1520
1521 # FIXME!  The # characters don't go through expect, and backslashes don't seem to work.
1522 #    test_demangling_exact "hp: spec__13Spec<#1,#1.*>XTiTPi_FPi" "Spec<int,int *>::spec(int *)"
1523 #    test_demangling_exact "hp: spec__16Spec<#1,#1.&,#1>XTiTRiTi_FPi" "Spec<int,int &, int>::spec(int *)"
1524 # Fake test -- replace # with %
1525     test_demangling_exact "hp: spec__13Spec<%1,%1.*>XTiTPi_FPi" "Spec<int,int *>::spec(int *)"
1526     test_demangling_exact "hp: spec__16Spec<%1,%1.&,%1>XTiTRiTi_FPi" "Spec<int,int &,int>::spec(int *)"
1527
1528     # Global template functions
1529
1530     test_demangling_exact "hp: add__XTc_FcT1" "add<char>(char, char)"
1531     test_demangling_exact "hp: add__XTcSP9A5label_FcPPlT1" "add<char,9,&label>(char, long **, char)"
1532     test_demangling_exact "hp: add__XTPfTFPd_f_FcT1" "add<float *,float (double *)>(char, char)"
1533
1534     # Template for template arg
1535
1536     test_demangling_exact "hp: unLink__12basic_stringXTcT18string_char_traitsXTc_T9allocator_Fv" "basic_string<char,string_char_traits<char>,allocator>::unLink(void)"
1537
1538     test_demangling_exact "hp: _Utf390_1__1_9223372036854775807__9223372036854775" \
1539             "Can't demangle \"_Utf390_1__1_9223372036854775807__9223372036854775\""
1540 }
1541
1542
1543 proc catch_demangling_errors {command} {
1544     if {[catch $command result]} {
1545         puts "ERROR: demangle.exp: while running $command: $result"
1546     }
1547 }
1548
1549 # Test support for different demangling styles.  Note that this does
1550 # not depend upon running the test program and does not depend upon
1551 # gdb being able to lookup any C++ symbols.  It simply calls the
1552 # internal demangler with synthesized strings and tests the results.
1553
1554 proc do_tests {} {
1555     global prms_id
1556     global bug_id
1557     global subdir
1558     global gdb_prompt
1559
1560     set prms_id 0
1561     set bug_id 0
1562
1563     # Start with a fresh gdb.
1564
1565     gdb_exit
1566     gdb_start
1567
1568     send_gdb "set language c++\n"
1569     gdb_expect -re "$gdb_prompt $"
1570     send_gdb "set width 0\n"
1571     gdb_expect -re "$gdb_prompt $"
1572
1573     # Using catch_demangling_errors this way ensures that, if one of
1574     # the functions raises a Tcl error, then it'll get reported, and
1575     # the rest of the functions will still run.
1576     catch_demangling_errors test_lucid_style_demangling
1577     catch_demangling_errors test_gnu_style_demangling
1578     catch_demangling_errors test_arm_style_demangling
1579     catch_demangling_errors test_hp_style_demangling
1580 }
1581
1582 do_tests