Mercurial > hg > octave-lyh

diff src/ov-range.cc @ 4455:abbf63293766

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-07-11 01:01:16 by jwe]
author jwe
date Fri, 11 Jul 2003 01:01:17 +0000
parents f3c21a1d1c62
children d7d9ca19960a
line wrap: on
line diff
--- a/src/ov-range.cc
+++ b/src/ov-range.cc
@@ -133,8 +133,14 @@
 
   int nel = range.nelem ();
 
-  if (nel == 1 || (nel > 1 && Vdo_fortran_indexing))
-    retval = range.base ();
+  if (nel > 0)
+    {
+      // XXX FIXME XXX -- is warn_fortran_indexing the right variable here?
+      if (Vwarn_fortran_indexing)
+	gripe_implicit_conversion ("range", "real scalar");
+
+      retval = range.base ();
+    }
   else
     gripe_invalid_conversion ("range", "real scalar");
 
@@ -196,8 +202,14 @@
 
   int nel = range.nelem ();
 
-  if (nel == 1 || (nel > 1 && Vdo_fortran_indexing))
-    retval = range.base ();
+  if (nel > 0)
+    {
+      // XXX FIXME XXX -- is warn_fortran_indexing the right variable here?
+      if (Vwarn_fortran_indexing)
+	gripe_implicit_conversion ("range", "complex scalar");
+
+      retval = range.base ();
+    }
   else
     gripe_invalid_conversion ("range", "complex scalar");