diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | tapsets.cxx | 5 |
2 files changed, 9 insertions, 2 deletions
@@ -1,3 +1,9 @@ +2007-03-07 Frank Ch. Eigler <fche@elastic.org> + + PR 4166. + * tapsets.cxx (translate_components): Throw an exception rather + then suffer an assertion failure for $ptr[index] expressions. + 2007-03-05 David Smith <dsmith@redhat.com> * systemtap.spec.in: Made example perl script non-executable so diff --git a/tapsets.cxx b/tapsets.cxx index a156ca7f..2ca24573 100644 --- a/tapsets.cxx +++ b/tapsets.cxx @@ -1440,7 +1440,9 @@ struct dwflpp case DW_TAG_pointer_type: if (components[i].first == target_symbol::comp_literal_array_index) - goto subscript; + throw semantic_error ("cannot index pointer"); + // XXX: of course, we should support this the same way C does, + // by explicit pointer arithmetic etc. c_translate_pointer (pool, 1, module_bias, die, tail); break; @@ -1448,7 +1450,6 @@ struct dwflpp case DW_TAG_array_type: if (components[i].first == target_symbol::comp_literal_array_index) { - subscript: c_translate_array (pool, 1, module_bias, die, tail, NULL, lex_cast<Dwarf_Word>(components[i].second)); ++i; |