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/H5Tf.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/H5Tf.c')
-rw-r--r-- | fortran/src/H5Tf.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c index 7a72647..332a9cd 100644 --- a/fortran/src/H5Tf.c +++ b/fortran/src/H5Tf.c @@ -981,7 +981,7 @@ nh5tget_member_name_c ( hid_t_f *type_id ,int_f* index, _fcd member_name, int_f c_name = H5Tget_member_name(c_type_id, c_index); if (c_name == NULL ) return ret_value; - HDpackFstring(c_name, _fcdtocp(member_name), strlen(c_name)); + HD5packFstring(c_name, _fcdtocp(member_name), strlen(c_name)); *namelen = (int_f)strlen(c_name); HDfree(c_name); ret_value = 0; @@ -1389,7 +1389,7 @@ nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen) c_name = (char *)malloc(sizeof(char)*c_namelen); c_type_id = *type_id; error = H5Tenum_nameof(c_type_id, &c_value, c_name, c_namelen); - HDpackFstring(c_name, _fcdtocp(name), strlen(c_name)); + HD5packFstring(c_name, _fcdtocp(name), strlen(c_name)); HDfree(c_name); if(error < 0) return ret_value; @@ -1524,7 +1524,7 @@ nh5tget_tag_c(hid_t_f* type_id, _fcd tag, int_f* taglen) c_tag = H5Tget_tag(c_type_id); if (c_tag == NULL ) return ret_value; - HDpackFstring(c_tag, _fcdtocp(tag), strlen(c_tag)); + HD5packFstring(c_tag, _fcdtocp(tag), strlen(c_tag)); *taglen = strlen(c_tag); HDfree(c_tag); ret_value = 0; |