mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-30 15:32:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

Suppress cast-qual warning in H5TB Fortran wrapper (#3728)

Browse Source 
This interface is fundamentally broken, const-wise.
This commit is contained in:
Dana Robinson 2023-10-19 21:19:52 -07:00 committed by GitHub
parent 97a6efbf8a
commit b916ce2419
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hl/fortran/src/H5TBfc.c
View File

@ -92,10 +92,12 @@ h5tbmake_table_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *name
/*
* call H5TBmake_table function.
*/
H5_GCC_CLANG_DIAG_OFF("cast-qual")
if (H5TBmake_table(c_name1, (hid_t)*loc_id, c_name, c_nfields, (hsize_t)*nrecords, (size_t)*type_size,
(const char **)c_field_names, c_field_offset, c_field_types, (hsize_t)*chunk_size,
NULL, *compress, NULL) < 0)
HGOTO_DONE(FAIL);
H5_GCC_CLANG_DIAG_ON("cast-qual")
done:
if (c_name)
@ -193,10 +195,12 @@ h5tbmake_table_ptr_c(size_t_f *namelen1, _fcd name1, hid_t_f *loc_id, size_t_f *
/*
* call H5TBmake_table function.
*/
H5_GCC_CLANG_DIAG_OFF("cast-qual")
if (H5TBmake_table(c_name1, (hid_t)*loc_id, c_name, c_nfields, (hsize_t)*nrecords, (size_t)*type_size,
(const char **)c_field_names, c_field_offset, c_field_types, (hsize_t)*chunk_size,
fill_data, *compress, data) < 0)
HGOTO_DONE(FAIL);
H5_GCC_CLANG_DIAG_ON("cast-qual")
done:
if (c_name)