diff options
| author | Dana Robinson <43805+derobins@users.noreply.github.com> | 2023-06-28 00:42:29 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-06-28 00:42:29 (GMT) |
| commit | 942739e6fbea0ebf736c35f461e1386396b54e11 (patch) | |
| tree | ad98c75926ac1862cae0258ecd5d14f803060112 /fortran/src/H5Ff.c | |
| parent | 636b5d073b273b277d0c2988f33dc1b8eec7a97e (diff) | |
| download | hdf5-942739e6fbea0ebf736c35f461e1386396b54e11.zip hdf5-942739e6fbea0ebf736c35f461e1386396b54e11.tar.gz hdf5-942739e6fbea0ebf736c35f461e1386396b54e11.tar.bz2 | |
Remove HD/hbool_t from fortran (#3182)
Diffstat (limited to 'fortran/src/H5Ff.c')
| -rw-r--r-- | fortran/src/H5Ff.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c index b2f09ef..e7b18f6 100644 --- a/fortran/src/H5Ff.c +++ b/fortran/src/H5Ff.c @@ -87,7 +87,7 @@ h5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *crt_prp, hi *file_id = c_file_id; } - HDfree(c_name); + free(c_name); return ret_value; } @@ -147,7 +147,7 @@ h5fmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid if (status >= 0) ret_value = 0; - HDfree(c_name); + free(c_name); return ret_value; } @@ -195,7 +195,7 @@ h5funmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen) if (status >= 0) ret_value = 0; - HDfree(c_name); + free(c_name); return ret_value; } @@ -343,7 +343,7 @@ h5fget_obj_ids_c(hid_t_f *file_id, int_f *obj_type, size_t_f *max_objs, hid_t_f c_file_id = (hid_t)*file_id; c_obj_type = (unsigned)*obj_type; c_max_objs = (size_t)*max_objs; - c_obj_ids = (hid_t *)HDmalloc(sizeof(hid_t) * c_max_objs); + c_obj_ids = (hid_t *)malloc(sizeof(hid_t) * c_max_objs); c_num_objs = H5Fget_obj_ids(c_file_id, c_obj_type, c_max_objs, c_obj_ids); if (c_num_objs < 0) @@ -351,7 +351,7 @@ h5fget_obj_ids_c(hid_t_f *file_id, int_f *obj_type, size_t_f *max_objs, hid_t_f for (u = 0; u < c_max_objs; u++) obj_ids[u] = (hid_t_f)c_obj_ids[u]; - HDfree(c_obj_ids); + free(c_obj_ids); *num_objs = (size_t_f)c_num_objs; return ret_value; @@ -417,7 +417,7 @@ h5fget_name_c(hid_t_f *obj_id, size_t_f *size, _fcd buf, size_t_f *buflen) /* * Allocate buffer to hold name of file */ - if (NULL == (c_buf = (char *)HDmalloc((size_t)*buflen + 1))) + if (NULL == (c_buf = (char *)malloc((size_t)*buflen + 1))) HGOTO_DONE(FAIL); /* @@ -434,7 +434,7 @@ h5fget_name_c(hid_t_f *obj_id, size_t_f *size, _fcd buf, size_t_f *buflen) done: *size = (size_t_f)size_c; if (c_buf) - HDfree(c_buf); + free(c_buf); return ret_value; } |