From a10967fa49093a68f1e3af186eebbd10dc048339 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Thu, 19 Nov 2009 22:36:05 +0000 Subject: [PATCH] * ada-lang.c (ada_decode): Add handling of "TB" suffixes for task bodies. --- gdb/ChangeLog | 5 +++++ gdb/ada-lang.c | 7 +++++++ 2 files changed, 12 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index dbff2d60787..a5b4260dfe4 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2009-11-19 Joel Brobecker + + * ada-lang.c (ada_decode): Add handling of "TB" suffixes for + task bodies. + 2009-11-19 Joel Brobecker * ada-lang.c (ada_remove_Xbn_suffix): New function. diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 4d3c2b44f4c..06aaadc327b 100644 --- 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... */ -- 2.30.2