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

    task bodies.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index dbff2d607878a0162dee94832696ab8480e1818e..a5b4260dfe4cdf918f677e0b581407d555183abb 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -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.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 4d3c2b44f4c1b95952a7b485267da77ebfe16b7b..06aaadc327bc6c9f178ae4bef74435d72dfb180e 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...  */