From 70575d34a7b50192b3cb94c384fa502e641e5607 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Fri, 1 Jan 2010 06:06:49 +0000 Subject: 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. --- gdb/ChangeLog | 7 +++++++ gdb/ada-lex.l | 7 +++++++ gdb/ada-tasks.c | 1 + 3 files changed, 15 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 753fbb0..f916358 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2010-01-01 Joel Brobecker + + 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. + 2009-12-31 Stan Shebs Add new tracepoint action teval. 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; } diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c index 68cc696..62f4432 100644 --- a/gdb/ada-tasks.c +++ b/gdb/ada-tasks.c @@ -198,6 +198,7 @@ get_task_number_from_id (CORE_ADDR task_id) int valid_task_id (int task_num) { + ada_build_task_list (0); return (task_num > 0 && task_num <= VEC_length (ada_task_info_s, task_list)); } -- cgit v1.1