diff options
Diffstat (limited to 'src/H5EAhdr.c')
| -rw-r--r-- | src/H5EAhdr.c | 755 |
1 files changed, 355 insertions, 400 deletions
diff --git a/src/H5EAhdr.c b/src/H5EAhdr.c index 8b4d5f7..1a7839f 100644 --- a/src/H5EAhdr.c +++ b/src/H5EAhdr.c @@ -26,24 +26,21 @@ /* Module Declaration */ /**********************/ -#include "H5EAmodule.h" /* This source code file is part of the H5EA module */ - +#include "H5EAmodule.h" /* This source code file is part of the H5EA module */ /***********************/ /* Other Packages Used */ /***********************/ - /***********/ /* Headers */ /***********/ -#include "H5private.h" /* Generic Functions */ -#include "H5Eprivate.h" /* Error handling */ -#include "H5EApkg.h" /* Extensible Arrays */ -#include "H5MFprivate.h" /* File memory management */ -#include "H5MMprivate.h" /* Memory management */ -#include "H5VMprivate.h" /* Vectors and arrays */ - +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5EApkg.h" /* Extensible Arrays */ +#include "H5MFprivate.h" /* File memory management */ +#include "H5MMprivate.h" /* Memory management */ +#include "H5VMprivate.h" /* Vectors and arrays */ /****************/ /* Local Macros */ @@ -55,9 +52,7 @@ #endif /* NDEBUG */ /* # of elements in a data block for a particular super block */ -#define H5EA_SBLK_DBLK_NELMTS(s, m) \ - (size_t)H5_EXP2(((s) + 1) / 2) * (m) - +#define H5EA_SBLK_DBLK_NELMTS(s, m) (size_t) H5_EXP2(((s) + 1) / 2) * (m) /******************/ /* Local Typedefs */ @@ -66,27 +61,22 @@ /* Alias for pointer to factory, for use when allocating sequences of them */ typedef H5FL_fac_head_t *H5FL_fac_head_ptr_t; - /********************/ /* Package Typedefs */ /********************/ - /********************/ /* Local Prototypes */ /********************/ - /*********************/ /* Package Variables */ /*********************/ - /*****************************/ /* Library Private Variables */ /*****************************/ - /*******************/ /* Local Variables */ /*******************/ @@ -100,8 +90,6 @@ H5FL_SEQ_DEFINE_STATIC(H5FL_fac_head_ptr_t); /* Declare a free list to manage the H5EA_sblk_info_t sequence information */ H5FL_SEQ_DEFINE_STATIC(H5EA_sblk_info_t); - - /*------------------------------------------------------------------------- * Function: H5EA__hdr_alloc * @@ -114,40 +102,37 @@ H5FL_SEQ_DEFINE_STATIC(H5EA_sblk_info_t); * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -H5EA_hdr_t *, NULL, NULL, -H5EA__hdr_alloc(H5F_t *f)) +BEGIN_FUNC(PKG, ERR, H5EA_hdr_t *, NULL, NULL, H5EA__hdr_alloc(H5F_t *f)) - /* Local variables */ - H5EA_hdr_t *hdr = NULL; /* Shared extensible array header */ +/* Local variables */ +H5EA_hdr_t *hdr = NULL; /* Shared extensible array header */ - /* Check arguments */ - HDassert(f); +/* Check arguments */ +HDassert(f); - /* Allocate space for the shared information */ - if(NULL == (hdr = H5FL_CALLOC(H5EA_hdr_t))) - H5E_THROW(H5E_CANTALLOC, "memory allocation failed for extensible array shared header") +/* Allocate space for the shared information */ +if (NULL == (hdr = H5FL_CALLOC(H5EA_hdr_t))) + H5E_THROW(H5E_CANTALLOC, "memory allocation failed for extensible array shared header") - /* Set non-zero internal fields */ - hdr->addr = HADDR_UNDEF; +/* Set non-zero internal fields */ +hdr->addr = HADDR_UNDEF; - /* Set the internal parameters for the array */ - hdr->f = f; - hdr->swmr_write = (H5F_INTENT(f) & H5F_ACC_SWMR_WRITE) > 0; - hdr->sizeof_addr = H5F_SIZEOF_ADDR(f); - hdr->sizeof_size = H5F_SIZEOF_SIZE(f); +/* Set the internal parameters for the array */ +hdr->f = f; +hdr->swmr_write = (H5F_INTENT(f) & H5F_ACC_SWMR_WRITE) > 0; +hdr->sizeof_addr = H5F_SIZEOF_ADDR(f); +hdr->sizeof_size = H5F_SIZEOF_SIZE(f); - /* Set the return value */ - ret_value = hdr; +/* Set the return value */ +ret_value = hdr; CATCH - if(!ret_value) - if(hdr && H5EA__hdr_dest(hdr) < 0) - H5E_THROW(H5E_CANTFREE, "unable to destroy extensible array header") +if (!ret_value) + if (hdr && H5EA__hdr_dest(hdr) < 0) + H5E_THROW(H5E_CANTFREE, "unable to destroy extensible array header") -END_FUNC(PKG) /* end H5EA__hdr_alloc() */ +END_FUNC(PKG) /* end H5EA__hdr_alloc() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_init * @@ -183,58 +168,55 @@ END_FUNC(PKG) /* end H5EA__hdr_alloc() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -herr_t, SUCCEED, FAIL, -H5EA__hdr_init(H5EA_hdr_t *hdr, void *ctx_udata)) - - /* Local variables */ - hsize_t start_idx; /* First element index for each super block */ - hsize_t start_dblk; /* First data block index for each super block */ - size_t u; /* Local index variable */ - - /* Sanity check */ - HDassert(hdr); - HDassert(hdr->cparam.max_nelmts_bits); - HDassert(hdr->cparam.data_blk_min_elmts); - HDassert(hdr->cparam.sup_blk_min_data_ptrs); - - /* Compute general information */ - hdr->nsblks = 1 + (hdr->cparam.max_nelmts_bits - H5VM_log2_of2(hdr->cparam.data_blk_min_elmts)); - hdr->dblk_page_nelmts = (size_t)1 << hdr->cparam.max_dblk_page_nelmts_bits; - hdr->arr_off_size = (unsigned char)H5EA_SIZEOF_OFFSET_BITS(hdr->cparam.max_nelmts_bits); - - /* Allocate information for each super block */ - if(NULL == (hdr->sblk_info = H5FL_SEQ_MALLOC(H5EA_sblk_info_t, hdr->nsblks))) - H5E_THROW(H5E_CANTALLOC, "memory allocation failed for super block info array") - - /* Compute information about each super block */ - start_idx = 0; - start_dblk = 0; - for(u = 0; u < hdr->nsblks; u++) { - hdr->sblk_info[u].ndblks = (size_t)H5_EXP2(u / 2); - hdr->sblk_info[u].dblk_nelmts = H5EA_SBLK_DBLK_NELMTS(u, hdr->cparam.data_blk_min_elmts); - hdr->sblk_info[u].start_idx = start_idx; - hdr->sblk_info[u].start_dblk = start_dblk; - - /* Advance starting indices for next super block */ - start_idx += (hsize_t)hdr->sblk_info[u].ndblks * (hsize_t)hdr->sblk_info[u].dblk_nelmts; - start_dblk += (hsize_t)hdr->sblk_info[u].ndblks; - } /* end for */ - - /* Set size of header on disk (locally and in statistics) */ - hdr->stats.computed.hdr_size = hdr->size = H5EA_HEADER_SIZE_HDR(hdr); - - /* Create the callback context, if there's one */ - if(hdr->cparam.cls->crt_context) { - if(NULL == (hdr->cb_ctx = (*hdr->cparam.cls->crt_context)(ctx_udata))) - H5E_THROW(H5E_CANTCREATE, "unable to create extensible array client callback context") - } /* end if */ +BEGIN_FUNC(PKG, ERR, herr_t, SUCCEED, FAIL, H5EA__hdr_init(H5EA_hdr_t *hdr, void *ctx_udata)) + +/* Local variables */ +hsize_t start_idx; /* First element index for each super block */ +hsize_t start_dblk; /* First data block index for each super block */ +size_t u; /* Local index variable */ + +/* Sanity check */ +HDassert(hdr); +HDassert(hdr->cparam.max_nelmts_bits); +HDassert(hdr->cparam.data_blk_min_elmts); +HDassert(hdr->cparam.sup_blk_min_data_ptrs); + +/* Compute general information */ +hdr->nsblks = 1 + (hdr->cparam.max_nelmts_bits - H5VM_log2_of2(hdr->cparam.data_blk_min_elmts)); +hdr->dblk_page_nelmts = (size_t)1 << hdr->cparam.max_dblk_page_nelmts_bits; +hdr->arr_off_size = (unsigned char)H5EA_SIZEOF_OFFSET_BITS(hdr->cparam.max_nelmts_bits); + +/* Allocate information for each super block */ +if (NULL == (hdr->sblk_info = H5FL_SEQ_MALLOC(H5EA_sblk_info_t, hdr->nsblks))) + H5E_THROW(H5E_CANTALLOC, "memory allocation failed for super block info array") + +/* Compute information about each super block */ +start_idx = 0; +start_dblk = 0; +for (u = 0; u < hdr->nsblks; u++) { + hdr->sblk_info[u].ndblks = (size_t)H5_EXP2(u / 2); + hdr->sblk_info[u].dblk_nelmts = H5EA_SBLK_DBLK_NELMTS(u, hdr->cparam.data_blk_min_elmts); + hdr->sblk_info[u].start_idx = start_idx; + hdr->sblk_info[u].start_dblk = start_dblk; + + /* Advance starting indices for next super block */ + start_idx += (hsize_t)hdr->sblk_info[u].ndblks * (hsize_t)hdr->sblk_info[u].dblk_nelmts; + start_dblk += (hsize_t)hdr->sblk_info[u].ndblks; +} /* end for */ + +/* Set size of header on disk (locally and in statistics) */ +hdr->stats.computed.hdr_size = hdr->size = H5EA_HEADER_SIZE_HDR(hdr); + +/* Create the callback context, if there's one */ +if (hdr->cparam.cls->crt_context) { + if (NULL == (hdr->cb_ctx = (*hdr->cparam.cls->crt_context)(ctx_udata))) + H5E_THROW(H5E_CANTCREATE, "unable to create extensible array client callback context") +} /* end if */ CATCH -END_FUNC(PKG) /* end H5EA__hdr_init() */ +END_FUNC(PKG) /* end H5EA__hdr_init() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_alloc_elmts * @@ -247,60 +229,59 @@ END_FUNC(PKG) /* end H5EA__hdr_init() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -void *, NULL, NULL, -H5EA__hdr_alloc_elmts(H5EA_hdr_t *hdr, size_t nelmts)) +BEGIN_FUNC(PKG, ERR, void *, NULL, NULL, H5EA__hdr_alloc_elmts(H5EA_hdr_t *hdr, size_t nelmts)) - /* Local variables */ - void *elmts = NULL; /* Element buffer allocated */ - unsigned idx; /* Index of element buffer factory in header */ +/* Local variables */ +void * elmts = NULL; /* Element buffer allocated */ +unsigned idx; /* Index of element buffer factory in header */ - /* Check arguments */ - HDassert(hdr); - HDassert(nelmts > 0); +/* Check arguments */ +HDassert(hdr); +HDassert(nelmts > 0); - /* Compute the index of the element buffer factory */ - H5_CHECK_OVERFLOW(nelmts, /*From:*/size_t, /*To:*/uint32_t); - idx = H5VM_log2_of2((uint32_t)nelmts) - H5VM_log2_of2((uint32_t)hdr->cparam.data_blk_min_elmts); +/* Compute the index of the element buffer factory */ +H5_CHECK_OVERFLOW(nelmts, /*From:*/ size_t, /*To:*/ uint32_t); +idx = H5VM_log2_of2((uint32_t)nelmts) - H5VM_log2_of2((uint32_t)hdr->cparam.data_blk_min_elmts); - /* Check for needing to increase size of array of factories */ - if(idx >= hdr->elmt_fac.nalloc) { - H5FL_fac_head_t **new_fac; /* New array of element factories */ - size_t new_nalloc = MAX3(1, (idx + 1), (2 * hdr->elmt_fac.nalloc)); /* New number of factories allocated */ +/* Check for needing to increase size of array of factories */ +if (idx >= hdr->elmt_fac.nalloc) { + H5FL_fac_head_t **new_fac; /* New array of element factories */ + size_t new_nalloc = + MAX3(1, (idx + 1), (2 * hdr->elmt_fac.nalloc)); /* New number of factories allocated */ - /* Re-allocate array of element factories */ - if(NULL == (new_fac = H5FL_SEQ_REALLOC(H5FL_fac_head_ptr_t, hdr->elmt_fac.fac, new_nalloc))) - H5E_THROW(H5E_CANTALLOC, "memory allocation failed for data block data element buffer factory array") + /* Re-allocate array of element factories */ + if (NULL == (new_fac = H5FL_SEQ_REALLOC(H5FL_fac_head_ptr_t, hdr->elmt_fac.fac, new_nalloc))) + H5E_THROW(H5E_CANTALLOC, "memory allocation failed for data block data element buffer factory array") - /* Zero out new elements allocated */ - HDmemset(new_fac + hdr->elmt_fac.nalloc, 0, (new_nalloc - hdr->elmt_fac.nalloc) * sizeof(H5FL_fac_head_ptr_t)); + /* Zero out new elements allocated */ + HDmemset(new_fac + hdr->elmt_fac.nalloc, 0, + (new_nalloc - hdr->elmt_fac.nalloc) * sizeof(H5FL_fac_head_ptr_t)); - /* Update information about element factories in header */ - hdr->elmt_fac.nalloc = new_nalloc; - hdr->elmt_fac.fac = new_fac; - } /* end if */ + /* Update information about element factories in header */ + hdr->elmt_fac.nalloc = new_nalloc; + hdr->elmt_fac.fac = new_fac; +} /* end if */ - /* Check for un-initialized factory at index */ - if(NULL == hdr->elmt_fac.fac[idx]) { - if(NULL == (hdr->elmt_fac.fac[idx] = H5FL_fac_init(nelmts * (size_t)hdr->cparam.cls->nat_elmt_size))) - H5E_THROW(H5E_CANTINIT, "can't create data block data element buffer factory") - } /* end if */ +/* Check for un-initialized factory at index */ +if (NULL == hdr->elmt_fac.fac[idx]) { + if (NULL == (hdr->elmt_fac.fac[idx] = H5FL_fac_init(nelmts * (size_t)hdr->cparam.cls->nat_elmt_size))) + H5E_THROW(H5E_CANTINIT, "can't create data block data element buffer factory") +} /* end if */ - /* Allocate buffer for elements in index block */ - if(NULL == (elmts = H5FL_FAC_MALLOC(hdr->elmt_fac.fac[idx]))) - H5E_THROW(H5E_CANTALLOC, "memory allocation failed for data block data element buffer") +/* Allocate buffer for elements in index block */ +if (NULL == (elmts = H5FL_FAC_MALLOC(hdr->elmt_fac.fac[idx]))) + H5E_THROW(H5E_CANTALLOC, "memory allocation failed for data block data element buffer") - /* Set the return value */ - ret_value = elmts; +/* Set the return value */ +ret_value = elmts; CATCH - if(!ret_value) - if(elmts) - elmts = H5FL_FAC_FREE(hdr->elmt_fac.fac[idx], elmts); +if (!ret_value) + if (elmts) + elmts = H5FL_FAC_FREE(hdr->elmt_fac.fac[idx], elmts); -END_FUNC(PKG) /* end H5EA__hdr_alloc_elmts() */ +END_FUNC(PKG) /* end H5EA__hdr_alloc_elmts() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_free_elmts * @@ -313,30 +294,27 @@ END_FUNC(PKG) /* end H5EA__hdr_alloc_elmts() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, NOERR, -herr_t, SUCCEED, -, -H5EA__hdr_free_elmts(H5EA_hdr_t *hdr, size_t nelmts, void *elmts)) +BEGIN_FUNC(PKG, NOERR, herr_t, SUCCEED, -, H5EA__hdr_free_elmts(H5EA_hdr_t *hdr, size_t nelmts, void *elmts)) - /* Local variables */ - unsigned idx; /* Index of element buffer factory in header */ +/* Local variables */ +unsigned idx; /* Index of element buffer factory in header */ - /* Check arguments */ - HDassert(hdr); - HDassert(nelmts > 0); - HDassert(elmts); +/* Check arguments */ +HDassert(hdr); +HDassert(nelmts > 0); +HDassert(elmts); - /* Compute the index of the element buffer factory */ - H5_CHECK_OVERFLOW(nelmts, /*From:*/size_t, /*To:*/uint32_t); - idx = H5VM_log2_of2((uint32_t)nelmts) - H5VM_log2_of2((uint32_t)hdr->cparam.data_blk_min_elmts); +/* Compute the index of the element buffer factory */ +H5_CHECK_OVERFLOW(nelmts, /*From:*/ size_t, /*To:*/ uint32_t); +idx = H5VM_log2_of2((uint32_t)nelmts) - H5VM_log2_of2((uint32_t)hdr->cparam.data_blk_min_elmts); - /* Free buffer for elements in index block */ - HDassert(idx < hdr->elmt_fac.nalloc); - HDassert(hdr->elmt_fac.fac[idx]); - elmts = H5FL_FAC_FREE(hdr->elmt_fac.fac[idx], elmts); +/* Free buffer for elements in index block */ +HDassert(idx < hdr->elmt_fac.nalloc); +HDassert(hdr->elmt_fac.fac[idx]); +elmts = H5FL_FAC_FREE(hdr->elmt_fac.fac[idx], elmts); -END_FUNC(PKG) /* end H5EA__hdr_free_elmts() */ +END_FUNC(PKG) /* end H5EA__hdr_free_elmts() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_create * @@ -349,108 +327,110 @@ END_FUNC(PKG) /* end H5EA__hdr_free_elmts() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -haddr_t, HADDR_UNDEF, HADDR_UNDEF, -H5EA__hdr_create(H5F_t *f, const H5EA_create_t *cparam, void *ctx_udata)) +BEGIN_FUNC(PKG, ERR, haddr_t, HADDR_UNDEF, HADDR_UNDEF, + H5EA__hdr_create(H5F_t *f, const H5EA_create_t *cparam, void *ctx_udata)) - /* Local variables */ - H5EA_hdr_t *hdr = NULL; /* Extensible array header */ - hbool_t inserted = FALSE; /* Whether the header was inserted into cache */ +/* Local variables */ +H5EA_hdr_t *hdr = NULL; /* Extensible array header */ +hbool_t inserted = FALSE; /* Whether the header was inserted into cache */ - /* Check arguments */ - HDassert(f); - HDassert(cparam); +/* Check arguments */ +HDassert(f); +HDassert(cparam); #ifndef NDEBUG { - unsigned sblk_idx; /* Super block index for first "actual" super block */ - size_t dblk_nelmts; /* Number of data block elements */ - size_t dblk_page_nelmts; /* Number of elements in a data block page */ + unsigned sblk_idx; /* Super block index for first "actual" super block */ + size_t dblk_nelmts; /* Number of data block elements */ + size_t dblk_page_nelmts; /* Number of elements in a data block page */ /* Check for valid parameters */ - if(cparam->raw_elmt_size == 0) + if (cparam->raw_elmt_size == 0) H5E_THROW(H5E_BADVALUE, "element size must be greater than zero") - if(cparam->max_nelmts_bits == 0) + if (cparam->max_nelmts_bits == 0) H5E_THROW(H5E_BADVALUE, "max. # of elements bits must be greater than zero") - if(cparam->max_nelmts_bits > H5EA_MAX_NELMTS_IDX_MAX) + if (cparam->max_nelmts_bits > H5EA_MAX_NELMTS_IDX_MAX) H5E_THROW(H5E_BADVALUE, "max. # of elements bits must be <= %u", (unsigned)H5EA_MAX_NELMTS_IDX_MAX) - if(cparam->sup_blk_min_data_ptrs < 2) + if (cparam->sup_blk_min_data_ptrs < 2) H5E_THROW(H5E_BADVALUE, "min # of data block pointers in super block must be >= two") - if(!POWER_OF_TWO(cparam->sup_blk_min_data_ptrs)) + if (!POWER_OF_TWO(cparam->sup_blk_min_data_ptrs)) H5E_THROW(H5E_BADVALUE, "min # of data block pointers in super block must be power of two") - if(!POWER_OF_TWO(cparam->data_blk_min_elmts)) + if (!POWER_OF_TWO(cparam->data_blk_min_elmts)) H5E_THROW(H5E_BADVALUE, "min # of elements per data block must be power of two") dblk_page_nelmts = (size_t)1 << cparam->max_dblk_page_nelmts_bits; - if(dblk_page_nelmts < cparam->idx_blk_elmts) - H5E_THROW(H5E_BADVALUE, "# of elements per data block page must be greater than # of elements in index block") + if (dblk_page_nelmts < cparam->idx_blk_elmts) + H5E_THROW(H5E_BADVALUE, + "# of elements per data block page must be greater than # of elements in index block") /* Compute the number of elements in data blocks for first actual super block */ - sblk_idx = H5EA_SBLK_FIRST_IDX(cparam->sup_blk_min_data_ptrs); + sblk_idx = H5EA_SBLK_FIRST_IDX(cparam->sup_blk_min_data_ptrs); dblk_nelmts = H5EA_SBLK_DBLK_NELMTS(sblk_idx, cparam->data_blk_min_elmts); - if(dblk_page_nelmts < dblk_nelmts) - H5E_THROW(H5E_BADVALUE, "max. # of elements per data block page bits must be > # of elements in first data block from super block") + if (dblk_page_nelmts < dblk_nelmts) + H5E_THROW(H5E_BADVALUE, "max. # of elements per data block page bits must be > # of elements in " + "first data block from super block") - if(cparam->max_dblk_page_nelmts_bits > cparam->max_nelmts_bits) - H5E_THROW(H5E_BADVALUE, "max. # of elements per data block page bits must be <= max. # of elements bits") + if (cparam->max_dblk_page_nelmts_bits > cparam->max_nelmts_bits) + H5E_THROW(H5E_BADVALUE, + "max. # of elements per data block page bits must be <= max. # of elements bits") } #endif /* NDEBUG */ - /* Allocate space for the shared information */ - if(NULL == (hdr = H5EA__hdr_alloc(f))) - H5E_THROW(H5E_CANTALLOC, "memory allocation failed for extensible array shared header") +/* Allocate space for the shared information */ +if (NULL == (hdr = H5EA__hdr_alloc(f))) + H5E_THROW(H5E_CANTALLOC, "memory allocation failed for extensible array shared header") - /* Set the internal parameters for the array */ - hdr->idx_blk_addr = HADDR_UNDEF; +/* Set the internal parameters for the array */ +hdr->idx_blk_addr = HADDR_UNDEF; - /* Set the creation parameters for the array */ - H5MM_memcpy(&hdr->cparam, cparam, sizeof(hdr->cparam)); +/* Set the creation parameters for the array */ +H5MM_memcpy(&hdr->cparam, cparam, sizeof(hdr->cparam)); - /* Finish initializing extensible array header */ - if(H5EA__hdr_init(hdr, ctx_udata) < 0) - H5E_THROW(H5E_CANTINIT, "initialization failed for extensible array header") +/* Finish initializing extensible array header */ +if (H5EA__hdr_init(hdr, ctx_udata) < 0) + H5E_THROW(H5E_CANTINIT, "initialization failed for extensible array header") - /* Allocate space for the header on disk */ - if(HADDR_UNDEF == (hdr->addr = H5MF_alloc(f, H5FD_MEM_EARRAY_HDR, (hsize_t)hdr->size))) - H5E_THROW(H5E_CANTALLOC, "file allocation failed for extensible array header") +/* Allocate space for the header on disk */ +if (HADDR_UNDEF == (hdr->addr = H5MF_alloc(f, H5FD_MEM_EARRAY_HDR, (hsize_t)hdr->size))) + H5E_THROW(H5E_CANTALLOC, "file allocation failed for extensible array header") - /* Create 'top' proxy for extensible array entries */ - if(hdr->swmr_write) - if(NULL == (hdr->top_proxy = H5AC_proxy_entry_create())) - H5E_THROW(H5E_CANTCREATE, "can't create extensible array entry proxy") +/* Create 'top' proxy for extensible array entries */ +if (hdr->swmr_write) + if (NULL == (hdr->top_proxy = H5AC_proxy_entry_create())) + H5E_THROW(H5E_CANTCREATE, "can't create extensible array entry proxy") - /* Cache the new extensible array header */ - if(H5AC_insert_entry(f, H5AC_EARRAY_HDR, hdr->addr, hdr, H5AC__NO_FLAGS_SET) < 0) - H5E_THROW(H5E_CANTINSERT, "can't add extensible array header to cache") - inserted = TRUE; +/* Cache the new extensible array header */ +if (H5AC_insert_entry(f, H5AC_EARRAY_HDR, hdr->addr, hdr, H5AC__NO_FLAGS_SET) < 0) + H5E_THROW(H5E_CANTINSERT, "can't add extensible array header to cache") +inserted = TRUE; - /* Add header as child of 'top' proxy */ - if(hdr->top_proxy) - if(H5AC_proxy_entry_add_child(hdr->top_proxy, f, hdr) < 0) - H5E_THROW(H5E_CANTSET, "unable to add extensible array entry as child of array proxy") +/* Add header as child of 'top' proxy */ +if (hdr->top_proxy) + if (H5AC_proxy_entry_add_child(hdr->top_proxy, f, hdr) < 0) + H5E_THROW(H5E_CANTSET, "unable to add extensible array entry as child of array proxy") - /* Set address of array header to return */ - ret_value = hdr->addr; +/* Set address of array header to return */ +ret_value = hdr->addr; CATCH - if(!H5F_addr_defined(ret_value)) - if(hdr) { - /* Remove from cache, if inserted */ - if(inserted) - if(H5AC_remove_entry(hdr) < 0) - H5E_THROW(H5E_CANTREMOVE, "unable to remove extensible array header from cache") - - /* Release header's disk space */ - if(H5F_addr_defined(hdr->addr) && H5MF_xfree(f, H5FD_MEM_EARRAY_HDR, hdr->addr, (hsize_t)hdr->size) < 0) - H5E_THROW(H5E_CANTFREE, "unable to free extensible array header") - - /* Destroy header */ - if(H5EA__hdr_dest(hdr) < 0) - H5E_THROW(H5E_CANTFREE, "unable to destroy extensible array header") - } /* end if */ +if (!H5F_addr_defined(ret_value)) + if (hdr) { + /* Remove from cache, if inserted */ + if (inserted) + if (H5AC_remove_entry(hdr) < 0) + H5E_THROW(H5E_CANTREMOVE, "unable to remove extensible array header from cache") + + /* Release header's disk space */ + if (H5F_addr_defined(hdr->addr) && + H5MF_xfree(f, H5FD_MEM_EARRAY_HDR, hdr->addr, (hsize_t)hdr->size) < 0) + H5E_THROW(H5E_CANTFREE, "unable to free extensible array header") + + /* Destroy header */ + if (H5EA__hdr_dest(hdr) < 0) + H5E_THROW(H5E_CANTFREE, "unable to destroy extensible array header") + } /* end if */ -END_FUNC(PKG) /* end H5EA__hdr_create() */ +END_FUNC(PKG) /* end H5EA__hdr_create() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_incr * @@ -463,26 +443,23 @@ END_FUNC(PKG) /* end H5EA__hdr_create() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -herr_t, SUCCEED, FAIL, -H5EA__hdr_incr(H5EA_hdr_t *hdr)) +BEGIN_FUNC(PKG, ERR, herr_t, SUCCEED, FAIL, H5EA__hdr_incr(H5EA_hdr_t *hdr)) - /* Sanity check */ - HDassert(hdr); +/* Sanity check */ +HDassert(hdr); - /* Mark header as un-evictable when something is depending on it */ - if(hdr->rc == 0) - if(H5AC_pin_protected_entry(hdr) < 0) - H5E_THROW(H5E_CANTPIN, "unable to pin extensible array header") +/* Mark header as un-evictable when something is depending on it */ +if (hdr->rc == 0) + if (H5AC_pin_protected_entry(hdr) < 0) + H5E_THROW(H5E_CANTPIN, "unable to pin extensible array header") - /* Increment reference count on shared header */ - hdr->rc++; +/* Increment reference count on shared header */ +hdr->rc++; CATCH -END_FUNC(PKG) /* end H5EA__hdr_incr() */ +END_FUNC(PKG) /* end H5EA__hdr_incr() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_decr * @@ -495,29 +472,26 @@ END_FUNC(PKG) /* end H5EA__hdr_incr() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -herr_t, SUCCEED, FAIL, -H5EA__hdr_decr(H5EA_hdr_t *hdr)) +BEGIN_FUNC(PKG, ERR, herr_t, SUCCEED, FAIL, H5EA__hdr_decr(H5EA_hdr_t *hdr)) - /* Sanity check */ - HDassert(hdr); - HDassert(hdr->rc); +/* Sanity check */ +HDassert(hdr); +HDassert(hdr->rc); - /* Decrement reference count on shared header */ - hdr->rc--; +/* Decrement reference count on shared header */ +hdr->rc--; - /* Mark header as evictable again when nothing depend on it */ - if(hdr->rc == 0) { - HDassert(hdr->file_rc == 0); - if(H5AC_unpin_entry(hdr) < 0) - H5E_THROW(H5E_CANTUNPIN, "unable to unpin extensible array header") - } /* end if */ +/* Mark header as evictable again when nothing depend on it */ +if (hdr->rc == 0) { + HDassert(hdr->file_rc == 0); + if (H5AC_unpin_entry(hdr) < 0) + H5E_THROW(H5E_CANTUNPIN, "unable to unpin extensible array header") +} /* end if */ CATCH -END_FUNC(PKG) /* end H5EA__hdr_decr() */ +END_FUNC(PKG) /* end H5EA__hdr_decr() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_fuse_incr * @@ -530,19 +504,16 @@ END_FUNC(PKG) /* end H5EA__hdr_decr() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, NOERR, -herr_t, SUCCEED, -, -H5EA__hdr_fuse_incr(H5EA_hdr_t *hdr)) +BEGIN_FUNC(PKG, NOERR, herr_t, SUCCEED, -, H5EA__hdr_fuse_incr(H5EA_hdr_t *hdr)) - /* Sanity check */ - HDassert(hdr); +/* Sanity check */ +HDassert(hdr); - /* Increment file reference count on shared header */ - hdr->file_rc++; +/* Increment file reference count on shared header */ +hdr->file_rc++; -END_FUNC(PKG) /* end H5EA__hdr_fuse_incr() */ +END_FUNC(PKG) /* end H5EA__hdr_fuse_incr() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_fuse_decr * @@ -555,23 +526,20 @@ END_FUNC(PKG) /* end H5EA__hdr_fuse_incr() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, NOERR, -size_t, 0, -, -H5EA__hdr_fuse_decr(H5EA_hdr_t *hdr)) +BEGIN_FUNC(PKG, NOERR, size_t, 0, -, H5EA__hdr_fuse_decr(H5EA_hdr_t *hdr)) - /* Sanity check */ - HDassert(hdr); - HDassert(hdr->file_rc); +/* Sanity check */ +HDassert(hdr); +HDassert(hdr->file_rc); - /* Decrement file reference count on shared header */ - hdr->file_rc--; +/* Decrement file reference count on shared header */ +hdr->file_rc--; - /* Set return value */ - ret_value = hdr->file_rc; +/* Set return value */ +ret_value = hdr->file_rc; -END_FUNC(PKG) /* end H5EA__hdr_fuse_decr() */ +END_FUNC(PKG) /* end H5EA__hdr_fuse_decr() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_modified * @@ -584,23 +552,20 @@ END_FUNC(PKG) /* end H5EA__hdr_fuse_decr() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -herr_t, SUCCEED, FAIL, -H5EA__hdr_modified(H5EA_hdr_t *hdr)) +BEGIN_FUNC(PKG, ERR, herr_t, SUCCEED, FAIL, H5EA__hdr_modified(H5EA_hdr_t *hdr)) - /* Sanity check */ - HDassert(hdr); - HDassert(hdr->f); +/* Sanity check */ +HDassert(hdr); +HDassert(hdr->f); - /* Mark header as dirty in cache */ - if(H5AC_mark_entry_dirty(hdr) < 0) - H5E_THROW(H5E_CANTMARKDIRTY, "unable to mark extensible array header as dirty") +/* Mark header as dirty in cache */ +if (H5AC_mark_entry_dirty(hdr) < 0) + H5E_THROW(H5E_CANTMARKDIRTY, "unable to mark extensible array header as dirty") CATCH -END_FUNC(PKG) /* end H5EA__hdr_modified() */ +END_FUNC(PKG) /* end H5EA__hdr_modified() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_protect * @@ -613,51 +578,49 @@ END_FUNC(PKG) /* end H5EA__hdr_modified() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -H5EA_hdr_t *, NULL, NULL, -H5EA__hdr_protect(H5F_t *f, haddr_t ea_addr, void *ctx_udata, - unsigned flags)) +BEGIN_FUNC(PKG, ERR, H5EA_hdr_t *, NULL, NULL, + H5EA__hdr_protect(H5F_t *f, haddr_t ea_addr, void *ctx_udata, unsigned flags)) - /* Local variables */ - H5EA_hdr_t *hdr; /* Extensible array header */ - H5EA_hdr_cache_ud_t udata; /* User data for cache callbacks */ +/* Local variables */ +H5EA_hdr_t * hdr; /* Extensible array header */ +H5EA_hdr_cache_ud_t udata; /* User data for cache callbacks */ - /* Sanity check */ - HDassert(f); - HDassert(H5F_addr_defined(ea_addr)); - - /* only the H5AC__READ_ONLY_FLAG may appear in flags */ - HDassert((flags & (unsigned)(~H5AC__READ_ONLY_FLAG)) == 0); - - /* Set up user data for cache callbacks */ - udata.f = f; - udata.addr = ea_addr; - udata.ctx_udata = ctx_udata; - - /* Protect the header */ - if(NULL == (hdr = (H5EA_hdr_t *)H5AC_protect(f, H5AC_EARRAY_HDR, ea_addr, &udata, flags))) - H5E_THROW(H5E_CANTPROTECT, "unable to protect extensible array header, address = %llu", (unsigned long long)ea_addr) - hdr->f = f; /* (Must be set again here, in case the header was already in the cache -QAK) */ - - /* Create top proxy, if it doesn't exist */ - if(hdr->swmr_write && NULL == hdr->top_proxy) { - /* Create 'top' proxy for extensible array entries */ - if(NULL == (hdr->top_proxy = H5AC_proxy_entry_create())) - H5E_THROW(H5E_CANTCREATE, "can't create extensible array entry proxy") - - /* Add header as child of 'top' proxy */ - if(H5AC_proxy_entry_add_child(hdr->top_proxy, f, hdr) < 0) - H5E_THROW(H5E_CANTSET, "unable to add extensible array entry as child of array proxy") - } /* end if */ +/* Sanity check */ +HDassert(f); +HDassert(H5F_addr_defined(ea_addr)); - /* Set return value */ - ret_value = hdr; +/* only the H5AC__READ_ONLY_FLAG may appear in flags */ +HDassert((flags & (unsigned)(~H5AC__READ_ONLY_FLAG)) == 0); + +/* Set up user data for cache callbacks */ +udata.f = f; +udata.addr = ea_addr; +udata.ctx_udata = ctx_udata; + +/* Protect the header */ +if (NULL == (hdr = (H5EA_hdr_t *)H5AC_protect(f, H5AC_EARRAY_HDR, ea_addr, &udata, flags))) + H5E_THROW(H5E_CANTPROTECT, "unable to protect extensible array header, address = %llu", + (unsigned long long)ea_addr) +hdr->f = f; /* (Must be set again here, in case the header was already in the cache -QAK) */ + +/* Create top proxy, if it doesn't exist */ +if (hdr->swmr_write && NULL == hdr->top_proxy) { + /* Create 'top' proxy for extensible array entries */ + if (NULL == (hdr->top_proxy = H5AC_proxy_entry_create())) + H5E_THROW(H5E_CANTCREATE, "can't create extensible array entry proxy") + + /* Add header as child of 'top' proxy */ + if (H5AC_proxy_entry_add_child(hdr->top_proxy, f, hdr) < 0) + H5E_THROW(H5E_CANTSET, "unable to add extensible array entry as child of array proxy") +} /* end if */ + +/* Set return value */ +ret_value = hdr; CATCH -END_FUNC(PKG) /* end H5EA__hdr_protect() */ +END_FUNC(PKG) /* end H5EA__hdr_protect() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_unprotect * @@ -670,24 +633,22 @@ END_FUNC(PKG) /* end H5EA__hdr_protect() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -herr_t, SUCCEED, FAIL, -H5EA__hdr_unprotect(H5EA_hdr_t *hdr, unsigned cache_flags)) +BEGIN_FUNC(PKG, ERR, herr_t, SUCCEED, FAIL, H5EA__hdr_unprotect(H5EA_hdr_t *hdr, unsigned cache_flags)) - /* Local variables */ +/* Local variables */ - /* Sanity check */ - HDassert(hdr); +/* Sanity check */ +HDassert(hdr); - /* Unprotect the header */ - if(H5AC_unprotect(hdr->f, H5AC_EARRAY_HDR, hdr->addr, hdr, cache_flags) < 0) - H5E_THROW(H5E_CANTUNPROTECT, "unable to unprotect extensible array hdr, address = %llu", (unsigned long long)hdr->addr) +/* Unprotect the header */ +if (H5AC_unprotect(hdr->f, H5AC_EARRAY_HDR, hdr->addr, hdr, cache_flags) < 0) + H5E_THROW(H5E_CANTUNPROTECT, "unable to unprotect extensible array hdr, address = %llu", + (unsigned long long)hdr->addr) CATCH -END_FUNC(PKG) /* end H5EA__hdr_unprotect() */ +END_FUNC(PKG) /* end H5EA__hdr_unprotect() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_delete * @@ -700,23 +661,21 @@ END_FUNC(PKG) /* end H5EA__hdr_unprotect() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -herr_t, SUCCEED, FAIL, -H5EA__hdr_delete(H5EA_hdr_t *hdr)) +BEGIN_FUNC(PKG, ERR, herr_t, SUCCEED, FAIL, H5EA__hdr_delete(H5EA_hdr_t *hdr)) - /* Local variables */ - unsigned cache_flags = H5AC__NO_FLAGS_SET; /* Flags for unprotecting header */ +/* Local variables */ +unsigned cache_flags = H5AC__NO_FLAGS_SET; /* Flags for unprotecting header */ - /* Sanity check */ - HDassert(hdr); - HDassert(!hdr->file_rc); +/* Sanity check */ +HDassert(hdr); +HDassert(!hdr->file_rc); #ifndef NDEBUG { - unsigned hdr_status = 0; /* Array header's status in the metadata cache */ + unsigned hdr_status = 0; /* Array header's status in the metadata cache */ /* Check the array header's status in the metadata cache */ - if(H5AC_get_entry_status(hdr->f, hdr->addr, &hdr_status) < 0) + if (H5AC_get_entry_status(hdr->f, hdr->addr, &hdr_status) < 0) H5E_THROW(H5E_CANTGET, "unable to check metadata cache status for array header") /* Sanity checks on array header */ @@ -725,25 +684,24 @@ H5EA__hdr_delete(H5EA_hdr_t *hdr)) } /* end block */ #endif /* NDEBUG */ - /* Check for index block */ - if(H5F_addr_defined(hdr->idx_blk_addr)) { - /* Delete index block */ - if(H5EA__iblock_delete(hdr) < 0) - H5E_THROW(H5E_CANTDELETE, "unable to delete extensible array index block") - } /* end if */ +/* Check for index block */ +if (H5F_addr_defined(hdr->idx_blk_addr)) { + /* Delete index block */ + if (H5EA__iblock_delete(hdr) < 0) + H5E_THROW(H5E_CANTDELETE, "unable to delete extensible array index block") +} /* end if */ - /* Set flags to finish deleting header on unprotect */ - cache_flags |= H5AC__DIRTIED_FLAG | H5AC__DELETED_FLAG | H5AC__FREE_FILE_SPACE_FLAG; +/* Set flags to finish deleting header on unprotect */ +cache_flags |= H5AC__DIRTIED_FLAG | H5AC__DELETED_FLAG | H5AC__FREE_FILE_SPACE_FLAG; CATCH - /* Unprotect the header, deleting it if an error hasn't occurred */ - if(H5EA__hdr_unprotect(hdr, cache_flags) < 0) - H5E_THROW(H5E_CANTUNPROTECT, "unable to release extensible array header") +/* Unprotect the header, deleting it if an error hasn't occurred */ +if (H5EA__hdr_unprotect(hdr, cache_flags) < 0) + H5E_THROW(H5E_CANTUNPROTECT, "unable to release extensible array header") -END_FUNC(PKG) /* end H5EA__hdr_delete() */ +END_FUNC(PKG) /* end H5EA__hdr_delete() */ - /*------------------------------------------------------------------------- * Function: H5EA__hdr_dest * @@ -756,57 +714,54 @@ END_FUNC(PKG) /* end H5EA__hdr_delete() */ * *------------------------------------------------------------------------- */ -BEGIN_FUNC(PKG, ERR, -herr_t, SUCCEED, FAIL, -H5EA__hdr_dest(H5EA_hdr_t *hdr)) - - /* Check arguments */ - HDassert(hdr); - HDassert(hdr->rc == 0); - - /* Destroy the callback context */ - if(hdr->cb_ctx) { - if((*hdr->cparam.cls->dst_context)(hdr->cb_ctx) < 0) - H5E_THROW(H5E_CANTRELEASE, "unable to destroy extensible array client callback context") - } /* end if */ - hdr->cb_ctx = NULL; - - /* Check for data block element buffer factory info to free */ - if(hdr->elmt_fac.fac) { - unsigned u; /* Local index variable */ - - /* Sanity check */ - HDassert(hdr->elmt_fac.nalloc > 0); - - /* Iterate over factories, shutting them down */ - for(u = 0; u < hdr->elmt_fac.nalloc; u++) { - /* Check if this factory has been initialized */ - if(hdr->elmt_fac.fac[u]) { - if(H5FL_fac_term(hdr->elmt_fac.fac[u]) < 0) - H5E_THROW(H5E_CANTRELEASE, "unable to destroy extensible array header factory") - hdr->elmt_fac.fac[u] = NULL; - } /* end if */ - } /* end for */ - - /* Free factory array */ - hdr->elmt_fac.fac = (H5FL_fac_head_t **)H5FL_SEQ_FREE(H5FL_fac_head_ptr_t, hdr->elmt_fac.fac); - } /* end if */ +BEGIN_FUNC(PKG, ERR, herr_t, SUCCEED, FAIL, H5EA__hdr_dest(H5EA_hdr_t *hdr)) - /* Free the super block info array */ - if(hdr->sblk_info) - hdr->sblk_info = (H5EA_sblk_info_t *)H5FL_SEQ_FREE(H5EA_sblk_info_t, hdr->sblk_info); +/* Check arguments */ +HDassert(hdr); +HDassert(hdr->rc == 0); - /* Destroy the 'top' proxy */ - if(hdr->top_proxy) { - if(H5AC_proxy_entry_dest(hdr->top_proxy) < 0) - H5E_THROW(H5E_CANTRELEASE, "unable to destroy extensible array 'top' proxy") - hdr->top_proxy = NULL; - } /* end if */ +/* Destroy the callback context */ +if (hdr->cb_ctx) { + if ((*hdr->cparam.cls->dst_context)(hdr->cb_ctx) < 0) + H5E_THROW(H5E_CANTRELEASE, "unable to destroy extensible array client callback context") +} /* end if */ +hdr->cb_ctx = NULL; - /* Free the shared info itself */ - hdr = H5FL_FREE(H5EA_hdr_t, hdr); +/* Check for data block element buffer factory info to free */ +if (hdr->elmt_fac.fac) { + unsigned u; /* Local index variable */ -CATCH + /* Sanity check */ + HDassert(hdr->elmt_fac.nalloc > 0); + + /* Iterate over factories, shutting them down */ + for (u = 0; u < hdr->elmt_fac.nalloc; u++) { + /* Check if this factory has been initialized */ + if (hdr->elmt_fac.fac[u]) { + if (H5FL_fac_term(hdr->elmt_fac.fac[u]) < 0) + H5E_THROW(H5E_CANTRELEASE, "unable to destroy extensible array header factory") + hdr->elmt_fac.fac[u] = NULL; + } /* end if */ + } /* end for */ + + /* Free factory array */ + hdr->elmt_fac.fac = (H5FL_fac_head_t **)H5FL_SEQ_FREE(H5FL_fac_head_ptr_t, hdr->elmt_fac.fac); +} /* end if */ + +/* Free the super block info array */ +if (hdr->sblk_info) + hdr->sblk_info = (H5EA_sblk_info_t *)H5FL_SEQ_FREE(H5EA_sblk_info_t, hdr->sblk_info); -END_FUNC(PKG) /* end H5EA__hdr_dest() */ +/* Destroy the 'top' proxy */ +if (hdr->top_proxy) { + if (H5AC_proxy_entry_dest(hdr->top_proxy) < 0) + H5E_THROW(H5E_CANTRELEASE, "unable to destroy extensible array 'top' proxy") + hdr->top_proxy = NULL; +} /* end if */ + +/* Free the shared info itself */ +hdr = H5FL_FREE(H5EA_hdr_t, hdr); + +CATCH +END_FUNC(PKG) /* end H5EA__hdr_dest() */ |