FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* ada-lang.c (ada_decode): Add handling of "TB" suffixes for

Browse source 
task bodies.
This commit is contained in:
Joel Brobecker 2009-11-19 22:36:05 +00:00
parent 69fadcdff1
commit a10967fa49
2 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
gdb/ChangeLog
View file

@ -1,3 +1,8 @@
2009-11-19 Joel Brobecker <brobecker@adacore.com>
* ada-lang.c (ada_decode): Add handling of "TB" suffixes for
task bodies.
2009-11-19 Joel Brobecker <brobecker@adacore.com> 2009-11-19 Joel Brobecker <brobecker@adacore.com>
* ada-lang.c (ada_remove_Xbn_suffix): New function. * ada-lang.c (ada_remove_Xbn_suffix): New function.

7
gdb/ada-lang.c
View file

@ -946,6 +946,13 @@ ada_decode (const char *encoded)
if (len0 > 3 && strncmp (encoded + len0 - 3, "TKB", 3) == 0) if (len0 > 3 && strncmp (encoded + len0 - 3, "TKB", 3) == 0)
len0 -= 3; len0 -= 3;
/* Remove any trailing TB suffix. The TB suffix is slightly different
from the TKB suffix because it is used for non-anonymous task
bodies. */
if (len0 > 2 && strncmp (encoded + len0 - 2, "TB", 2) == 0)
len0 -= 2;
/* Remove trailing "B" suffixes. */ /* Remove trailing "B" suffixes. */
/* FIXME: brobecker/2006-04-19: Not sure what this are used for... */ /* FIXME: brobecker/2006-04-19: Not sure what this are used for... */