Mercurial > hg > octave-nkf
diff src/pt-idx.cc @ 3965:edd758a7ca8d
[project @ 2002-06-28 19:00:56 by jwe]
author | jwe |
---|---|
date | Fri, 28 Jun 2002 19:00:56 +0000 |
parents | 818f5aec1db5 |
children | 6e86256e9c54 |
line wrap: on
line diff
--- a/src/pt-idx.cc +++ b/src/pt-idx.cc @@ -317,25 +317,22 @@ void tree_index_expression::eval_error (void) { - if (error_state > 0) - { - int l = line (); - int c = column (); + int l = line (); + int c = column (); - const char *type_str; + const char *type_str; - if (type[0] == '.') - type_str = "structure reference operator"; - else if (args.front ()) - type_str = "index expression"; - else - type_str = "expression"; + if (type[0] == '.') + type_str = "structure reference operator"; + else if (args.front ()) + type_str = "index expression"; + else + type_str = "expression"; - if (l != -1 && c != -1) - ::error ("evaluating %s near line %d, column %d", type_str, l, c); - else - ::error ("evaluating %s", type_str); - } + if (l != -1 && c != -1) + ::error ("evaluating %s near line %d, column %d", type_str, l, c); + else + ::error ("evaluating %s", type_str); } void