diff options
Diffstat (limited to 'fortran/src/H5Tf.c')
| -rw-r--r-- | fortran/src/H5Tf.c | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c index a74f5d1..6438af0 100644 --- a/fortran/src/H5Tf.c +++ b/fortran/src/H5Tf.c @@ -66,7 +66,7 @@ h5topen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f done: if (c_name) - HDfree(c_name); + free(c_name); return ret_value; } @@ -116,7 +116,7 @@ h5tcommit_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_ done: if (c_name) - HDfree(c_name); + free(c_name); return ret_value; } @@ -1357,7 +1357,7 @@ h5tget_member_index_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *idx) goto DONE; *idx = (int_f)c_index; DONE: - HDfree(c_name); + free(c_name); ret_value = 0; return ret_value; } @@ -1624,7 +1624,7 @@ h5tinsert_c(hid_t_f *type_id, _fcd name, int_f *namelen, size_t_f *offset, hid_t error = H5Tinsert((hid_t)*type_id, c_name, (size_t)*offset, (hid_t)*field_id); - HDfree(c_name); + free(c_name); if (error < 0) return ret_value; ret_value = 0; @@ -1784,7 +1784,7 @@ h5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value) c_value = *value; error = H5Tenum_insert((hid_t)*type_id, c_name, &c_value); - HDfree(c_name); + free(c_name); if (error < 0) return ret_value; @@ -1825,11 +1825,11 @@ h5tenum_nameof_c(hid_t_f *type_id, int_f *value, _fcd name, size_t_f *namelen) int_f c_value; c_value = *value; c_namelen = ((size_t)*namelen) + 1; - c_name = (char *)HDmalloc(sizeof(char) * c_namelen); + c_name = (char *)malloc(sizeof(char) * c_namelen); c_type_id = (hid_t)*type_id; error = H5Tenum_nameof(c_type_id, &c_value, c_name, c_namelen); HD5packFstring(c_name, _fcdtocp(name), strlen(c_name)); - HDfree(c_name); + free(c_name); if (error < 0) return ret_value; @@ -1870,7 +1870,7 @@ h5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value) return ret_value; error = H5Tenum_valueof((hid_t)*type_id, c_name, value); - HDfree(c_name); + free(c_name); if (error < 0) return ret_value; @@ -1947,7 +1947,7 @@ h5tset_tag_c(hid_t_f *type_id, _fcd tag, int_f *namelen) c_tag = (char *)HD5f2cstring(tag, (size_t)*namelen); status = H5Tset_tag((hid_t)*type_id, c_tag); - HDfree(c_tag); + free(c_tag); if (status < 0) return ret_value; @@ -2263,7 +2263,7 @@ h5tencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc) * Allocate buffer */ c_size = (size_t)*nalloc; - if (NULL == (c_buf = (unsigned char *)HDmalloc(c_size))) + if (NULL == (c_buf = (unsigned char *)malloc(c_size))) return ret_value; /* @@ -2278,11 +2278,11 @@ h5tencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc) * with blanks. */ - HDmemcpy(_fcdtocp(buf), (char *)c_buf, c_size); + memcpy(_fcdtocp(buf), (char *)c_buf, c_size); ret_value = 0; if (c_buf) - HDfree(c_buf); + free(c_buf); return ret_value; } @@ -2466,7 +2466,7 @@ h5tenum_insert_ptr_c(hid_t_f *type_id, _fcd name, int_f *namelen, void *value) status = H5Tenum_insert((hid_t)*type_id, c_name, value); - HDfree(c_name); + free(c_name); if (status < 0) return ret_value; |