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: