diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-08-08 19:20:57 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-08-08 19:20:57 (GMT) |
| commit | f3c2fbaff555ea11be81d55c83f6f31bb59d633b (patch) | |
| tree | 38c7fb0569bebc5ce1254cd84b292ec20220e642 /fortran/src/H5Rf.c | |
| parent | 2e1ef03cef0058566c4ab4f8f2490760f776b0a8 (diff) | |
| download | hdf5-f3c2fbaff555ea11be81d55c83f6f31bb59d633b.zip hdf5-f3c2fbaff555ea11be81d55c83f6f31bb59d633b.tar.gz hdf5-f3c2fbaff555ea11be81d55c83f6f31bb59d633b.tar.bz2 | |
[svn-r7318] Purpose:
Code cleanup
Description:
Switched 'hobj_ref_t' from funny structure with array inside to just be
'haddr_t', since that was equivalent and less confusing.
Platforms tested:
h5committested
Diffstat (limited to 'fortran/src/H5Rf.c')
| -rw-r--r-- | fortran/src/H5Rf.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/src/H5Rf.c b/fortran/src/H5Rf.c index a7ef242..d673669 100644 --- a/fortran/src/H5Rf.c +++ b/fortran/src/H5Rf.c @@ -53,7 +53,7 @@ nh5rcreate_object_c (int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen) HDfree(c_name); if (ret_value_c >= 0) { - HDmemcpy(ref, ref_c.oid, H5R_OBJ_REF_BUF_SIZE); + *ref=ref_c; ret_value = 0; } @@ -160,7 +160,7 @@ nh5rdereference_object_c (hid_t_f *dset_id, int_f *ref, hid_t_f *obj_id) hid_t c_obj_id; hobj_ref_t ref_c; - HDmemcpy (ref_c.oid, ref, H5R_OBJ_REF_BUF_SIZE); + ref_c=*ref; /* * Call H5Rdereference function. @@ -225,7 +225,7 @@ nh5rget_object_type_obj_c (hid_t_f *dset_id, int_f *ref, int_f *obj_type) int c_obj_type; hobj_ref_t ref_c; - HDmemcpy (ref_c.oid, ref, H5R_OBJ_REF_BUF_SIZE); + ref_c=*ref; /* * Call H5Rget_object_type function. |