diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2010-01-01 06:06:49 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2010-01-01 06:06:49 +0000 |
| commit | 70575d34a7b50192b3cb94c384fa502e641e5607 (patch) | |
| tree | 525b9459c60fe403cde9325846c339e1b2f608d5 /gdb/ada-lex.l | |
| parent | 594ffe977d13dcff7b624263897cf10a7894dae0 (diff) | |
| download | binutils-70575d34a7b50192b3cb94c384fa502e641e5607.zip binutils-70575d34a7b50192b3cb94c384fa502e641e5607.tar.gz binutils-70575d34a7b50192b3cb94c384fa502e641e5607.tar.bz2 | |
Fix break *FUN'address task NUM.
* ada-lex.l (task): New rule.
* ada-lang.c (valid_task_id): Make sure the Ada task list has
been built before using it.
Diffstat (limited to 'gdb/ada-lex.l')
| -rw-r--r-- | gdb/ada-lex.l | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gdb/ada-lex.l b/gdb/ada-lex.l index 9886553..e16acb5 100644 --- a/gdb/ada-lex.l +++ b/gdb/ada-lex.l @@ -160,6 +160,13 @@ if { return 0; } +task { + while (*lexptr != 't' && *lexptr != 'T') + lexptr--; + yyrestart(NULL); + return 0; + } + /* ADA KEYWORDS */ abs { return ABS; } |