Mercurial > hg > octave-lyh
changeset 1004:df3c4da3adb0
[project @ 1995-01-02 20:59:39 by jwe]
author | jwe |
---|---|
date | Mon, 02 Jan 1995 20:59:39 +0000 |
parents | 19d836fec1c8 |
children | 46a2983cb297 |
files | src/pt-const.h |
diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/pt-const.h +++ b/src/pt-const.h @@ -170,7 +170,9 @@ rep = new tree_constant_rep (*rep); rep->count = 1; } + rep->assign (rhs, args); + return *this; } @@ -311,6 +313,7 @@ rep = new tree_constant_rep (*rep); rep->count = 1; } + rep->bump_value (et); } @@ -319,9 +322,12 @@ tree_constant eval (int print) { - rep->maybe_mutate (); + if (! is_scalar_type ()) + rep->maybe_mutate (); + if (print) rep->print (); + return *this; } @@ -331,6 +337,7 @@ // XXX FIXME XXX -- make it safe to call do_index() with // args.length () == 0 + if (args.length () > 0) retval(0) = rep->do_index (args); else @@ -338,6 +345,7 @@ if (retval(0).is_defined ()) retval(0).eval (print); + return retval; }