summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/H5FDlog.c3
-rw-r--r--src/H5Farray.c33
-rw-r--r--src/H5HG.c9
-rw-r--r--src/H5Sall.c32
-rw-r--r--src/H5Shyper.c291
-rw-r--r--src/H5Spoint.c90
-rw-r--r--src/H5Sprivate.h2
-rw-r--r--src/H5Sselect.c2
8 files changed, 4 insertions, 458 deletions
diff --git a/src/H5FDlog.c b/src/H5FDlog.c
index 0e4a094..23a3943 100644
--- a/src/H5FDlog.c
+++ b/src/H5FDlog.c
@@ -809,9 +809,6 @@ H5FD_log_alloc(H5FD_t *_file, H5FD_mem_t type, hsize_t size)
file->eoa = addr+size;
-#ifdef QAK
-printf("%s: flavor=%s, size=%lu\n",FUNC,flavors[type],(unsigned long)size);
-#endif /* QAK */
/* Retain the (first) flavor of the information written to the file */
if(file->fa.flags!=0) {
if(file->fa.flags&H5FD_LOG_FLAVOR) {
diff --git a/src/H5Farray.c b/src/H5Farray.c
index 6469c05..4408a2e 100644
--- a/src/H5Farray.c
+++ b/src/H5Farray.c
@@ -202,18 +202,6 @@ H5F_arr_read(H5F_t *f, hid_t dxpl_id, const H5O_layout_t *layout,
if (H5D_CONTIGUOUS!=layout->type && H5FD_MPIO_COLLECTIVE==xfer_mode)
HGOTO_ERROR (H5E_DATASET, H5E_READERROR, FAIL, "collective access on non-contiguous datasets not supported yet");
#endif
-#ifdef QAK
-{
- extern int qak_debug;
-
- if(qak_debug) {
- printf("%s: layout->ndims=%d\n",FUNC,(int)layout->ndims);
- for(u=0; u<layout->ndims; u++)
- printf("%s: %u: hslab_size=%d, mem_size=%d, mem_offset=%d, file_offset=%d\n",FUNC,u,(int)_hslab_size[u],(int)mem_size[u],(int)mem_offset[u],(int)file_offset[u]);
- printf("%s: *buf=%d, *(buf+1)=%d\n", FUNC,(int)*(const uint16_t *)buf,(int)*((const uint16 *)buf+1));
- }
-}
-#endif /* QAK */
/* Get necessary properties from property list */
if(H5P_get(dc_plist, H5D_CRT_EXT_FILE_LIST_NAME, &efl) < 0)
@@ -291,11 +279,6 @@ H5F_arr_read(H5F_t *f, hid_t dxpl_id, const H5O_layout_t *layout,
}
#endif
-#ifdef QAK
- printf("%s: nelmts=%d, addr=%lu, elmt_size=%lu\n",FUNC,(int)nelmts,(unsigned long)addr,(unsigned long)elmt_size);
- printf("%s: sieve_buf=%p, sieve_loc=%lu, sieve_size=%lu, sieve_buf_size=%lu, sieve_dirty=%u\n",FUNC,f->shared->sieve_buf,(unsigned long)f->shared->sieve_loc,(unsigned long)f->shared->sieve_size,(unsigned long)f->shared->sieve_buf_size,(unsigned)f->shared->sieve_dirty);
- printf("%s: feature_flags=%lx\n",FUNC,(unsigned long)f->shared->lf->feature_flags);
-#endif /* QAK */
#ifdef COALESCE_READS
for (z=0, gather_reads = nelmts - 1; z<nelmts; z++, gather_reads--) {
/* Track the number of reads to gather */
@@ -469,22 +452,6 @@ H5F_arr_write(H5F_t *f, hid_t dxpl_id, const H5O_layout_t *layout,
HGOTO_ERROR (H5E_DATASET, H5E_WRITEERROR, FAIL, "collective access on non-contiguous datasets not supported yet");
#endif
-#ifdef QAK
- {
- extern int qak_debug;
-
- printf("%s: layout->ndims=%d\n",FUNC,(int)layout->ndims);
- for(i=0; i<layout->ndims; i++)
- printf("%s: %d: hslab_size=%d, mem_size=%d, mem_offset=%d, "
- "file_offset=%d\n", FUNC, i, (int)_hslab_size[i],
- (int)mem_size[i],(int)mem_offset[i],(int)file_offset[i]);
- if(qak_debug) {
- printf("%s: *buf=%d, *(buf+1)=%d\n", FUNC,
- (int)*(const uint16_t *)buf, (int)*((const uint16_t *)buf+1));
- }
- }
-#endif /* QAK */
-
/* Get necessary properties from property list */
if(H5P_get(dc_plist, H5D_CRT_EXT_FILE_LIST_NAME, &efl) < 0)
HGOTO_ERROR(H5E_DATASET, H5E_CANTGET, FAIL, "can't get EFL value");
diff --git a/src/H5HG.c b/src/H5HG.c
index b37c8fd..7218a82 100644
--- a/src/H5HG.c
+++ b/src/H5HG.c
@@ -121,9 +121,6 @@ H5HG_create (H5F_t *f, size_t size)
if (size<H5HG_MINSIZE)
size = H5HG_MINSIZE;
size = H5HG_ALIGN(size);
-#ifdef QAK
-printf("%s: size=%d\n",FUNC,(int)size);
-#endif /* QAK */
/* Create it */
if (HADDR_UNDEF==(addr=H5MF_alloc(f, H5FD_MEM_GHEAP, (hsize_t)size))) {
@@ -167,9 +164,6 @@ printf("%s: size=%d\n",FUNC,(int)size);
/* The freespace object */
heap->obj[0].size = size - H5HG_SIZEOF_HDR(f);
-#ifdef QAK
-printf("%s: heap->obj[0].size=%d, size=%d\n",FUNC,(int)heap->obj[0].size,(int)size);
-#endif /* QAK */
assert(H5HG_ISALIGNED(heap->obj[0].size));
heap->obj[0].begin = p;
UINT16ENCODE(p, 0); /*object ID*/
@@ -614,9 +608,6 @@ H5HG_insert (H5F_t *f, size_t size, void *obj, H5HG_t *hobj/*out*/)
}
assert (f->shared->ncwfs>0);
assert (f->shared->cwfs[0]==heap);
-#ifdef QAK
-printf("%s: f->shared->cwfs[0]->obj[0].size=%d, size=%d, need=%d, H5HG_SIZEOF_HDR(f)=%d\n",FUNC,(int)f->shared->cwfs[0]->obj[0].size,(int)size,(int)need,(int)H5HG_SIZEOF_HDR(f));
-#endif /* QAK */
#ifdef OLD_WAY
assert (f->shared->cwfs[0]->obj[0].size >= need+H5HG_SIZEOF_HDR(f));
#else /* OLD_WAY */
diff --git a/src/H5Sall.c b/src/H5Sall.c
index 2efdfc9..52ecad8 100644
--- a/src/H5Sall.c
+++ b/src/H5Sall.c
@@ -119,9 +119,6 @@ H5S_all_favail (const H5S_t * UNUSED space, const H5S_sel_iter_t *sel_iter, hsiz
assert (space && H5S_SEL_ALL==space->select.type);
assert (sel_iter);
-#ifdef QAK
- printf("%s: sel_iter->all.elmt_left=%u, max=%u\n",FUNC,(unsigned)sel_iter->all.elmt_left,(unsigned)max);
-#endif /* QAK */
FUNC_LEAVE (MIN(sel_iter->all.elmt_left,max));
} /* H5S_all_favail() */
@@ -454,9 +451,6 @@ H5S_all_read(H5F_t *f, const H5O_layout_t *layout, H5P_genplist_t *dc_plist,
FUNC_ENTER(H5S_all_read, FAIL);
-#ifdef QAK
-printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
/* Get information about memory and file */
for (u=0; u<mem_space->extent.u.simple.rank; u++) {
switch(mem_space->select.type) {
@@ -525,17 +519,6 @@ printf("%s: check 1.0\n",FUNC);
file_offset[u] = 0;
mem_offset[u] = 0;
-#ifdef QAK
-printf("%s: check 2.0\n",FUNC);
-for (u=0; u<mem_space->extent.u.simple.rank; u++)
- printf("size[%u]=%lu\n",u,(unsigned long)size[u]);
-for (u=0; u<=mem_space->extent.u.simple.rank; u++)
- printf("mem_size[%u]=%lu\n",u,(unsigned long)mem_size[u]);
-for (u=0; u<=mem_space->extent.u.simple.rank; u++)
- printf("mem_offset[%u]=%lu\n",u,(unsigned long)mem_offset[u]);
-for (u=0; u<=mem_space->extent.u.simple.rank; u++)
- printf("file_offset[%u]=%lu\n",u,(unsigned long)file_offset[u]);
-#endif /* QAK */
/* Read data from the file */
if (H5F_arr_read(f, dxpl_id, layout, dc_plist, size,
mem_size, mem_offset, file_offset, buf/*out*/)<0)
@@ -588,10 +571,6 @@ H5S_all_write(H5F_t *f, const struct H5O_layout_t *layout, H5P_genplist_t *dc_pl
FUNC_ENTER(H5S_all_write, FAIL);
-#ifdef QAK
-printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
-
/* Get information about memory and file */
for (u=0; u<mem_space->extent.u.simple.rank; u++) {
switch(mem_space->select.type) {
@@ -660,17 +639,6 @@ printf("%s: check 1.0\n",FUNC);
file_offset[u] = 0;
mem_offset[u] = 0;
-#ifdef QAK
-printf("%s: check 2.0\n",FUNC);
-for (u=0; u<mem_space->extent.u.simple.rank; u++)
- printf("size[%u]=%lu\n",u,(unsigned long)size[u]);
-for (u=0; u<=mem_space->extent.u.simple.rank; u++)
- printf("mem_size[%u]=%lu\n",u,(unsigned long)mem_size[u]);
-for (u=0; u<=mem_space->extent.u.simple.rank; u++)
- printf("mem_offset[%u]=%lu\n",u,(unsigned long)mem_offset[u]);
-for (u=0; u<=mem_space->extent.u.simple.rank; u++)
- printf("file_offset[%u]=%lu\n",u,(unsigned long)file_offset[u]);
-#endif /* QAK */
/* Write data to the file */
if (H5F_arr_write(f, dxpl_id, layout, dc_plist, size,
mem_size, mem_offset, file_offset, buf)<0)
diff --git a/src/H5Shyper.c b/src/H5Shyper.c
index 6663d98..b9652c0 100644
--- a/src/H5Shyper.c
+++ b/src/H5Shyper.c
@@ -98,7 +98,7 @@ H5FL_ARR_DEFINE_STATIC(hsize_t,-1);
/* Declare a free list to manage arrays of H5S_hyper_dim_t */
H5FL_ARR_DEFINE_STATIC(H5S_hyper_dim_t,H5S_MAX_RANK);
-#ifdef QAK
+#ifdef H5S_HYPER_DEBUG
static herr_t
H5S_hyper_print_spans_helper(struct H5S_hyper_span_t *span,unsigned depth)
{
@@ -131,7 +131,7 @@ H5S_hyper_print_spans(const struct H5S_hyper_span_info_t *span_lst)
FUNC_LEAVE(SUCCEED);
}
-#endif /* QAK */
+#endif /* H5S_HYPER_DEBUG */
/*-------------------------------------------------------------------------
@@ -274,9 +274,6 @@ H5S_hyper_favail (const H5S_t * UNUSED space,
assert (space && H5S_SEL_HYPERSLABS==space->select.type);
assert (sel_iter);
-#ifdef QAK
- printf("%s: sel_iter->hyp.elmt_left=%u, max=%u\n",FUNC,(unsigned)sel_iter->hyp.elmt_left,(unsigned)max);
-#endif /* QAK */
FUNC_LEAVE (MIN(sel_iter->hyp.elmt_left,max));
} /* H5S_hyper_favail() */
@@ -419,9 +416,6 @@ H5S_hyper_fread (H5F_t *f, const struct H5O_layout_t *layout,
hssize_t ret_value=FAIL;
FUNC_ENTER (H5S_hyper_fread, 0);
-#ifdef QAK
-printf("%s: Called!\n",FUNC);
-#endif /* QAK */
/* Check args */
assert(f);
@@ -880,20 +874,12 @@ H5S_hyper_fread_opt (H5F_t *f, const struct H5O_layout_t *layout,
FUNC_ENTER (H5S_hyper_fread_opt, 0);
-#ifdef QAK
-printf("%s: Called!\n",FUNC);
-#endif /* QAK */
/* Check if this is the first element read in from the hyperslab */
if(file_iter->hyp.pos[0]==(-1)) {
for(u=0; u<file_space->extent.u.simple.rank; u++)
file_iter->hyp.pos[u]=file_space->select.sel_info.hslab.diminfo[u].start;
} /* end if */
-#ifdef QAK
-for(i=0; i<file_space->extent.u.simple.rank; i++)
- printf("%s: file_file->hyp.pos[%d]=%d\n",FUNC,(int)i,(int)file_iter->hyp.pos[i]);
-#endif /* QAK */
-
/* Get the hyperslab vector size */
if(TRUE!=H5P_isa_class(dxpl_id,H5P_DATASET_XFER) || NULL == (plist = H5I_object(dxpl_id)))
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, 0, "not a file access property list");
@@ -919,19 +905,11 @@ for(i=0; i<file_space->extent.u.simple.rank; i++)
/* Set the number of elements left for I/O */
H5_ASSIGN_OVERFLOW(io_left,nelmts,hsize_t,size_t);
-#ifdef QAK
- printf("%s: fast_dim=%d\n",FUNC,(int)fast_dim);
- printf("%s: file_space->select.sel_info.hslab.diminfo[%d].start=%d\n",FUNC,(int)fast_dim,(int)file_space->select.sel_info.hslab.diminfo[fast_dim].start);
- printf("%s: file_space->select.sel_info.hslab.diminfo[%d].stride=%d\n",FUNC,(int)fast_dim,(int)file_space->select.sel_info.hslab.diminfo[fast_dim].stride);
-#endif /* QAK */
/* Check if we stopped in the middle of a sequence of elements */
if((file_iter->hyp.pos[fast_dim]-file_space->select.sel_info.hslab.diminfo[fast_dim].start)%file_space->select.sel_info.hslab.diminfo[fast_dim].stride!=0 ||
((file_iter->hyp.pos[fast_dim]!=file_space->select.sel_info.hslab.diminfo[fast_dim].start) && file_space->select.sel_info.hslab.diminfo[fast_dim].stride==1)) {
hsize_t leftover; /* The number of elements left over from the last sequence */
-#ifdef QAK
-printf("%s: Check 1.0\n",FUNC);
-#endif /* QAK */
/* Calculate the number of elements left in the sequence */
if(file_space->select.sel_info.hslab.diminfo[fast_dim].stride==1)
leftover=file_space->select.sel_info.hslab.diminfo[fast_dim].block-(file_iter->hyp.pos[fast_dim]-file_space->select.sel_info.hslab.diminfo[fast_dim].start);
@@ -949,17 +927,10 @@ printf("%s: Check 1.0\n",FUNC);
/* Add in the selection offset */
for(i=0; i<ndims; i++)
offset[i] += file_space->select.offset[i];
-#ifdef QAK
-for(i=0; i<ndims+1; i++)
- printf("%s: offset[%d]=%d\n",FUNC,(int)i,(int)offset[i]);
-#endif /* QAK */
/* Compute the initial buffer offset */
for(i=0,buf_off=0; i<ndims; i++)
buf_off+=offset[i]*slab[i];
-#ifdef QAK
-printf("%s: buf_off=%ld, actual_read=%d, actual_bytes=%d\n",FUNC,(long)buf_off,(int)actual_read,(int)actual_bytes);
-#endif /* QAK */
/* Read in the rest of the sequence */
if (H5F_seq_read(f, dxpl_id, layout, dc_plist, file_space,
@@ -993,17 +964,10 @@ printf("%s: buf_off=%ld, actual_read=%d, actual_bytes=%d\n",FUNC,(long)buf_off,(
* until the buffer fills up.
*/
if(io_left>0) { /* Just in case the "remainder" above filled the buffer */
-#ifdef QAK
-printf("%s: Check 2.0, ndims=%d, io_left=%d, nelmts=%d\n",FUNC,(int)ndims,(int)io_left,(int)nelmts);
-#endif /* QAK */
/* Compute the arrays to perform I/O on */
/* Copy the location of the point to get */
HDmemcpy(offset, file_iter->hyp.pos,ndims*sizeof(hssize_t));
offset[ndims] = 0;
-#ifdef QAK
-for(i=0; i<ndims+1; i++)
- printf("%s: offset[%d]=%d\n",FUNC,(int)i,(int)offset[i]);
-#endif /* QAK */
/* Add in the selection offset */
for(i=0; i<ndims; i++)
@@ -1014,12 +978,6 @@ for(i=0; i<ndims+1; i++)
tmp_count[i] = (file_iter->hyp.pos[i]-file_space->select.sel_info.hslab.diminfo[i].start)%file_space->select.sel_info.hslab.diminfo[i].stride;
tmp_block[i] = (file_iter->hyp.pos[i]-file_space->select.sel_info.hslab.diminfo[i].start)/file_space->select.sel_info.hslab.diminfo[i].stride;
} /* end for */
-#ifdef QAK
-for(i=0; i<ndims; i++) {
- printf("%s: tmp_count[%d]=%d, tmp_block[%d]=%d\n",FUNC,(int)i,(int)tmp_count[i],(int)i,(int)tmp_block[i]);
- printf("%s: slab[%d]=%d\n",FUNC,(int)i,(int)slab[i]);
-}
-#endif /* QAK */
/* Compute the initial buffer offset */
for(i=0,buf_off=0; i<ndims; i++)
@@ -1030,18 +988,6 @@ for(i=0; i<ndims; i++) {
/* Set the number of actual bytes */
actual_bytes=actual_read*elmt_size;
-#ifdef QAK
-printf("%s: buf_off=%ld, actual_read=%d, actual_bytes=%d\n",FUNC,(long)buf_off,(int)actual_read,(int)actual_bytes);
-#endif /* QAK */
-
-#ifdef QAK
-for(i=0; i<file_space->extent.u.simple.rank; i++)
- printf("%s: diminfo: start[%d]=%d, stride[%d]=%d, block[%d]=%d, count[%d]=%d\n",FUNC,
- (int)i,(int)file_space->select.sel_info.hslab.diminfo[i].start,
- (int)i,(int)file_space->select.sel_info.hslab.diminfo[i].stride,
- (int)i,(int)file_space->select.sel_info.hslab.diminfo[i].block,
- (int)i,(int)file_space->select.sel_info.hslab.diminfo[i].count);
-#endif /* QAK */
/* Set the local copy of the diminfo pointer */
tdiminfo=file_space->select.sel_info.hslab.diminfo;
@@ -1500,9 +1446,6 @@ H5S_hyper_fwrite (H5F_t *f, const struct H5O_layout_t *layout,
hssize_t ret_value=FAIL;
FUNC_ENTER (H5S_hyper_fwrite, 0);
-#ifdef QAK
-printf("%s: Called!\n",FUNC);
-#endif /* QAK */
/* Check args */
assert(f);
@@ -1961,20 +1904,12 @@ H5S_hyper_fwrite_opt (H5F_t *f, const struct H5O_layout_t *layout,
FUNC_ENTER (H5S_hyper_fwrite_opt, 0);
-#ifdef QAK
-printf("%s: Called!, file_iter->hyp.pos[0]==%d\n",FUNC,(int)file_iter->hyp.pos[0]);
-#endif /* QAK */
/* Check if this is the first element written from the hyperslab */
if(file_iter->hyp.pos[0]==(-1)) {
for(u=0; u<file_space->extent.u.simple.rank; u++)
file_iter->hyp.pos[u]=file_space->select.sel_info.hslab.diminfo[u].start;
} /* end if */
-#ifdef QAK
-for(i=0; i<file_space->extent.u.simple.rank; i++)
- printf("%s: file_file->hyp.pos[%d]=%d\n",FUNC,(int)i,(int)file_iter->hyp.pos[i]);
-#endif /* QAK */
-
/* Get the hyperslab vector size */
if(TRUE!=H5P_isa_class(dxpl_id,H5P_DATASET_XFER) || NULL == (plist = H5I_object(dxpl_id)))
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, 0, "not a file access property list");
@@ -2000,19 +1935,11 @@ for(i=0; i<file_space->extent.u.simple.rank; i++)
/* Set the number of elements left for I/O */
H5_ASSIGN_OVERFLOW(io_left,nelmts,hsize_t,size_t);
-#ifdef QAK
- printf("%s: fast_dim=%d\n",FUNC,(int)fast_dim);
- printf("%s: file_space->select.sel_info.hslab.diminfo[%d].start=%d\n",FUNC,(int)fast_dim,(int)file_space->select.sel_info.hslab.diminfo[fast_dim].start);
- printf("%s: file_space->select.sel_info.hslab.diminfo[%d].stride=%d\n",FUNC,(int)fast_dim,(int)file_space->select.sel_info.hslab.diminfo[fast_dim].stride);
-#endif /* QAK */
/* Check if we stopped in the middle of a sequence of elements */
if((file_iter->hyp.pos[fast_dim]-file_space->select.sel_info.hslab.diminfo[fast_dim].start)%file_space->select.sel_info.hslab.diminfo[fast_dim].stride!=0 ||
((file_iter->hyp.pos[fast_dim]!=file_space->select.sel_info.hslab.diminfo[fast_dim].start) && file_space->select.sel_info.hslab.diminfo[fast_dim].stride==1)) {
hsize_t leftover; /* The number of elements left over from the last sequence */
-#ifdef QAK
-printf("%s: Check 1.0\n",FUNC);
-#endif /* QAK */
/* Calculate the number of elements left in the sequence */
if(file_space->select.sel_info.hslab.diminfo[fast_dim].stride==1)
leftover=file_space->select.sel_info.hslab.diminfo[fast_dim].block-(file_iter->hyp.pos[fast_dim]-file_space->select.sel_info.hslab.diminfo[fast_dim].start);
@@ -2030,17 +1957,10 @@ printf("%s: Check 1.0\n",FUNC);
/* Add in the selection offset */
for(i=0; i<ndims; i++)
offset[i] += file_space->select.offset[i];
-#ifdef QAK
-for(i=0; i<ndims+1; i++)
- printf("%s: offset[%d]=%d\n",FUNC,(int)i,(int)offset[i]);
-#endif /* QAK */
/* Compute the initial buffer offset */
for(i=0,buf_off=0; i<ndims; i++)
buf_off+=offset[i]*slab[i];
-#ifdef QAK
-printf("%s: buf_off=%ld, actual_write=%d, actual_bytes=%d\n",FUNC,(long)buf_off,(int)actual_write,(int)actual_bytes);
-#endif /* QAK */
/* Write out the rest of the sequence */
if (H5F_seq_write(f, dxpl_id, layout, dc_plist, file_space,
@@ -2074,17 +1994,10 @@ printf("%s: buf_off=%ld, actual_write=%d, actual_bytes=%d\n",FUNC,(long)buf_off,
* until the buffer runs dry.
*/
if(io_left>0) { /* Just in case the "remainder" above emptied the buffer */
-#ifdef QAK
-printf("%s: Check 2.0, ndims=%d, io_left=%d, nelmts=%d\n",FUNC,(int)ndims,(int)io_left,(int)nelmts);
-#endif /* QAK */
/* Compute the arrays to perform I/O on */
/* Copy the location of the point to get */
HDmemcpy(offset, file_iter->hyp.pos,ndims*sizeof(hssize_t));
offset[ndims] = 0;
-#ifdef QAK
-for(i=0; i<ndims+1; i++)
- printf("%s: offset[%d]=%d\n",FUNC,(int)i,(int)offset[i]);
-#endif /* QAK */
/* Add in the selection offset */
for(i=0; i<ndims; i++)
@@ -2095,12 +2008,6 @@ for(i=0; i<ndims+1; i++)
tmp_count[i] = (file_iter->hyp.pos[i]-file_space->select.sel_info.hslab.diminfo[i].start)%file_space->select.sel_info.hslab.diminfo[i].stride;
tmp_block[i] = (file_iter->hyp.pos[i]-file_space->select.sel_info.hslab.diminfo[i].start)/file_space->select.sel_info.hslab.diminfo[i].stride;
} /* end for */
-#ifdef QAK
-for(i=0; i<ndims; i++) {
- printf("%s: tmp_count[%d]=%d, tmp_block[%d]=%d\n",FUNC,(int)i,(int)tmp_count[i],(int)i,(int)tmp_block[i]);
- printf("%s: slab[%d]=%d\n",FUNC,(int)i,(int)slab[i]);
-}
-#endif /* QAK */
/* Compute the initial buffer offset */
for(i=0,buf_off=0; i<ndims; i++)
@@ -2111,18 +2018,6 @@ for(i=0; i<ndims; i++) {
/* Set the number of actual bytes */
actual_bytes=actual_write*elmt_size;
-#ifdef QAK
-printf("%s: buf_off=%ld, actual_write=%d, actual_bytes=%d\n",FUNC,(long)buf_off,(int)actual_write,(int)actual_bytes);
-#endif /* QAK */
-
-#ifdef QAK
-for(i=0; i<file_space->extent.u.simple.rank; i++)
- printf("%s: diminfo: start[%d]=%d, stride[%d]=%d, block[%d]=%d, count[%d]=%d\n",FUNC,
- (int)i,(int)file_space->select.sel_info.hslab.diminfo[i].start,
- (int)i,(int)file_space->select.sel_info.hslab.diminfo[i].stride,
- (int)i,(int)file_space->select.sel_info.hslab.diminfo[i].block,
- (int)i,(int)file_space->select.sel_info.hslab.diminfo[i].count);
-#endif /* QAK */
/* Set the local copy of the diminfo pointer */
tdiminfo=file_space->select.sel_info.hslab.diminfo;
@@ -2568,9 +2463,6 @@ H5S_hyper_mread (const void *_buf, size_t elmt_size, const H5S_t *space,
hssize_t ret_value=FAIL;
FUNC_ENTER (H5S_hyper_mread, FAIL);
-#ifdef QAK
-printf("%s: Called!\n",FUNC);
-#endif /* QAK */
/* Check args */
assert(src);
@@ -2958,20 +2850,12 @@ H5S_hyper_mread_opt (const void *_buf, size_t elmt_size,
FUNC_ENTER (H5S_hyper_mread_opt, 0);
-#ifdef QAK
-printf("%s: Called!, nelmts=%lu, elmt_size=%d\n",FUNC,(unsigned long)nelmts,(int)elmt_size);
-#endif /* QAK */
/* Check if this is the first element read in from the hyperslab */
if(mem_iter->hyp.pos[0]==(-1)) {
for(u=0; u<mem_space->extent.u.simple.rank; u++)
mem_iter->hyp.pos[u]=mem_space->select.sel_info.hslab.diminfo[u].start;
} /* end if */
-#ifdef QAK
-for(u=0; u<mem_space->extent.u.simple.rank; u++)
- printf("%s: mem_file->hyp.pos[%u]=%d\n",FUNC,(unsigned)u,(int)mem_iter->hyp.pos[u]);
-#endif /* QAK */
-
/* Set the aliases for a few important dimension ranks */
fast_dim=mem_space->extent.u.simple.rank-1;
ndims=mem_space->extent.u.simple.rank;
@@ -2985,10 +2869,6 @@ for(u=0; u<mem_space->extent.u.simple.rank; u++)
slab[i]=acc*elmt_size;
acc*=mem_size[i];
} /* end for */
-#ifdef QAK
-for(i=0; i<ndims; i++)
- printf("%s: mem_size[%d]=%d, slab[%d]=%d\n",FUNC,(int)i,(int)mem_size[i],(int)i,(int)slab[i]);
-#endif /* QAK */
/* Set the number of elements left for I/O */
H5_ASSIGN_OVERFLOW(io_left,nelmts,hsize_t,size_t);
@@ -2998,9 +2878,6 @@ for(i=0; i<ndims; i++)
((mem_iter->hyp.pos[fast_dim]!=mem_space->select.sel_info.hslab.diminfo[fast_dim].start) && mem_space->select.sel_info.hslab.diminfo[fast_dim].stride==1)) {
size_t leftover; /* The number of elements left over from the last sequence */
-#ifdef QAK
-printf("%s: Check 1.0, io_left=%lu\n",FUNC,(unsigned long)io_left);
-#endif /* QAK */
/* Calculate the number of elements left in the sequence */
if(mem_space->select.sel_info.hslab.diminfo[fast_dim].stride==1)
leftover=mem_space->select.sel_info.hslab.diminfo[fast_dim].block-(mem_iter->hyp.pos[fast_dim]-mem_space->select.sel_info.hslab.diminfo[fast_dim].start);
@@ -3053,9 +2930,6 @@ printf("%s: Check 1.0, io_left=%lu\n",FUNC,(unsigned long)io_left);
* until the buffer fills up.
*/
if(io_left>0) { /* Just in case the "remainder" above filled the buffer */
-#ifdef QAK
-printf("%s: Check 2.0, io_left=%lu\n",FUNC,(unsigned long)io_left);
-#endif /* QAK */
/* Compute the arrays to perform I/O on */
/* Copy the location of the point to get */
HDmemcpy(offset, mem_iter->hyp.pos,ndims*sizeof(hssize_t));
@@ -3080,19 +2954,6 @@ printf("%s: Check 2.0, io_left=%lu\n",FUNC,(unsigned long)io_left);
/* Set the number of actual bytes */
actual_bytes=actual_read*elmt_size;
-#ifdef QAK
-printf("%s: src=%p, actual_bytes=%u\n",FUNC,src,(int)actual_bytes);
-#endif /* QAK */
-
-#ifdef QAK
-printf("%s: actual_read=%d\n",FUNC,(int)actual_read);
-for(i=0; i<ndims; i++)
- printf("%s: diminfo: start[%d]=%d, stride[%d]=%d, block[%d]=%d, count[%d]=%d\n",FUNC,
- (int)i,(int)mem_space->select.sel_info.hslab.diminfo[i].start,
- (int)i,(int)mem_space->select.sel_info.hslab.diminfo[i].stride,
- (int)i,(int)mem_space->select.sel_info.hslab.diminfo[i].block,
- (int)i,(int)mem_space->select.sel_info.hslab.diminfo[i].count);
-#endif /* QAK */
/* Set the local copy of the diminfo pointer */
tdiminfo=mem_space->select.sel_info.hslab.diminfo;
@@ -3143,10 +3004,6 @@ for(i=0; i<ndims; i++)
} /* end while */
#else /* NO_DUFFS_DEVICE */
duffs_index = (fast_dim_count + 7) / 8;
- /* The following size_t cast is required on HPUX 10.20 in
- * order to make the system compuiler happy. It can be
- * removed when we are no longer supporting that platform. -QAK
- */
switch (fast_dim_count % 8) {
case 0:
do
@@ -3441,9 +3298,6 @@ H5S_hyper_mwrite (const void *_tconv_buf, size_t elmt_size, const H5S_t *space,
hssize_t ret_value=FAIL;
FUNC_ENTER (H5S_hyper_mwrite, FAIL);
-#ifdef QAK
-printf("%s: Called!\n",FUNC);
-#endif /* QAK */
/* Check args */
assert(src);
@@ -3831,20 +3685,12 @@ H5S_hyper_mwrite_opt (const void *_tconv_buf, size_t elmt_size,
FUNC_ENTER (H5S_hyper_mwrite_opt, 0);
-#ifdef QAK
-printf("%s: Called!, nelmts=%lu, elmt_size=%d\n",FUNC,(unsigned long)nelmts,(int)elmt_size);
-#endif /* QAK */
/* Check if this is the first element read in from the hyperslab */
if(mem_iter->hyp.pos[0]==(-1)) {
for(u=0; u<mem_space->extent.u.simple.rank; u++)
mem_iter->hyp.pos[u]=mem_space->select.sel_info.hslab.diminfo[u].start;
} /* end if */
-#ifdef QAK
-for(u=0; u<mem_space->extent.u.simple.rank; u++)
- printf("%s: mem_file->hyp.pos[%u]=%d\n",FUNC,(unsigned)u,(int)mem_iter->hyp.pos[u]);
-#endif /* QAK */
-
/* Set the aliases for a few important dimension ranks */
fast_dim=mem_space->extent.u.simple.rank-1;
ndims=mem_space->extent.u.simple.rank;
@@ -3858,10 +3704,6 @@ for(u=0; u<mem_space->extent.u.simple.rank; u++)
slab[i]=acc*elmt_size;
acc*=mem_size[i];
} /* end for */
-#ifdef QAK
-for(i=0; i<ndims; i++)
- printf("%s: mem_size[%d]=%d, slab[%d]=%d\n",FUNC,(int)i,(int)mem_size[i],(int)i,(int)slab[i]);
-#endif /* QAK */
/* Set the number of elements left for I/O */
H5_ASSIGN_OVERFLOW(io_left,nelmts,hsize_t,size_t);
@@ -3871,9 +3713,6 @@ for(i=0; i<ndims; i++)
((mem_iter->hyp.pos[fast_dim]!=mem_space->select.sel_info.hslab.diminfo[fast_dim].start) && mem_space->select.sel_info.hslab.diminfo[fast_dim].stride==1)) {
size_t leftover; /* The number of elements left over from the last sequence */
-#ifdef QAK
-printf("%s: Check 1.0, io_left=%lu\n",FUNC,(unsigned long)io_left);
-#endif /* QAK */
/* Calculate the number of elements left in the sequence */
if(mem_space->select.sel_info.hslab.diminfo[fast_dim].stride==1)
leftover=mem_space->select.sel_info.hslab.diminfo[fast_dim].block-(mem_iter->hyp.pos[fast_dim]-mem_space->select.sel_info.hslab.diminfo[fast_dim].start);
@@ -3926,9 +3765,6 @@ printf("%s: Check 1.0, io_left=%lu\n",FUNC,(unsigned long)io_left);
* until the buffer fills up.
*/
if(io_left>0) { /* Just in case the "remainder" above filled the buffer */
-#ifdef QAK
-printf("%s: Check 2.0, io_left=%lu\n",FUNC,(unsigned long)io_left);
-#endif /* QAK */
/* Compute the arrays to perform I/O on */
/* Copy the location of the point to get */
HDmemcpy(offset, mem_iter->hyp.pos,ndims*sizeof(hssize_t));
@@ -3953,19 +3789,6 @@ printf("%s: Check 2.0, io_left=%lu\n",FUNC,(unsigned long)io_left);
/* Set the number of actual bytes */
actual_bytes=actual_write*elmt_size;
-#ifdef QAK
-printf("%s: dst=%p, actual_bytes=%u\n",FUNC,dst,(int)actual_bytes);
-#endif /* QAK */
-
-#ifdef QAK
-printf("%s: actual_write=%d\n",FUNC,(int)actual_write);
-for(i=0; i<ndims; i++)
- printf("%s: diminfo: start[%d]=%d, stride[%d]=%d, block[%d]=%d, count[%d]=%d\n",FUNC,
- (int)i,(int)mem_space->select.sel_info.hslab.diminfo[i].start,
- (int)i,(int)mem_space->select.sel_info.hslab.diminfo[i].stride,
- (int)i,(int)mem_space->select.sel_info.hslab.diminfo[i].block,
- (int)i,(int)mem_space->select.sel_info.hslab.diminfo[i].count);
-#endif /* QAK */
/* Set the local copy of the diminfo pointer */
tdiminfo=mem_space->select.sel_info.hslab.diminfo;
@@ -4016,10 +3839,6 @@ for(i=0; i<ndims; i++)
} /* end while */
#else /* NO_DUFFS_DEVICE */
duffs_index = (fast_dim_count + 7) / 8;
- /* The following size_t cast is required on HPUX 10.20 in
- * order to make the system compuiler happy. It can be
- * removed when we are no longer supporting that platform. -QAK
- */
switch (fast_dim_count % 8) {
case 0:
do
@@ -7128,23 +6947,14 @@ H5S_hyper_clip_spans (H5S_hyper_span_info_t *a_spans, H5S_hyper_span_info_t *b_s
assert (a_and_b);
assert (b_not_a);
-#ifdef QAK
-printf("%s: a_spans=%p, b_spans=%p\n",FUNC,a_spans,b_spans);
-#endif /* QAK */
/* Check if both span trees are not defined */
if(a_spans==NULL && b_spans==NULL) {
-#ifdef QAK
-printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
*a_not_b=NULL;
*a_and_b=NULL;
*b_not_a=NULL;
} /* end if */
/* If span 'a' is not defined, but 'b' is, copy 'b' and set the other return span trees to empty */
else if(a_spans==NULL) {
-#ifdef QAK
-printf("%s: check 2.0\n",FUNC);
-#endif /* QAK */
*a_not_b=NULL;
*a_and_b=NULL;
if((*b_not_a=H5S_hyper_copy_span(b_spans))==NULL)
@@ -7152,9 +6962,6 @@ printf("%s: check 2.0\n",FUNC);
} /* end if */
/* If span 'b' is not defined, but 'a' is, copy 'a' and set the other return span trees to empty */
else if(b_spans==NULL) {
-#ifdef QAK
-printf("%s: check 3.0\n",FUNC);
-#endif /* QAK */
if((*a_not_b=H5S_hyper_copy_span(a_spans))==NULL)
HGOTO_ERROR(H5E_INTERNAL, H5E_CANTCOPY, FAIL, "can't copy hyperslab span tree");
*a_and_b=NULL;
@@ -7162,23 +6969,14 @@ printf("%s: check 3.0\n",FUNC);
} /* end if */
/* If span 'a' and 'b' are both defined, calculate the proper span trees */
else {
-#ifdef QAK
-printf("%s: check 4.0\n",FUNC);
-#endif /* QAK */
/* Check if both span trees completely overlap */
if(H5S_hyper_cmp_spans(a_spans,b_spans)==TRUE) {
-#ifdef QAK
-printf("%s: check 4.1\n",FUNC);
-#endif /* QAK */
*a_not_b=NULL;
if((*a_and_b=H5S_hyper_copy_span(a_spans))==NULL)
HGOTO_ERROR(H5E_INTERNAL, H5E_CANTCOPY, FAIL, "can't copy hyperslab span tree");
*b_not_a=NULL;
} /* end if */
else {
-#ifdef QAK
-printf("%s: check 4.2\n",FUNC);
-#endif /* QAK */
/* Get the pointers to the new and old span lists */
span_a=a_spans->head;
span_b=b_spans->head;
@@ -7193,17 +6991,11 @@ printf("%s: check 4.2\n",FUNC);
/* Work through the list of spans in the new list */
while(span_a!=NULL && span_b!=NULL) {
-#ifdef QAK
-printf("%s: check 4.3, span_a=%p, span_b=%p\n",FUNC,span_a,span_b);
-#endif /* QAK */
/* Check if span 'a' is completely before span 'b' */
/* AAAAAAA */
/* <-----------------------------------> */
/* BBBBBBBBBB */
if(span_a->high<span_b->low) {
-#ifdef QAK
-printf("%s: check 4.3.1, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Copy span 'a' and add to a_not_b list */
/* Merge/add span 'a' with/to a_not_b list */
@@ -7219,9 +7011,6 @@ printf("%s: check 4.3.1, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%l
/* <-----------------------------------> */
/* BBBBBBBBBB */
else if(span_a->low<span_b->low && (span_a->high>=span_b->low && span_a->high<=span_b->high)) {
-#ifdef QAK
-printf("%s: check 4.3.2, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Split span 'a' into two parts at the low bound of span 'b' */
/* Merge/add lower part of span 'a' with/to a_not_b list */
@@ -7309,9 +7098,6 @@ printf("%s: check 4.3.2, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%l
/* <-----------------------------------> */
/* BBBBBBBBBB */
else if(span_a->low<span_b->low && span_a->high>span_b->high) {
-#ifdef QAK
-printf("%s: check 4.3.3, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Split off lower part of span 'a' at lower span of span 'b' */
/* Merge/add lower part of span 'a' with/to a_not_b list */
@@ -7389,9 +7175,6 @@ printf("%s: check 4.3.3, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%l
/* <-----------------------------------> */
/* BBBBBBBBBB */
else if(span_a->low>=span_b->low && span_a->high<=span_b->high) {
-#ifdef QAK
-printf("%s: check 4.3.4, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Split off lower part of span 'b' at lower span of span 'a' */
/* Check if there is actually a lower part of span 'b' to split off */
@@ -7484,9 +7267,6 @@ printf("%s: check 4.3.4, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%l
/* <-----------------------------------> */
/* BBBBBBBBBB */
else if((span_a->low>=span_b->low && span_a->low<=span_b->high) && span_a->high>span_b->high) {
-#ifdef QAK
-printf("%s: check 4.3.5, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Check if there is actually a lower part of span 'b' to split off */
if(span_a->low>span_b->low) {
/* Split off lower part of span 'b' at lower span of span 'a' */
@@ -7570,9 +7350,6 @@ printf("%s: check 4.3.5, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%l
/* <-----------------------------------> */
/* BBBBBBBBBB */
else {
-#ifdef QAK
-printf("%s: check 4.3.6, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Copy span 'b' and add to b_not_a list */
/* Merge/add span 'b' with/to b_not_a list */
@@ -7583,15 +7360,9 @@ printf("%s: check 4.3.6, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%l
H5S_hyper_recover_span(&recover_b,&span_b,span_b->next);
} /* end else */
} /* end while */
-#ifdef QAK
-printf("%s: check 5.0, span_a=%p, span_b=%p\n",FUNC,span_a,span_b);
-#endif /* QAK */
/* Clean up 'a' spans which haven't been covered yet */
if(span_a!=NULL && span_b==NULL) {
-#ifdef QAK
-printf("%s: check 6.0, span_a=%p, span_b=%p\n",FUNC,span_a,span_b);
-#endif /* QAK */
while(span_a!=NULL) {
/* Copy span 'a' and add to a_not_b list */
@@ -7605,9 +7376,6 @@ printf("%s: check 6.0, span_a=%p, span_b=%p\n",FUNC,span_a,span_b);
} /* end if */
/* Clean up 'b' spans which haven't been covered yet */
else if(span_a==NULL && span_b!=NULL) {
-#ifdef QAK
-printf("%s: check 7.0, span_a=%p, span_b=%p\n",FUNC,span_a,span_b);
-#endif /* QAK */
while(span_b!=NULL) {
/* Copy span 'b' and add to b_not_a list */
@@ -7665,18 +7433,11 @@ H5S_hyper_merge_spans_helper (H5S_hyper_span_info_t *a_spans, H5S_hyper_span_inf
FUNC_ENTER (H5S_hyper_merge_spans_helper, NULL);
-#ifdef QAK
-printf("%s: a_spans=%p, b_spans=%p\n",FUNC,a_spans,b_spans);
-#endif /* QAK */
-
/* Make certain both 'a' & 'b' spans have down span trees or neither does */
assert((a_spans!=NULL && b_spans!=NULL) || (a_spans==NULL && b_spans==NULL));
/* Check if the span trees for the 'a' span and the 'b' span are the same */
if(H5S_hyper_cmp_spans(a_spans,b_spans)==TRUE) {
-#ifdef QAK
-printf("%s: check 0.5\n",FUNC);
-#endif /* QAK */
if(a_spans==NULL)
merged_spans=NULL;
else {
@@ -7686,9 +7447,6 @@ printf("%s: check 0.5\n",FUNC);
} /* end else */
} /* end if */
else {
-#ifdef QAK
-printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
/* Get the pointers to the 'a' and 'b' span lists */
span_a=a_spans->head;
span_b=b_spans->head;
@@ -7701,17 +7459,11 @@ printf("%s: check 1.0\n",FUNC);
/* Work through the list of spans in the new list */
while(span_a!=NULL && span_b!=NULL) {
-#ifdef QAK
-printf("%s: check 3.0, span_a=%p, span_b=%p\n",FUNC,span_a,span_b);
-#endif /* QAK */
/* Check if the 'a' span is completely before 'b' span */
/* AAAAAAA */
/* <-----------------------------------> */
/* BBBBBBBBBB */
if(span_a->high<span_b->low) {
-#ifdef QAK
-printf("%s: check 3.1, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Merge/add span 'a' with/to the merged spans */
if(H5S_hyper_append_span(&prev_span_merge,&merged_spans,span_a->low,span_a->high,span_a->down,NULL)==FAIL)
HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, NULL, "can't allocate hyperslab span");
@@ -7725,9 +7477,6 @@ printf("%s: check 3.1, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld,
/* <-----------------------------------> */
/* BBBBBBBBBB */
else if(span_a->low<span_b->low && (span_a->high>=span_b->low && span_a->high<=span_b->high)) {
-#ifdef QAK
-printf("%s: check 3.2, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Check if span 'a' and span 'b' down spans are equal */
if(H5S_hyper_cmp_spans(span_a->down,span_b->down)==TRUE) {
/* Merge/add copy of span 'a' with/to merged spans */
@@ -7777,9 +7526,6 @@ printf("%s: check 3.2, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld,
/* <-----------------------------------> */
/* BBBBBBBBBB */
else if(span_a->low<span_b->low && span_a->high>span_b->high) {
-#ifdef QAK
-printf("%s: check 3.3, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Check if span 'a' and span 'b' down spans are equal */
if(H5S_hyper_cmp_spans(span_a->down,span_b->down)==TRUE) {
/* Merge/add copy of lower & middle parts of span 'a' to merged spans */
@@ -7820,9 +7566,6 @@ printf("%s: check 3.3, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld,
/* <-----------------------------------> */
/* BBBBBBBBBB */
else if(span_a->low>=span_b->low && span_a->high<=span_b->high) {
-#ifdef QAK
-printf("%s: check 3.4, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Check if span 'a' and span 'b' down spans are equal */
if(H5S_hyper_cmp_spans(span_a->down,span_b->down)==TRUE) {
/* Merge/add copy of lower & middle parts of span 'b' to merged spans */
@@ -7878,9 +7621,6 @@ printf("%s: check 3.4, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld,
/* <-----------------------------------> */
/* BBBBBBBBBB */
else if((span_a->low>=span_b->low && span_a->low<=span_b->high) && span_a->high>span_b->high) {
-#ifdef QAK
-printf("%s: check 3.5, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Check if span 'a' and span 'b' down spans are equal */
if(H5S_hyper_cmp_spans(span_a->down,span_b->down)==TRUE) {
/* Merge/add copy of span 'b' to merged spans if so */
@@ -7927,9 +7667,6 @@ printf("%s: check 3.5, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld,
/* <-----------------------------------> */
/* BBBBBBBBBB */
else {
-#ifdef QAK
-printf("%s: check 3.6, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Merge/add span 'b' with the merged spans */
if(H5S_hyper_append_span(&prev_span_merge,&merged_spans,span_b->low,span_b->high,span_b->down,NULL)==FAIL)
HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, NULL, "can't allocate hyperslab span");
@@ -7938,16 +7675,10 @@ printf("%s: check 3.6, span_a->(low, high)=(%ld, %ld), span_b->(low, high)=(%ld,
H5S_hyper_recover_span(&recover_b,&span_b,span_b->next);
} /* end else */
} /* end while */
-#ifdef QAK
-printf("%s: check 4.0, span_a=%p, span_b=%p\n",FUNC,span_a,span_b);
-#endif /* QAK */
/* Clean up 'a' spans which haven't been added to the list of merged spans */
if(span_a!=NULL && span_b==NULL) {
while(span_a!=NULL) {
-#ifdef QAK
-printf("%s: check 5.0, span_a->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,(long)span_a->high);
-#endif /* QAK */
/* Merge/add all 'a' spans into the merged spans */
if(H5S_hyper_append_span(&prev_span_merge,&merged_spans,span_a->low,span_a->high,span_a->down,NULL)==FAIL)
HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, NULL, "can't allocate hyperslab span");
@@ -7960,9 +7691,6 @@ printf("%s: check 5.0, span_a->(low, high)=(%ld, %ld)\n",FUNC,(long)span_a->low,
/* Clean up 'b' spans which haven't been added to the list of merged spans */
if(span_a==NULL && span_b!=NULL) {
while(span_b!=NULL) {
-#ifdef QAK
-printf("%s: check 6.0, span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_b->low,(long)span_b->high);
-#endif /* QAK */
/* Merge/add all 'b' spans into the merged spans */
if(H5S_hyper_append_span(&prev_span_merge,&merged_spans,span_b->low,span_b->high,span_b->down,NULL)==FAIL)
HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, NULL, "can't allocate hyperslab span");
@@ -7971,9 +7699,6 @@ printf("%s: check 6.0, span_b->(low, high)=(%ld, %ld)\n",FUNC,(long)span_b->low,
H5S_hyper_recover_span(&recover_b,&span_b,span_b->next);
} /* end while */
} /* end if */
-#ifdef QAK
-printf("%s: check 7.0, span_a=%p, span_b=%p\n",FUNC,span_a,span_b);
-#endif /* QAK */
} /* end else */
/* Success! */
@@ -8017,9 +7742,6 @@ H5S_hyper_merge_spans (H5S_t *space, H5S_hyper_span_info_t *new_spans)
assert (space);
assert (new_spans);
-#ifdef QAK
-printf("%s: space->select.sel_info.hslab.span_lst=%p, new_spans=%p\n",FUNC,space->select.sel_info.hslab.span_lst,new_spans);
-#endif /* QAK */
/* If this is the first span tree in the hyperslab selection, just use it */
if(space->select.sel_info.hslab.span_lst==NULL) {
space->select.sel_info.hslab.span_lst=H5S_hyper_copy_span(new_spans);
@@ -8254,9 +7976,6 @@ H5S_generate_hyperslab (H5S_t *space, H5S_seloper_t op,
assert(_count);
assert(_block);
-#ifdef QAK
-printf("%s: space=%p\n",FUNC,space);
-#endif /* QAK */
/* Optimize hyperslab selection to merge contiguous blocks */
for(u=0; u<space->extent.u.simple.rank; u++) {
/* contiguous hyperslabs have the block size equal to the stride */
@@ -8275,9 +7994,6 @@ printf("%s: space=%p\n",FUNC,space);
/* Generate span tree for new hyperslab information */
if((new_spans=H5S_hyper_make_spans(space->extent.u.simple.rank,start,stride,count,block))==NULL)
HGOTO_ERROR(H5E_DATASPACE, H5E_CANTINSERT, FAIL, "can't create hyperslab information");
-#ifdef QAK
-printf("%s: new_spans=%p\n",FUNC,new_spans);
-#endif /* QAK */
/* Generate list of blocks to add/remove based on selection operation */
if(op==H5S_SELECT_SET) {
@@ -8405,9 +8121,6 @@ printf("%s: new_spans=%p\n",FUNC,new_spans);
default:
HGOTO_ERROR(H5E_ARGS, H5E_UNSUPPORTED, FAIL, "invalid selection operation");
} /* end switch */
-#ifdef QAK
-printf("%s: a_not_b=%p, a_and_b=%p, b_not_a=%p\n",FUNC,a_not_b,a_and_b,b_not_a);
-#endif /* QAK */
/* Free the hyperslab trees generated from the clipping algorithm */
if(a_not_b)
H5S_hyper_free_span_info(a_not_b);
diff --git a/src/H5Spoint.c b/src/H5Spoint.c
index 2fa6a2d..efe6df0 100644
--- a/src/H5Spoint.c
+++ b/src/H5Spoint.c
@@ -88,9 +88,6 @@ H5S_point_init (const H5S_t *space, size_t UNUSED elmt_size, H5S_sel_iter_t *sel
assert (space && H5S_SEL_POINTS==space->select.type);
assert (sel_iter);
-#ifdef QAK
- printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
/* Initialize the number of points to iterate over */
sel_iter->pnt.elmt_left=space->select.num_elem;
@@ -134,9 +131,6 @@ herr_t H5S_point_add (H5S_t *space, H5S_seloper_t op, size_t num_elem, const hss
assert(coord);
assert(op==H5S_SELECT_SET || op==H5S_SELECT_APPEND || op==H5S_SELECT_PREPEND);
-#ifdef QAK
- printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
top=curr=NULL;
for(i=0; i<num_elem; i++) {
/* Allocate space for the new node */
@@ -144,32 +138,12 @@ herr_t H5S_point_add (H5S_t *space, H5S_seloper_t op, size_t num_elem, const hss
HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, FAIL,
"can't allocate point node");
-#ifdef QAK
- printf("%s: check 1.1, rank=%d\n",
- FUNC,(int)space->extent.u.simple.rank);
-#endif /* QAK */
if((new_node->pnt = H5MM_malloc(space->extent.u.simple.rank*sizeof(hssize_t)))==NULL)
HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, FAIL,
"can't allocate coordinate information");
-#ifdef QAK
- printf("%s: check 1.2\n",FUNC);
-#endif /* QAK */
/* Copy over the coordinates */
HDmemcpy(new_node->pnt,coord+(i*space->extent.u.simple.rank),(space->extent.u.simple.rank*sizeof(hssize_t)));
-#ifdef QAK
- printf("%s: check 1.3\n",FUNC);
- {
- int j;
-
- for(j=0; j<space->extent.u.simple.rank; j++) {
- printf("%s: pnt[%d]=%d\n",FUNC,(int)j,(int)new_node->pnt[j]);
- printf("%s: coord[%d][%d]=%d\n",
- FUNC, (int)i, (int)j,
- (int)*(coord+(i*space->extent.u.simple.rank)+j));
- }
- }
-#endif /* QAK */
/* Link into list */
new_node->next=NULL;
@@ -179,9 +153,6 @@ herr_t H5S_point_add (H5S_t *space, H5S_seloper_t op, size_t num_elem, const hss
curr->next=new_node;
curr=new_node;
} /* end for */
-#ifdef QAK
- printf("%s: check 2.0\n",FUNC);
-#endif /* QAK */
/* Insert the list of points selected in the proper place */
if(op==H5S_SELECT_SET || op==H5S_SELECT_PREPEND) {
@@ -209,9 +180,6 @@ herr_t H5S_point_add (H5S_t *space, H5S_seloper_t op, size_t num_elem, const hss
space->select.num_elem+=num_elem;
ret_value=SUCCEED;
-#ifdef QAK
- printf("%s: check 3.0\n",FUNC);
-#endif /* QAK */
done:
FUNC_LEAVE (ret_value);
@@ -241,9 +209,6 @@ H5S_point_favail (const H5S_t * UNUSED space,
assert (space && H5S_SEL_POINTS==space->select.type);
assert (sel_iter);
-#ifdef QAK
- printf("%s: check 1.0, ret=%d\n", FUNC,(int)MIN(sel_iter->pnt.elmt_left,max));
-#endif /* QAK */
FUNC_LEAVE (MIN(sel_iter->pnt.elmt_left,max));
} /* H5S_point_favail() */
@@ -303,9 +268,6 @@ H5S_point_fgath (H5F_t *f, const struct H5O_layout_t *layout,
assert (nelmts>0);
assert (buf);
-#ifdef QAK
- printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
ndims=file_space->extent.u.simple.rank;
/* initialize hyperslab size and offset in memory buffer */
for(u=0; u<ndims+1; u++) {
@@ -481,9 +443,6 @@ H5S_point_mgath (const void *_buf, size_t elmt_size,
assert (nelmts>0);
assert (tconv_buf);
-#ifdef QAK
- printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
/* Get the dataspace dimensions */
if ((space_ndims=H5S_get_simple_extent_dims (mem_space, mem_size, NULL))<0)
HRETURN_ERROR (H5E_DATASPACE, H5E_CANTINIT, 0, "unable to retrieve data space dimensions");
@@ -497,9 +456,6 @@ H5S_point_mgath (const void *_buf, size_t elmt_size,
acc*=mem_size[i];
} /* end for */
-#ifdef QAK
- printf("%s: check 2.0, acc=%d, off=%d\n",FUNC,(int)acc,(int)off);
-#endif /* QAK */
/* Copy the elements into the type conversion buffer */
HDmemcpy(tconv_buf,buf+off,elmt_size);
@@ -557,9 +513,6 @@ H5S_point_mscat (const void *_tconv_buf, size_t elmt_size,
assert (nelmts>0);
assert (buf);
-#ifdef QAK
- printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
/* Get the dataspace dimensions */
if ((space_ndims=H5S_get_simple_extent_dims (mem_space, mem_size, NULL))<0)
HRETURN_ERROR (H5E_DATASPACE, H5E_CANTINIT, FAIL, "unable to retrieve data space dimensions");
@@ -660,9 +613,6 @@ H5S_point_npoints (const H5S_t *space)
/* Check args */
assert (space);
-#ifdef QAK
- printf("%s: check 1.0, nelmts=%d\n",FUNC,(int)space->select.num_elem);
-#endif /* QAK */
FUNC_LEAVE (space->select.num_elem);
} /* H5S_point_npoints() */
@@ -696,9 +646,6 @@ H5S_point_copy (H5S_t *dst, const H5S_t *src)
assert(src);
assert(dst);
-#ifdef QAK
- printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
/* Allocate room for the head of the point list */
if((dst->select.sel_info.pnt_lst=H5MM_malloc(sizeof(H5S_pnt_list_t)))==NULL)
HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, FAIL,
@@ -717,15 +664,6 @@ H5S_point_copy (H5S_t *dst, const H5S_t *src)
HDmemcpy(new_node->pnt,curr->pnt,(src->extent.u.simple.rank*sizeof(hssize_t)));
new_node->next=NULL;
-#ifdef QAK
- printf("%s: check 5.0\n",FUNC);
- {
- int i;
- for(i=0; i<src->extent.u.simple.rank; i++)
- printf("%s: check 5.1, new_node->pnt[%d]=%d\n",FUNC,i,(int)new_node->pnt[i]);
- }
-#endif /* QAK */
-
/* Keep the order the same when copying */
if(new_head==NULL)
new_head=dst->select.sel_info.pnt_lst->head=new_node;
@@ -736,10 +674,6 @@ H5S_point_copy (H5S_t *dst, const H5S_t *src)
curr=curr->next;
} /* end while */
-#ifdef QAK
- printf("%s: check 10.0 src->select.sel_info.pnt_lst=%p, dst->select.sel_info.pnt_lst=%p\n",FUNC,src->select.sel_info.pnt_lst,dst->select.sel_info.pnt_lst);
- printf("%s: check 10.0 src->select.sel_info.pnt_lst->head=%p, dst->select.sel_info.pnt_lst->head=%p\n",FUNC,src->select.sel_info.pnt_lst->head,dst->select.sel_info.pnt_lst->head);
-#endif /* QAK */
done:
FUNC_LEAVE (ret_value);
@@ -776,20 +710,11 @@ H5S_point_select_valid (const H5S_t *space)
assert(space);
-#ifdef QAK
-printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
/* Check each point to determine whether selection+offset is within extent */
curr=space->select.sel_info.pnt_lst->head;
while(curr!=NULL) {
/* Check each dimension */
for(u=0; u<space->extent.u.simple.rank; u++) {
-#ifdef QAK
-printf("%s: check 2.0\n",FUNC);
-printf("%s: curr->pnt[%u]=%d\n",FUNC,(unsigned)u,(int)curr->pnt[u]);
-printf("%s: space->select.offset[%u]=%d\n",FUNC,(unsigned)u,(int)space->select.offset[u]);
-printf("%s: space->extent.u.simple.size[%u]=%d\n",FUNC,(unsigned)u,(int)space->extent.u.simple.size[u]);
-#endif /* QAK */
/* Check if an offset has been defined */
/* Bounds check the selected point + offset against the extent */
if(((curr->pnt[u]+space->select.offset[u])>(hssize_t)space->extent.u.simple.size[u])
@@ -801,9 +726,6 @@ printf("%s: space->extent.u.simple.size[%u]=%d\n",FUNC,(unsigned)u,(int)space->e
curr=curr->next;
} /* end while */
-#ifdef QAK
-printf("%s: check 3.0\n",FUNC);
-#endif /* QAK */
FUNC_LEAVE (ret_value);
} /* end H5S_point_select_valid() */
@@ -1207,9 +1129,6 @@ herr_t H5S_select_elements (H5S_t *space, H5S_seloper_t op, size_t num_elem,
assert(coord);
assert(op==H5S_SELECT_SET || op==H5S_SELECT_APPEND || op==H5S_SELECT_PREPEND);
-#ifdef QAK
- printf("%s: check 1.0\n",FUNC);
-#endif /* QAK */
/* If we are setting a new selection, remove current selection first */
if(op==H5S_SELECT_SET) {
if(H5S_select_release(space)<0) {
@@ -1218,9 +1137,6 @@ herr_t H5S_select_elements (H5S_t *space, H5S_seloper_t op, size_t num_elem,
} /* end if */
} /* end if */
-#ifdef QAK
- printf("%s: check 2.0\n",FUNC);
-#endif /* QAK */
/* Allocate space for the point selection information if necessary */
if(space->select.type!=H5S_SEL_POINTS || space->select.sel_info.pnt_lst==NULL) {
if((space->select.sel_info.pnt_lst = H5MM_calloc(sizeof(H5S_pnt_list_t)))==NULL)
@@ -1228,9 +1144,6 @@ herr_t H5S_select_elements (H5S_t *space, H5S_seloper_t op, size_t num_elem,
"can't allocate element information");
} /* end if */
-#ifdef QAK
- printf("%s: check 3.0\n",FUNC);
-#endif /* QAK */
/* Add points to selection */
if(H5S_point_add(space,op,num_elem,coord)<0) {
HGOTO_ERROR(H5E_DATASPACE, H5E_CANTINSERT, FAIL,
@@ -1239,9 +1152,6 @@ herr_t H5S_select_elements (H5S_t *space, H5S_seloper_t op, size_t num_elem,
/* Set selection type */
space->select.type=H5S_SEL_POINTS;
-#ifdef QAK
- printf("%s: check 4.0\n",FUNC);
-#endif /* QAK */
done:
FUNC_LEAVE (ret_value);
diff --git a/src/H5Sprivate.h b/src/H5Sprivate.h
index bb3e594..18ef378 100644
--- a/src/H5Sprivate.h
+++ b/src/H5Sprivate.h
@@ -218,7 +218,7 @@ __DLL__ herr_t H5S_select_iterate(void *buf, hid_t type_id, H5S_t *space,
H5D_operator_t op, void *operator_data);
__DLL__ herr_t H5S_sel_iter_release(const H5S_t *space,
H5S_sel_iter_t *sel_iter);
-__DLL__ herr_t H5S_select_fill(const void *fill, size_t fill_size,
+__DLL__ herr_t H5S_select_fill(void *fill, size_t fill_size,
const H5S_t *space, void *buf);
/* Needed for internal use of selections in H5Fistore code */
diff --git a/src/H5Sselect.c b/src/H5Sselect.c
index 32bf3ff..6b9cd30 100644
--- a/src/H5Sselect.c
+++ b/src/H5Sselect.c
@@ -1565,7 +1565,7 @@ H5S_select_regular(const H5S_t *space)
REVISION LOG
--------------------------------------------------------------------------*/
herr_t
-H5S_select_fill(const void *_fill, size_t fill_size, const H5S_t *space, void *buf)
+H5S_select_fill(void *_fill, size_t fill_size, const H5S_t *space, void *buf)
{
void *fill=_fill; /* Alias for fill-value buffer */
herr_t ret_value=FAIL; /* return value */