diff options
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 1befc43..41e81ab 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -5154,6 +5154,7 @@ ada_lookup_symbol_nonlocal (const char *name, [.$][0-9]+ [nested subprogram suffix, on platforms such as GNU/Linux] ___[0-9]+ [nested subprogram suffix, on platforms such as HP/UX] + TKB [subprogram suffix for task bodies] _E[0-9]+[bs]$ [protected object entry suffixes] (X[nb]*)?((\$|__)[0-9](_?[0-9]+)|___(JM|LJM|X([FDBUP].*|R[^T]?)))?$ @@ -5199,6 +5200,11 @@ is_name_suffix (const char *str) return 1; } + /* "TKB" suffixes are used for subprograms implementing task bodies. */ + + if (strcmp (str, "TKB") == 0) + return 1; + #if 0 /* FIXME: brobecker/2005-09-23: Protected Object subprograms end with a N at the end. Unfortunately, the compiler uses the same |