diff options
author | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-18 20:52:54 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-18 20:52:54 (GMT) |
commit | 1aeaa7fbb1072d18a533b7bbf8f996f6b194de73 (patch) | |
tree | 989cbf236bb9ed1bde75baa631a803eb75f7ee4e /fortran/src/H5Ff.c | |
parent | b6fca58d925dd2e8287b746b3deb81f71fc6e75f (diff) | |
download | hdf5-1aeaa7fbb1072d18a533b7bbf8f996f6b194de73.zip hdf5-1aeaa7fbb1072d18a533b7bbf8f996f6b194de73.tar.gz hdf5-1aeaa7fbb1072d18a533b7bbf8f996f6b194de73.tar.bz2 |
[svn-r7059] Purpose:
Refactoring
Description:
Track changes to H5Fget_obj_<foo> API functions.
Platforms tested:
FreeBSD 4.8 (sleipnir)
h5committest
Diffstat (limited to 'fortran/src/H5Ff.c')
-rw-r--r-- | fortran/src/H5Ff.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c index 2d8e5ef..5d3af5c 100644 --- a/fortran/src/H5Ff.c +++ b/fortran/src/H5Ff.c @@ -417,12 +417,12 @@ nh5fget_obj_count_c ( hid_t_f *file_id , int_f *obj_type, int_f * obj_count) int ret_value = 0; hid_t c_file_id; unsigned c_obj_type; - unsigned c_obj_count; + int c_obj_count; c_file_id = (hid_t)*file_id; c_obj_type = (unsigned) *obj_type; - if ( H5Fget_obj_count(c_file_id, c_obj_type, &c_obj_count) < 0 ) ret_value = -1; + if ( (c_obj_count=H5Fget_obj_count(c_file_id, c_obj_type)) < 0 ) ret_value = -1; *obj_count = (int_f)c_obj_count; return ret_value; } @@ -439,14 +439,16 @@ nh5fget_obj_count_c ( hid_t_f *file_id , int_f *obj_type, int_f * obj_count) *---------------------------------------------------------------------------*/ int_f -nh5fget_obj_ids_c ( hid_t_f *file_id , int_f *obj_type, hid_t_f *obj_ids) +nh5fget_obj_ids_c ( hid_t_f *file_id , int_f *obj_type, int_f *max_objs, hid_t_f *obj_ids) { int ret_value = 0; hid_t c_file_id; unsigned c_obj_type; + int c_max_objs; c_file_id = (hid_t)*file_id; c_obj_type = (unsigned) *obj_type; - if ( H5Fget_obj_ids(c_file_id, c_obj_type, (hid_t *)obj_ids) < 0 ) ret_value = -1; + c_max_objs = (int)*max_objs; + if ( H5Fget_obj_ids(c_file_id, c_obj_type, c_max_objs, (hid_t *)obj_ids) < 0 ) ret_value = -1; return ret_value; } |