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

    task bodies.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index dbff2d6..a5b4260 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 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.
        (find_old_style_renaming_symbol): Add handling for function suffixes
        present in the name of various procedures.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 4d3c2b4..06aaadc 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -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...  */