Mercurial > octave
changeset 531:1be78be437c7
[project @ 1994-07-20 19:44:13 by jwe]
| author | jwe |
|---|---|
| date | Wed, 20 Jul 1994 19:47:27 +0000 |
| parents | c3268005bf98 |
| children | 2ca256b77602 |
| files | liboctave/Array.cc src/pt-const.cc src/pt-exp-base.cc |
| diffstat | 3 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/Array.cc Wed Jul 20 19:26:33 1994 +0000 +++ b/liboctave/Array.cc Wed Jul 20 19:47:27 1994 +0000 @@ -998,6 +998,9 @@ typedef Array2<Complex> array2_type_complex; typedef DiagArray<Complex> diag_array_type_complex; +#include "tree-const.h" +typedef Array<tree_constant> array_type_tree_constant; + #elif defined (USER_TYPEDEFS) // Users can generate their own .o files with their own types, as many
--- a/src/pt-const.cc Wed Jul 20 19:26:33 1994 +0000 +++ b/src/pt-const.cc Wed Jul 20 19:47:27 1994 +0000 @@ -44,7 +44,7 @@ if (--rep->count <= 0) { delete rep; - rep = (tree_constant_rep *) NULL; + rep = 0; } }
--- a/src/pt-exp-base.cc Wed Jul 20 19:26:33 1994 +0000 +++ b/src/pt-exp-base.cc Wed Jul 20 19:47:27 1994 +0000 @@ -221,8 +221,7 @@ retval = retval->chain (id); } else if (elem->is_index_expression ()) -// && (((tree_index_expression *) elem) -> arg_list () -// == (tree_argument_list *) NULL)) +// && ! ((tree_index_expression *) elem) -> arg_list ()) { tree_index_expression *idx_expr = (tree_index_expression *) elem; if (list == this)