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.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 753fbb0..f916358 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+2010-01-01  Joel Brobecker  <brobecker@adacore.com>
+
+       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  <stan@codesourcery.com>
 
        Add new tracepoint action teval.

diff --git a/gdb/ada-lex.l b/gdb/ada-lex.l
index 9886553..e16acb5 100644 (file)
--- 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 (file)
--- 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));
 }