diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2009-11-19 22:36:05 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2009-11-19 22:36:05 +0000 |
| commit | a10967fa49093a68f1e3af186eebbd10dc048339 (patch) | |
| tree | 5d69b6b0492edcba59ee73b20aed920320482956 | |
| parent | 69fadcdff1f1f983daabc3787b68343bcd99ce49 (diff) | |
| download | gdb-a10967fa49093a68f1e3af186eebbd10dc048339.zip gdb-a10967fa49093a68f1e3af186eebbd10dc048339.tar.gz gdb-a10967fa49093a68f1e3af186eebbd10dc048339.tar.bz2 | |
* ada-lang.c (ada_decode): Add handling of "TB" suffixes for
task bodies.
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 7 |
2 files changed, 12 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index dbff2d6..a5b4260 100644 --- 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 --- 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... */ |