mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-18 15:15:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r7490] Purpose:

Browse Source 
Update

Description:
    Removed the call to H5HL_peek

Platforms tested:
    Modi4 (paralle, Fortran)
    Sol (Fortran)
    Linux (C++, Fortran)
    Copper (Parallel, Fortran)

Misc. update:
This commit is contained in:
Bill Wendling 2003-09-18 14:27:45 -05:00
parent fec0297f86
commit 1440f2c2db
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/lheap.c
View File

@ -110,14 +110,24 @@ main(void)
goto error;
}
for (i=0; i<NOBJS; i++) {
H5HL_t *heap = NULL;
sprintf(buf, "%03d-", i);
for (j=4; j<i; j++) buf[j] = '0' + j%10;
if (j>4) buf[j] = '\0';
if (NULL==(s=H5HL_peek(f, H5P_DATASET_XFER_DEFAULT, heap_addr, obj[i]))) {
if (NULL == (heap = H5HL_protect(f, H5P_DATASET_XFER_DEFAULT, heap_addr))) {
H5_FAILED();
H5Eprint(H5E_DEFAULT, stdout);
goto error;
}
if (NULL == (s = H5HL_offset_into(f, heap, obj[i]))) {
H5_FAILED();
H5Eprint(H5E_DEFAULT, stdout);
goto error;
}
if (strcmp(s, buf)) {
H5_FAILED();
printf(" i=%d, heap offset=%lu\n", i, (unsigned long)(obj[i]));
@ -125,6 +135,12 @@ main(void)
printf(" ans: \"%s\"\n", buf);
goto error;
}
if (H5HL_unprotect(f, H5P_DATASET_XFER_DEFAULT, heap, heap_addr) < 0) {
H5_FAILED();
H5Eprint(H5E_DEFAULT, stdout);
goto error;
}
}
if (H5Fclose(file)<0) goto error;
PASSED();