Mercurial > hg > octave-lyh
diff src/ov-range.cc @ 4837:81f78a2ff8a6
[project @ 2004-03-12 19:13:01 by jwe]
| author | jwe |
|---|---|
| date | Fri, 12 Mar 2004 19:13:02 +0000 |
| parents | 2eb844b27953 |
| children | 44046bbaa52c |
line wrap: on
line diff
--- a/src/ov-range.cc +++ b/src/ov-range.cc @@ -413,6 +413,7 @@ H5Dclose (data_hid); H5Tclose (type_hid); H5Sclose (space_hid); + return retval; } @@ -421,6 +422,7 @@ bool /* have_h5giterate_bug */) { bool retval = false; + hid_t data_hid = H5Dopen (loc_id, name); hid_t type_hid = H5Dget_type (data_hid); @@ -428,7 +430,7 @@ if (! hdf5_types_compatible (type_hid, range_type)) { - H5Tclose(range_type); + H5Tclose (range_type); H5Dclose (data_hid); return false; } @@ -438,7 +440,7 @@ if (rank != 0) { - H5Tclose(range_type); + H5Tclose (range_type); H5Sclose (space_hid); H5Dclose (data_hid); return false; @@ -453,11 +455,11 @@ range = r; } - H5Tclose(range_type); + H5Tclose (range_type); H5Sclose (space_hid); H5Dclose (data_hid); + return retval; - } #endif