Mercurial > hg > octave-nkf

diff src/ov-cell.cc @ 4696:fcab389ad291

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-01-15 02:11:59 by jwe]
author jwe
date Thu, 15 Jan 2004 02:11:59 +0000
parents e95c86d48732
children 5e2c68946f30
line wrap: on
line diff
--- a/src/ov-cell.cc
+++ b/src/ov-cell.cc
@@ -820,12 +820,24 @@
   if (have_h5giterate_bug)
     current_item = 2;   // Skip row/columns items in group
 
+#ifdef HAVE_H5GGET_NUM_OBJS
+  hsize_t num_obj = 0;
+  H5Gget_num_objs (loc_id, &num_obj);
+#endif
+
   for (int j = 0; j < nc; j++)
     {
       for (int i = 0; i < nr; i++)
 	{
-	  retval2 = H5Giterate (loc_id, name, &current_item,
-				hdf5_read_next_data, &dsub);
+
+#ifdef HAVE_H5GGET_NUM_OBJS
+	  if (current_item >= static_cast<int> (num_obj))
+	    retval2 = -1;
+	  else
+#endif
+	    retval2 = H5Giterate (loc_id, name, &current_item,
+				  hdf5_read_next_data, &dsub);
+
 	  if (retval2 <= 0)
 	    break;