diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2002-03-14 20:12:12 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2002-03-14 20:12:12 (GMT) |
| commit | 7b77f971886d6b1fb3f4e5a4f0e7454dbc487a09 (patch) | |
| tree | 2d575eae52c953848fffdd580cc5c998c72fe0e8 /fortran/src/H5Pf.c | |
| parent | 34880b42a01eef71b8746d78775b25f20831ddb1 (diff) | |
| download | hdf5-7b77f971886d6b1fb3f4e5a4f0e7454dbc487a09.zip hdf5-7b77f971886d6b1fb3f4e5a4f0e7454dbc487a09.tar.gz hdf5-7b77f971886d6b1fb3f4e5a4f0e7454dbc487a09.tar.bz2 | |
[svn-r5066]
Purpose:
Bug fix
Description:
I borrowed function HDpackFstring from the HDF4 Library and
left name unchanged. It causes linking problems for Fortran users
that use both HDF4 and HDF5 Libraries in their applications.
Solution:
Changed the name to be HD5packFstring
Platforms tested:
Solaris 2.7
Diffstat (limited to 'fortran/src/H5Pf.c')
| -rw-r--r-- | fortran/src/H5Pf.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index e43ec59..49c518a 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -1238,8 +1238,8 @@ nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, h if (ret < 0) return ret_value; *meta_plist = c_meta_plist; *raw_plist = c_raw_plist; - HDpackFstring(c_meta_ext, _fcdtocp(meta_ext), strlen(c_meta_ext)); - HDpackFstring(c_raw_ext, _fcdtocp(raw_ext), strlen(c_raw_ext)); + HD5packFstring(c_meta_ext, _fcdtocp(meta_ext), strlen(c_meta_ext)); + HD5packFstring(c_raw_ext, _fcdtocp(raw_ext), strlen(c_raw_ext)); ret_value = 0; return ret_value; @@ -1493,7 +1493,7 @@ nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f* *filter_id = c_filter; *cd_nelmts = c_cd_nelmts; *flags = c_flags; - HDpackFstring(c_name, _fcdtocp(name), strlen(c_name)); + HD5packFstring(c_name, _fcdtocp(name), strlen(c_name)); for (i = 0; i < c_cd_nelmts; i++) cd_values[i] = (int_f)c_cd_values[i]; @@ -1625,7 +1625,7 @@ nh5pget_external_c(hid_t_f *prp_id,int*idx, size_t_f* name_size, _fcd name, int_ *offset = (int_f)c_offset; *bytes = (hsize_t_f)size; - HDpackFstring(c_name, _fcdtocp(name), strlen(c_name)); + HD5packFstring(c_name, _fcdtocp(name), strlen(c_name)); HDfree(c_name); ret_value = 0; |