diff options
author | Quincey Koziol <koziol@hdfgroup.org> | 2001-06-05 23:02:03 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@hdfgroup.org> | 2001-06-05 23:02:03 (GMT) |
commit | df707fb967a142aa7370001ec92eb673ece79b67 (patch) | |
tree | 337e38a3cdd8aacea7f610268b79bdf42b270715 | |
parent | a780719ff47ec2ea890ab5ecf00ab014393ca8f2 (diff) | |
download | hdf5-df707fb967a142aa7370001ec92eb673ece79b67.zip hdf5-df707fb967a142aa7370001ec92eb673ece79b67.tar.gz hdf5-df707fb967a142aa7370001ec92eb673ece79b67.tar.bz2 |
[svn-r3963] Purpose:
Small code addition
Description:
Addition logging of seeks during read operations (writes were already
logging seeks). Also added a few asserts to check memory allocations...
Platforms tested:
Solaris 2.6 (baldric)
-rw-r--r-- | src/H5FDlog.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/H5FDlog.c b/src/H5FDlog.c index e025456..ac04c2b 100644 --- a/src/H5FDlog.c +++ b/src/H5FDlog.c @@ -30,7 +30,7 @@ #endif /* MAX */ /* The size of the buffer to track allocation requests */ -#define TRACK_BUFFER 15000000 +#define TRACK_BUFFER 38*(16*65536) /* The driver identification number, initialized at runtime */ static hid_t H5FD_LOG_g = 0; @@ -465,8 +465,11 @@ H5FD_log_open(const char *name, unsigned flags, hid_t fapl_id, if(file->fa.verbosity>=0) { file->iosize=TRACK_BUFFER; /* Default size for now */ file->nread=H5MM_calloc(file->iosize); + assert(file->nread); file->nwrite=H5MM_calloc(file->iosize); + assert(file->nwrite); file->flavor=H5MM_calloc(file->iosize); + assert(file->flavor); if(fa->logfile) file->logfp=HDfopen(fa->logfile,"w"); else @@ -836,6 +839,11 @@ H5FD_log_read(H5FD_t *_file, H5FD_mem_t UNUSED type, hid_t UNUSED dxpl_id, haddr while(tmp_size-->0) file->nread[tmp_addr++]++; + /* Log information about the seek, if it's going to occur */ + if(file->fa.verbosity>1 && (addr!=file->pos || OP_READ!=file->op)) + HDfprintf(file->logfp,"Seek: From %10a To %10a\n",file->pos,addr); + + /* Log information about the read */ if(file->fa.verbosity>0) HDfprintf(file->logfp,"%10a-%10a (%10lu bytes) Read, flavor=%s\n",addr,addr+size-1,(unsigned long)size,flavors[file->flavor[addr]]); } |