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 /gdb/ada-lang.c | |
| 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.
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 7 |
1 files changed, 7 insertions, 0 deletions
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... */ |