Mercurial > hg > octave-thorsten
diff src/pt-arg-list.cc @ 4255:f7d11c1a49e3
[project @ 2002-12-31 20:16:38 by jwe]
author | jwe |
---|---|
date | Tue, 31 Dec 2002 20:16:38 +0000 (2002-12-31) |
parents | 90e44267e8cf |
children | 2b9c6dc25449 |
line wrap: on
line diff
--- a/src/pt-arg-list.cc +++ b/src/pt-arg-list.cc @@ -104,7 +104,15 @@ { case -1: // XXX FIXME XXX -- we really want "numel" here. - retval = indexed_object->rows () * indexed_object->columns (); + { + int nr = indexed_object->rows (); + int nc = indexed_object->columns (); + + if (nr < 0 || nc < 0) + ::error ("invalid use of end"); + else + retval = nr * nc; + } break; case 0: