diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2005-01-10 22:56:20 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2005-01-10 22:56:20 (GMT) |
| commit | c04b612eb42b8b63ed4b4f966d53381f60f5119a (patch) | |
| tree | 92cc25bfac9f43dbec0b02fe5ac437abec3ae0ed /fortran/src/H5Rf.c | |
| parent | 4eb3251a2cb04433f01d2c1e4f7d0ed2af4c1982 (diff) | |
| download | hdf5-c04b612eb42b8b63ed4b4f966d53381f60f5119a.zip hdf5-c04b612eb42b8b63ed4b4f966d53381f60f5119a.tar.gz hdf5-c04b612eb42b8b63ed4b4f966d53381f60f5119a.tar.bz2 | |
[svn-r9801] Purpose:
Bug fix
Description:
Belatedly chase change of hobj_ref_t in C APIs.
Platforms tested:
FreeBSD 4.10 (sleipnir) w/backward compatibility turned on
IRIX64 6.5 (modi4) w/FORTRAN
h5committest
Diffstat (limited to 'fortran/src/H5Rf.c')
| -rw-r--r-- | fortran/src/H5Rf.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/fortran/src/H5Rf.c b/fortran/src/H5Rf.c index 070efdd..843c2ea 100644 --- a/fortran/src/H5Rf.c +++ b/fortran/src/H5Rf.c @@ -29,7 +29,7 @@ * Modifications: *---------------------------------------------------------------------------*/ int_f -nh5rcreate_object_c (int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen) +nh5rcreate_object_c (haddr_t_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen) { int ret_value = -1; hid_t c_loc_id; @@ -53,11 +53,10 @@ nh5rcreate_object_c (int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen) HDfree(c_name); if (ret_value_c >= 0) { - *ref=(int_f)ref_c; + *ref=(haddr_t_f)ref_c; ret_value = 0; } - ret_value = 0; return ret_value; } @@ -153,7 +152,7 @@ nh5rdereference_region_c (hid_t_f *dset_id, int_f *ref, hid_t_f *obj_id) * Modifications: *---------------------------------------------------------------------------*/ int_f -nh5rdereference_object_c (hid_t_f *dset_id, int_f *ref, hid_t_f *obj_id) +nh5rdereference_object_c (hid_t_f *dset_id, haddr_t_f *ref, hid_t_f *obj_id) { int ret_value = -1; hid_t c_dset_id; @@ -218,7 +217,7 @@ nh5rget_region_region_c (hid_t_f *dset_id, int_f *ref, hid_t_f *space_id) * Modifications: *---------------------------------------------------------------------------*/ int_f -nh5rget_object_type_obj_c (hid_t_f *dset_id, int_f *ref, int_f *obj_type) +nh5rget_object_type_obj_c (hid_t_f *dset_id, haddr_t_f *ref, int_f *obj_type) { int ret_value = -1; hid_t c_dset_id; |