summaryrefslogtreecommitdiffstats
path: root/hl/fortran/src
diff options
context:
space:
mode:
authorDana Robinson <43805+derobins@users.noreply.github.com>2023-07-27 20:43:30 (GMT)
committerGitHub <noreply@github.com>2023-07-27 20:43:30 (GMT)
commit1e91d96fa02466ffe451319bdac1005f84dc7993 (patch)
tree4de04ef502c313dfd766497b20235188761146c0 /hl/fortran/src
parent95e5349089b95dfb95f0f8ce2d6db1bc04ba6c82 (diff)
downloadhdf5-1e91d96fa02466ffe451319bdac1005f84dc7993.zip
hdf5-1e91d96fa02466ffe451319bdac1005f84dc7993.tar.gz
hdf5-1e91d96fa02466ffe451319bdac1005f84dc7993.tar.bz2
Brings over most of the HD prefix removal (#3293)
Diffstat (limited to 'hl/fortran/src')
-rw-r--r--hl/fortran/src/H5DSfc.c12
-rw-r--r--hl/fortran/src/H5IMcc.c4
-rw-r--r--hl/fortran/src/H5IMfc.c34
-rw-r--r--hl/fortran/src/H5LTfc.c48
-rw-r--r--hl/fortran/src/H5TBfc.c106
5 files changed, 102 insertions, 102 deletions
diff --git a/hl/fortran/src/H5DSfc.c b/hl/fortran/src/H5DSfc.c
index 9ebd322..8029d34 100644
--- a/hl/fortran/src/H5DSfc.c
+++ b/hl/fortran/src/H5DSfc.c
@@ -54,7 +54,7 @@ h5dsset_scale_c(hid_t_f *dsid, _fcd dimname, size_t_f *dimnamelen)
done:
if (c_dimname)
- HDfree(c_dimname);
+ free(c_dimname);
return ret_value;
@@ -231,7 +231,7 @@ h5dsset_label_c(hid_t_f *did, int_f *idx, _fcd label, size_t_f *labellen)
done:
if (c_label)
- HDfree(c_label);
+ free(c_label);
return ret_value;
@@ -262,7 +262,7 @@ h5dsget_label_c(hid_t_f *did, int_f *idx, _fcd label, size_t_f *size)
/*
* Allocate buffer to hold label
*/
- if ((c_label = (char *)HDmalloc((size_t)*size + 1)) == NULL)
+ if ((c_label = (char *)malloc((size_t)*size + 1)) == NULL)
HGOTO_DONE(FAIL);
/*
@@ -282,7 +282,7 @@ done:
*size = (size_t_f)size_c; /* Don't subtract '1' because H5DSget_label doesn't include the
* trailing NULL in the length calculation, Ref. HDFFV-7596 */
if (c_label)
- HDfree(c_label);
+ free(c_label);
return ret_value;
} /* end h5dsget_label_c() */
@@ -312,7 +312,7 @@ h5dsget_scale_name_c(hid_t_f *did, _fcd name, size_t_f *size)
/*
* Allocate buffer to hold name
*/
- if ((c_scale_name = (char *)HDmalloc((size_t)*size + 1)) == NULL)
+ if ((c_scale_name = (char *)malloc((size_t)*size + 1)) == NULL)
HGOTO_DONE(FAIL);
/*
@@ -330,7 +330,7 @@ h5dsget_scale_name_c(hid_t_f *did, _fcd name, size_t_f *size)
done:
if (c_scale_name)
- HDfree(c_scale_name);
+ free(c_scale_name);
return ret_value;
} /* end h5dsget_scale_name_c() */
diff --git a/hl/fortran/src/H5IMcc.c b/hl/fortran/src/H5IMcc.c
index 2084826..53c1f69 100644
--- a/hl/fortran/src/H5IMcc.c
+++ b/hl/fortran/src/H5IMcc.c
@@ -469,7 +469,7 @@ H5IM_get_palette(hid_t loc_id, const char *image_name, int pal_number, hid_t tid
dim_ref = (size_t)n_refs;
- refbuf = (hobj_ref_t *)HDmalloc(sizeof(hobj_ref_t) * dim_ref);
+ refbuf = (hobj_ref_t *)malloc(sizeof(hobj_ref_t) * dim_ref);
if (H5Aread(attr_id, attr_type, refbuf) < 0)
goto out;
@@ -489,7 +489,7 @@ H5IM_get_palette(hid_t loc_id, const char *image_name, int pal_number, hid_t tid
if (H5Dclose(pal_id) < 0)
goto out;
- HDfree(refbuf);
+ free(refbuf);
} /* H5T_REFERENCE */
diff --git a/hl/fortran/src/H5IMfc.c b/hl/fortran/src/H5IMfc.c
index cead871..1e060ad 100644
--- a/hl/fortran/src/H5IMfc.c
+++ b/hl/fortran/src/H5IMfc.c
@@ -63,7 +63,7 @@ h5immake_image_8bit_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -110,7 +110,7 @@ h5imread_image_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *buf)
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -168,9 +168,9 @@ h5immake_image_24bit_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_il != NULL)
- HDfree(c_il);
+ free(c_il);
return ret_value;
}
@@ -215,7 +215,7 @@ h5imget_image_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *w
/*
* allocate buffer to hold name of an attribute
*/
- if ((c_buf = (char *)HDmalloc((size_t)*ilen + 1)) == NULL)
+ if ((c_buf = (char *)malloc((size_t)*ilen + 1)) == NULL)
goto done;
/*
@@ -242,9 +242,9 @@ h5imget_image_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *w
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_buf != NULL)
- HDfree(c_buf);
+ free(c_buf);
return ret_value;
}
@@ -287,7 +287,7 @@ h5imis_image_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name)
ret = H5IMis_image(c_loc_id, c_name);
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret;
}
@@ -334,7 +334,7 @@ h5immake_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *dim
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -389,9 +389,9 @@ h5imlink_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *ilen
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_namepal != NULL)
- HDfree(c_namepal);
+ free(c_namepal);
return ret_value;
}
@@ -446,9 +446,9 @@ h5imunlink_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *il
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_namepal != NULL)
- HDfree(c_namepal);
+ free(c_namepal);
return ret_value;
}
@@ -501,7 +501,7 @@ h5imget_npalettes_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *np
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -557,7 +557,7 @@ h5imget_palette_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *pal
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -607,7 +607,7 @@ h5imget_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *pal_numb
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -650,7 +650,7 @@ h5imis_palette_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name)
ret = H5IMis_palette(c_loc_id, c_name);
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret;
}
diff --git a/hl/fortran/src/H5LTfc.c b/hl/fortran/src/H5LTfc.c
index c888eec..9555e9f 100644
--- a/hl/fortran/src/H5LTfc.c
+++ b/hl/fortran/src/H5LTfc.c
@@ -49,7 +49,7 @@ h5ltmake_dataset_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *rank, h
if (c_name == NULL)
goto done;
- c_dims = (hsize_t *)HDmalloc(sizeof(hsize_t) * ((size_t)*rank));
+ c_dims = (hsize_t *)malloc(sizeof(hsize_t) * ((size_t)*rank));
if (c_dims == NULL)
goto done;
/*
@@ -71,9 +71,9 @@ h5ltmake_dataset_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *rank, h
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_dims != NULL)
- HDfree(c_dims);
+ free(c_dims);
return ret_value;
}
@@ -124,7 +124,7 @@ h5ltread_dataset_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hid_t_f *type_
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -179,9 +179,9 @@ h5ltmake_dataset_string_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_buf != NULL)
- HDfree(c_buf);
+ free(c_buf);
return ret_value;
}
@@ -231,7 +231,7 @@ h5ltread_dataset_string_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, char *b
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -324,11 +324,11 @@ h5ltset_attribute_c(hid_t_f *loc_id, size_t_f *namelen, _fcd dsetname, size_t_f
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_attrname != NULL)
- HDfree(c_attrname);
+ free(c_attrname);
if (c_buf != NULL)
- HDfree(c_buf);
+ free(c_buf);
return ret_value;
}
@@ -405,9 +405,9 @@ h5ltget_attribute_c(hid_t_f *loc_id, size_t_f *namelen, _fcd dsetname, size_t_f
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_attrname != NULL)
- HDfree(c_attrname);
+ free(c_attrname);
return ret_value;
}
@@ -451,7 +451,7 @@ h5ltget_attribute_string_c(hid_t_f *loc_id, size_t_f *namelen, _fcd dsetname, si
/*
* Allocate buffer to hold C attribute string
*/
- if ((c_buf = (char *)HDmalloc((size_t)*buf_size + 1)) == NULL)
+ if ((c_buf = (char *)malloc((size_t)*buf_size + 1)) == NULL)
goto done;
/*
@@ -470,11 +470,11 @@ h5ltget_attribute_string_c(hid_t_f *loc_id, size_t_f *namelen, _fcd dsetname, si
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_attrname != NULL)
- HDfree(c_attrname);
+ free(c_attrname);
if (c_buf != NULL)
- HDfree(c_buf);
+ free(c_buf);
return ret_value;
}
@@ -526,7 +526,7 @@ h5ltget_dataset_ndims_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *ra
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -569,7 +569,7 @@ h5ltfind_dataset_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name)
ret = H5LTfind_dataset(c_loc_id, c_name);
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret;
}
@@ -639,7 +639,7 @@ h5ltget_dataset_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -697,9 +697,9 @@ h5ltget_attribute_ndims_c(hid_t_f *loc_id, size_t_f *namelen, _fcd dsetname, siz
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_attrname != NULL)
- HDfree(c_attrname);
+ free(c_attrname);
return ret_value;
}
@@ -774,9 +774,9 @@ h5ltget_attribute_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f
done:
if (c_name != NULL)
- HDfree(c_name);
+ free(c_name);
if (c_attrname != NULL)
- HDfree(c_attrname);
+ free(c_attrname);
return ret_value;
}
@@ -821,7 +821,7 @@ h5ltpath_valid_c(hid_t_f *loc_id, _fcd path, size_t_f *pathlen, int_f *check_obj
done:
if (c_path != NULL)
- HDfree(c_path);
+ free(c_path);
return (int_f)ret;
}
diff --git a/hl/fortran/src/H5TBfc.c b/hl/fortran/src/H5TBfc.c
index 588638c..5bbc326 100644
--- a/hl/fortran/src/H5TBfc.c
+++ b/hl/fortran/src/H5TBfc.c
@@ -61,9 +61,9 @@ h5tbmake_table_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *name
HGOTO_DONE(FAIL)
if (NULL == (c_name1 = (char *)HD5f2cstring(name1, (size_t)*namelen1)))
HGOTO_DONE(FAIL)
- if (NULL == (c_field_offset = (size_t *)HDmalloc(sizeof(size_t) * (size_t)c_nfields)))
+ if (NULL == (c_field_offset = (size_t *)malloc(sizeof(size_t) * (size_t)c_nfields)))
HGOTO_DONE(FAIL)
- if (NULL == (c_field_types = (hid_t *)HDmalloc(sizeof(hid_t) * (size_t)c_nfields)))
+ if (NULL == (c_field_types = (hid_t *)malloc(sizeof(hid_t) * (size_t)c_nfields)))
HGOTO_DONE(FAIL)
for (i = 0; i < num_elem; i++) {
@@ -74,7 +74,7 @@ h5tbmake_table_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *name
/*
* allocate array of character pointers
*/
- if (NULL == (c_field_names = (char **)HDcalloc((size_t)num_elem, sizeof(char *))))
+ if (NULL == (c_field_names = (char **)calloc((size_t)num_elem, sizeof(char *))))
HGOTO_DONE(FAIL)
/* copy data to long C string */
@@ -86,9 +86,9 @@ h5tbmake_table_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *name
*/
tmp_p = tmp;
for (i = 0; i < num_elem; i++) {
- if (NULL == (c_field_names[i] = (char *)HDmalloc((size_t)char_len_field_names[i] + 1)))
+ if (NULL == (c_field_names[i] = (char *)malloc((size_t)char_len_field_names[i] + 1)))
HGOTO_DONE(FAIL)
- HDmemcpy(c_field_names[i], tmp_p, (size_t)char_len_field_names[i]);
+ memcpy(c_field_names[i], tmp_p, (size_t)char_len_field_names[i]);
c_field_names[i][char_len_field_names[i]] = '\0';
tmp_p = tmp_p + *max_char_size_field_names;
} /* end for */
@@ -103,22 +103,22 @@ h5tbmake_table_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *name
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
if (c_name1)
- HDfree(c_name1);
+ free(c_name1);
if (c_field_names) {
for (i = 0; i < num_elem; i++) {
if (c_field_names[i])
- HDfree(c_field_names[i]);
+ free(c_field_names[i]);
} /* end for */
- HDfree(c_field_names);
+ free(c_field_names);
} /* end if */
if (tmp)
- HDfree(tmp);
+ free(tmp);
if (c_field_offset)
- HDfree(c_field_offset);
+ free(c_field_offset);
if (c_field_types)
- HDfree(c_field_types);
+ free(c_field_types);
return ret_value;
} /* end h5tbmake_table_c() */
@@ -166,9 +166,9 @@ h5tbmake_table_ptr_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *
HGOTO_DONE(FAIL)
if (NULL == (c_name1 = (char *)HD5f2cstring(name1, (size_t)*namelen1)))
HGOTO_DONE(FAIL)
- if (NULL == (c_field_offset = (size_t *)HDmalloc(sizeof(size_t) * (size_t)c_nfields)))
+ if (NULL == (c_field_offset = (size_t *)malloc(sizeof(size_t) * (size_t)c_nfields)))
HGOTO_DONE(FAIL)
- if (NULL == (c_field_types = (hid_t *)HDmalloc(sizeof(hid_t) * (size_t)c_nfields)))
+ if (NULL == (c_field_types = (hid_t *)malloc(sizeof(hid_t) * (size_t)c_nfields)))
HGOTO_DONE(FAIL)
for (i = 0; i < num_elem; i++) {
@@ -179,7 +179,7 @@ h5tbmake_table_ptr_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *
/*
* allocate array of character pointers
*/
- if (NULL == (c_field_names = (char **)HDcalloc((size_t)num_elem, sizeof(char *))))
+ if (NULL == (c_field_names = (char **)calloc((size_t)num_elem, sizeof(char *))))
HGOTO_DONE(FAIL)
/* copy data to long C string */
@@ -191,9 +191,9 @@ h5tbmake_table_ptr_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *
*/
tmp_p = tmp;
for (i = 0; i < num_elem; i++) {
- if (NULL == (c_field_names[i] = (char *)HDmalloc((size_t)char_len_field_names[i] + 1)))
+ if (NULL == (c_field_names[i] = (char *)malloc((size_t)char_len_field_names[i] + 1)))
HGOTO_DONE(FAIL)
- HDmemcpy(c_field_names[i], tmp_p, (size_t)char_len_field_names[i]);
+ memcpy(c_field_names[i], tmp_p, (size_t)char_len_field_names[i]);
c_field_names[i][char_len_field_names[i]] = '\0';
tmp_p = tmp_p + *max_char_size_field_names;
} /* end for */
@@ -208,22 +208,22 @@ h5tbmake_table_ptr_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
if (c_name1)
- HDfree(c_name1);
+ free(c_name1);
if (c_field_names) {
for (i = 0; i < num_elem; i++) {
if (c_field_names[i])
- HDfree(c_field_names[i]);
+ free(c_field_names[i]);
} /* end for */
- HDfree(c_field_names);
+ free(c_field_names);
} /* end if */
if (tmp)
- HDfree(tmp);
+ free(tmp);
if (c_field_offset)
- HDfree(c_field_offset);
+ free(c_field_offset);
if (c_field_types)
- HDfree(c_field_types);
+ free(c_field_types);
return ret_value;
} /* end h5tbmake_table_c() */
@@ -260,9 +260,9 @@ h5tbread_table_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hsize_t_f *nfiel
if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
HGOTO_DONE(FAIL)
- if (NULL == (c_dst_offset = (size_t *)HDmalloc(sizeof(size_t) * (size_t)c_nfields)))
+ if (NULL == (c_dst_offset = (size_t *)malloc(sizeof(size_t) * (size_t)c_nfields)))
HGOTO_DONE(FAIL)
- if (NULL == (c_dst_sizes = (size_t *)HDmalloc(sizeof(size_t) * (size_t)c_nfields)))
+ if (NULL == (c_dst_sizes = (size_t *)malloc(sizeof(size_t) * (size_t)c_nfields)))
HGOTO_DONE(FAIL)
for (i = 0; i < c_nfields; i++) {
@@ -278,12 +278,12 @@ h5tbread_table_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hsize_t_f *nfiel
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
if (c_dst_offset)
- HDfree(c_dst_offset);
+ free(c_dst_offset);
if (c_dst_sizes)
- HDfree(c_dst_sizes);
+ free(c_dst_sizes);
return ret_value;
} /* end h5tbmake_table_c() */
@@ -329,9 +329,9 @@ h5tbwrite_field_name_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
if (c_name1)
- HDfree(c_name1);
+ free(c_name1);
return ret_value;
}
@@ -377,9 +377,9 @@ h5tbread_field_name_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *n
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
if (c_name1)
- HDfree(c_name1);
+ free(c_name1);
return ret_value;
}
@@ -423,7 +423,7 @@ h5tbwrite_field_index_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *fi
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -467,7 +467,7 @@ h5tbread_field_index_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, int_f *fie
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -512,9 +512,9 @@ h5tbinsert_field_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *name
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
if (c_name1)
- HDfree(c_name1);
+ free(c_name1);
return ret_value;
}
@@ -557,9 +557,9 @@ h5tbdelete_field_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, size_t_f *name
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
if (c_name1)
- HDfree(c_name1);
+ free(c_name1);
return ret_value;
}
@@ -604,7 +604,7 @@ h5tbget_table_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *n
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
return ret_value;
}
@@ -655,15 +655,15 @@ h5tbget_field_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *n
*/
if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
HGOTO_DONE(FAIL)
- if (NULL == (c_field_offsets = (size_t *)HDmalloc(sizeof(size_t) * (size_t)c_nfields)))
+ if (NULL == (c_field_offsets = (size_t *)malloc(sizeof(size_t) * (size_t)c_nfields)))
HGOTO_DONE(FAIL)
- if (NULL == (c_field_sizes = (size_t *)HDmalloc(sizeof(size_t) * (size_t)c_nfields)))
+ if (NULL == (c_field_sizes = (size_t *)malloc(sizeof(size_t) * (size_t)c_nfields)))
HGOTO_DONE(FAIL)
- if (NULL == (c_field_names = (char **)HDcalloc((size_t)c_nfields, sizeof(char *))))
+ if (NULL == (c_field_names = (char **)calloc((size_t)c_nfields, sizeof(char *))))
HGOTO_DONE(FAIL)
for (i = 0; i < c_nfields; i++)
- if (NULL == (c_field_names[i] = (char *)HDmalloc(sizeof(char) * HLTB_MAX_FIELD_LEN)))
+ if (NULL == (c_field_names[i] = (char *)malloc(sizeof(char) * HLTB_MAX_FIELD_LEN)))
HGOTO_DONE(FAIL)
/*
@@ -676,15 +676,15 @@ h5tbget_field_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *n
/* return values */
/* names array */
- if (NULL == (tmp = (char *)HDmalloc((c_lenmax * (size_t)c_nfields) + 1)))
+ if (NULL == (tmp = (char *)malloc((c_lenmax * (size_t)c_nfields) + 1)))
HGOTO_DONE(FAIL)
tmp_p = tmp;
- HDmemset(tmp, ' ', c_lenmax * (size_t)c_nfields);
+ memset(tmp, ' ', c_lenmax * (size_t)c_nfields);
tmp[c_lenmax * c_nfields] = '\0';
for (i = 0; i < c_nfields; i++) {
size_t field_name_len = HDstrlen(c_field_names[i]);
- HDmemcpy(tmp_p, c_field_names[i], field_name_len);
+ memcpy(tmp_p, c_field_names[i], field_name_len);
namelen2[i] = (size_t_f)field_name_len;
length = MAX(length, strlen((c_field_names[i])));
tmp_p = tmp_p + c_lenmax;
@@ -702,19 +702,19 @@ h5tbget_field_info_c(hid_t_f *loc_id, size_t_f *namelen, _fcd name, hsize_t_f *n
done:
if (c_name)
- HDfree(c_name);
+ free(c_name);
if (c_field_names) {
for (i = 0; i < num_elem; i++)
if (c_field_names[i])
- HDfree(c_field_names[i]);
- HDfree(c_field_names);
+ free(c_field_names[i]);
+ free(c_field_names);
} /* end if */
if (tmp)
- HDfree(tmp);
+ free(tmp);
if (c_field_offsets)
- HDfree(c_field_offsets);
+ free(c_field_offsets);
if (c_field_sizes)
- HDfree(c_field_sizes);
+ free(c_field_sizes);
return ret_value;
}