[svn-r5991] Purpose:

New feature

Description:
    If backing store for a core VFD file is turned on, remove the file created.

Platforms tested:
    FreeBSD 4.6 (sleipnir) w and w/o parallel
    Linux 2.2.x (eirene) w/FORTRAN & C++
    Solaris 2.7 (arabica) w/FORTRAN
    IRIX64 6.5 (modi4) w/FORTRAN & parallel
This commit is contained in:
Quincey Koziol 2002-10-14 14:48:01 -05:00
parent cc1502af9c
commit 4629204d86

View File

@ -149,7 +149,14 @@ h5_cleanup(const char *base_name[], hid_t fapl)
HDremove(temp);
}
} else if (driver == H5FD_CORE) {
/*void*/
hbool_t backing; /* Whether the core file has backing store */
H5Pget_fapl_core(fapl,NULL,&backing);
/* If the file was stored to disk with bacing store, remove it */
if(backing)
HDremove(filename);
} else if (driver == H5FD_MULTI) {
H5FD_mem_t mt;
assert(strlen(multi_letters)==H5FD_MEM_NTYPES);