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.
This commit is contained in:
parent
594ffe977d
commit
70575d34a7
|
@ -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.
|
||||
|
|
|
@ -160,6 +160,13 @@ if {
|
|||
return 0;
|
||||
}
|
||||
|
||||
task {
|
||||
while (*lexptr != 't' && *lexptr != 'T')
|
||||
lexptr--;
|
||||
yyrestart(NULL);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* ADA KEYWORDS */
|
||||
|
||||
abs { return ABS; }
|
||||
|
|
|
@ -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));
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue