diff options
-rw-r--r-- | fortran/src/H5Ef.c | 4 | ||||
-rw-r--r-- | src/H5G.c | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c index 8bd4751..8199a90 100644 --- a/fortran/src/H5Ef.c +++ b/fortran/src/H5Ef.c @@ -121,7 +121,7 @@ int_f nh5eget_major_c(int_f* error_no, _fcd name) { int ret_val = -1; - const char c_name[H5E_LEN]; + char c_name[H5E_LEN]; hid_t c_error_no; c_error_no = (hid_t)*error_no; @@ -151,7 +151,7 @@ int_f nh5eget_minor_c(int_f* error_no, _fcd name) { int ret_val = -1; - const char c_name[H5E_LEN]; + char c_name[H5E_LEN]; hid_t c_error_no; c_error_no = (hid_t)*error_no; @@ -563,9 +563,9 @@ H5Gget_objtype_by_idx(hid_t loc_id, hsize_t idx) /* Check args */ if (NULL==(loc=H5G_loc (loc_id))) - HGOTO_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a location ID"); + HGOTO_ERROR (H5E_ARGS, H5E_BADTYPE, H5G_UNKNOWN, "not a location ID"); if(H5G_get_type(loc,H5AC_ind_dxpl_id)!=H5G_GROUP) - HGOTO_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a group"); + HGOTO_ERROR (H5E_ARGS, H5E_BADTYPE, H5G_UNKNOWN, "not a group"); if (H5G_get_num_objs(loc, &num_objs, H5AC_ind_dxpl_id)<0) HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, H5G_UNKNOWN, "unable to retrieve number of members"); @@ -2692,7 +2692,7 @@ H5G_get_objtype_by_idx(H5G_entry_t *loc, hsize_t idx, hid_t dxpl_id) H5G_bt_ud3_t udata; /* User data for B-tree callback */ H5G_obj_t ret_value; /* Return value */ - FUNC_ENTER_NOAPI(H5G_get_objtype_by_idx, FAIL); + FUNC_ENTER_NOAPI(H5G_get_objtype_by_idx, H5G_UNKNOWN); /* Sanity check */ assert(loc); @@ -2706,7 +2706,7 @@ H5G_get_objtype_by_idx(H5G_entry_t *loc, hsize_t idx, hid_t dxpl_id) /* Iterate over the group members */ if (H5B_iterate (loc->file, dxpl_id, H5B_SNODE, H5G_node_type, loc->cache.stab.btree_addr, &udata)<0) - HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "iteration operator failed"); + HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, H5G_UNKNOWN, "iteration operator failed"); ret_value = udata.type; |