Mercurial > octave-nkf

diff liboctave/idx-vector.cc @ 4461:af308ca1a354

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-07-11 22:21:17 by jwe]
author jwe
date Fri, 11 Jul 2003 22:21:18 +0000
parents 5719210fff4c
children 623f6262a8e9
line wrap: on
line diff
--- a/liboctave/idx-vector.cc	Fri Jul 11 18:37:48 2003 +0000
+++ b/liboctave/idx-vector.cc	Fri Jul 11 22:21:18 2003 +0000
@@ -612,7 +612,8 @@
 }
 
 int
-IDX_VEC_REP::freeze (int z_len, const char *tag, int resize_ok)
+IDX_VEC_REP::freeze (int z_len, const char *tag, bool resize_ok,
+		     bool warn_resize)
 {
   if (frozen)
     return frozen_len;
@@ -655,7 +656,21 @@
 	      initialized = 0;
 	    }
 	  else
-	    frozen_len = length (z_len);
+	    {
+	      if (warn_resize && max_val >= z_len)
+		{
+		  if (tag)
+		    (*current_liboctave_error_handler)
+		      ("resizing object with %s index = %d out of bounds",
+		       tag, max_val+1);
+		  else
+		    (*current_liboctave_error_handler)
+		      ("resizing object with index = %d out of bounds",
+		       max_val+1);
+		}
+
+	      frozen_len = length (z_len);
+	    }
 	}
     }