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

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

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>
* ada-lang.c (ada_remove_Xbn_suffix): New function.

View File

@ -946,6 +946,13 @@ ada_decode (const char *encoded)
if (len0 > 3 && strncmp (encoded + len0 - 3, "TKB", 3) == 0)
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. */
/* FIXME: brobecker/2006-04-19: Not sure what this are used for... */