mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-02-23 16:20:57 +08:00
7a07c6cc13
Code cleanup, sorta
Description:
Added ifdef sections for "H5_USING_PURIFY" in various places in the code,
which are designed to reduce the spurious "uninitialized memory read" warnings
from purify which are actually OK. Note that this macro will have to be
turned on by adding it to the CFLAGS for the build - I didn't think it was
important enough to add a configure flag for.
Also, the changes in H5HG.c optimize the walks through the objects in a
heap to only look at the 'used' entries instead of all the 'allocated' entries.
Platforms tested:
Solaris 2.7 (arabica) w/purify
Not tested by h5committest
136 lines
4.7 KiB
C
136 lines
4.7 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||
* Copyright by the Board of Trustees of the University of Illinois. *
|
||
* All rights reserved. *
|
||
* *
|
||
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
||
* terms governing use, modification, and redistribution, is contained in *
|
||
* the files COPYING and Copyright.html. COPYING can be found at the root *
|
||
* of the source code distribution tree; Copyright.html can be found at the *
|
||
* root level of an installed copy of the electronic HDF5 document set and *
|
||
* is linked from the top-level documents page. It can also be found at *
|
||
* http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
|
||
* access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
|
||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
||
|
||
/* Programmer: Quincey Koziol <koziol@ncsa.uiuc.edu>
|
||
* Wednesday, July 9, 2003
|
||
*
|
||
* Purpose: Global Heap object debugging functions.
|
||
*/
|
||
#define H5HG_PACKAGE /*suppress error about including H5HGpkg */
|
||
|
||
/* Pablo information */
|
||
/* (Put before include files to avoid problems with inline functions) */
|
||
#define PABLO_MASK H5HGdbg_mask
|
||
|
||
#include "H5private.h" /* Generic Functions */
|
||
#include "H5ACprivate.h" /* Metadata cache */
|
||
#include "H5Eprivate.h" /* Error handling */
|
||
#include "H5HGpkg.h" /* Global heaps */
|
||
#include "H5Iprivate.h" /* ID Functions */
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: H5HG_debug
|
||
*
|
||
* Purpose: Prints debugging information about a global heap collection.
|
||
*
|
||
* Return: Non-negative on success/Negative on failure
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* matzke@llnl.gov
|
||
* Mar 27, 1998
|
||
*
|
||
* Modifications:
|
||
* Robb Matzke, 1999-07-28
|
||
* The ADDR argument is passed by value.
|
||
*
|
||
* Robb Matzke, LLNL, 2003-06-05
|
||
* The size does not include the object header, just the data.
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
herr_t
|
||
H5HG_debug(H5F_t *f, hid_t dxpl_id, haddr_t addr, FILE *stream, int indent,
|
||
int fwidth)
|
||
{
|
||
unsigned u, nused, maxobj;
|
||
unsigned j, k;
|
||
H5HG_heap_t *h = NULL;
|
||
char buf[64];
|
||
uint8_t *p = NULL;
|
||
herr_t ret_value=SUCCEED; /* Return value */
|
||
|
||
FUNC_ENTER_NOAPI(H5HG_debug, FAIL);
|
||
|
||
/* check arguments */
|
||
assert(f);
|
||
assert(H5F_addr_defined (addr));
|
||
assert(stream);
|
||
assert(indent >= 0);
|
||
assert(fwidth >= 0);
|
||
|
||
if (NULL == (h = H5AC_protect(f, dxpl_id, H5AC_GHEAP, addr, NULL, NULL, H5AC_READ)))
|
||
HGOTO_ERROR(H5E_HEAP, H5E_CANTLOAD, FAIL, "unable to load global heap collection");
|
||
|
||
fprintf(stream, "%*sGlobal Heap Collection...\n", indent, "");
|
||
fprintf(stream, "%*s%-*s %d\n", indent, "", fwidth,
|
||
"Dirty:",
|
||
(int)(h->cache_info.is_dirty));
|
||
fprintf(stream, "%*s%-*s %lu\n", indent, "", fwidth,
|
||
"Total collection size in file:",
|
||
(unsigned long)(h->size));
|
||
|
||
for (u=1, nused=0, maxobj=0; u<h->nused; u++) {
|
||
if (h->obj[u].begin) {
|
||
nused++;
|
||
if (u>maxobj) maxobj = u;
|
||
}
|
||
}
|
||
fprintf (stream, "%*s%-*s %u/%lu/", indent, "", fwidth,
|
||
"Objects defined/allocated/max:",
|
||
nused, (unsigned long)h->nalloc);
|
||
fprintf (stream, nused ? "%u\n": "NA\n", maxobj);
|
||
|
||
fprintf (stream, "%*s%-*s %lu\n", indent, "", fwidth,
|
||
"Free space:",
|
||
(unsigned long)(h->obj[0].size));
|
||
|
||
for (u=1; u<h->nused; u++) {
|
||
if (h->obj[u].begin) {
|
||
sprintf (buf, "Object %u", u);
|
||
fprintf (stream, "%*s%s\n", indent, "", buf);
|
||
fprintf (stream, "%*s%-*s %d\n", indent+3, "", MIN(fwidth-3, 0),
|
||
"Reference count:",
|
||
h->obj[u].nrefs);
|
||
fprintf (stream, "%*s%-*s %lu/%lu\n", indent+3, "",
|
||
MIN(fwidth-3, 0),
|
||
"Size of object body:",
|
||
(unsigned long)(h->obj[u].size),
|
||
(unsigned long)H5HG_ALIGN(h->obj[u].size));
|
||
p = h->obj[u].begin + H5HG_SIZEOF_OBJHDR (f);
|
||
for (j=0; j<h->obj[u].size; j+=16) {
|
||
fprintf (stream, "%*s%04d: ", indent+6, "", j);
|
||
for (k=0; k<16; k++) {
|
||
if (8==k) fprintf (stream, " ");
|
||
if (j+k<h->obj[u].size) {
|
||
fprintf (stream, "%02x ", p[j+k]);
|
||
} else {
|
||
HDfputs(" ", stream);
|
||
}
|
||
}
|
||
for (k=0; k<16 && j+k<h->obj[u].size; k++) {
|
||
if (8==k) fprintf (stream, " ");
|
||
HDfputc(p[j+k]>' ' && p[j+k]<='~' ? p[j+k] : '.', stream);
|
||
}
|
||
fprintf (stream, "\n");
|
||
}
|
||
}
|
||
}
|
||
|
||
done:
|
||
if (h && H5AC_unprotect(f, dxpl_id, H5AC_GHEAP, addr, h, FALSE) != SUCCEED)
|
||
HDONE_ERROR(H5E_HEAP, H5E_PROTECT, FAIL, "unable to release object header");
|
||
|
||
FUNC_LEAVE_NOAPI(ret_value);
|
||
}
|