diff options
| author | Raymond Lu <songyulu@hdfgroup.org> | 2001-10-25 19:29:37 (GMT) |
|---|---|---|
| committer | Raymond Lu <songyulu@hdfgroup.org> | 2001-10-25 19:29:37 (GMT) |
| commit | b3afaccfe51320c3cb38a2338d17ba8f79c15073 (patch) | |
| tree | d792e019c45166e605db14cad8911961fa919632 /src/H5FDcore.c | |
| parent | 46af16f87be6a9977e14a99609063a82c81eba45 (diff) | |
| download | hdf5-b3afaccfe51320c3cb38a2338d17ba8f79c15073.zip hdf5-b3afaccfe51320c3cb38a2338d17ba8f79c15073.tar.gz hdf5-b3afaccfe51320c3cb38a2338d17ba8f79c15073.tar.bz2 | |
[svn-r4572]
Purpose:
Followup file access property list changes.
Platforms tested:
IRIX64, SunOS 5.7, FreeBSD.
Diffstat (limited to 'src/H5FDcore.c')
| -rw-r--r-- | src/H5FDcore.c | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/src/H5FDcore.c b/src/H5FDcore.c index 2631d43..6072d38 100644 --- a/src/H5FDcore.c +++ b/src/H5FDcore.c @@ -168,6 +168,10 @@ H5FD_core_init(void) * Added the BACKING_STORE argument. If set then the entire file * contents are flushed to a file with the same name as this * core file. + * + * Raymond Lu, 2001-10-25 + * Changed the file access list to the new generic list. + * *------------------------------------------------------------------------- */ herr_t @@ -179,8 +183,12 @@ H5Pset_fapl_core(hid_t fapl_id, size_t increment, hbool_t backing_store) FUNC_ENTER(H5FD_set_fapl_core, FAIL); H5TRACE3("e","izb",fapl_id,increment,backing_store); - if (H5P_FILE_ACCESS!=H5Pget_class(fapl_id)) - HRETURN_ERROR(H5E_PLIST, H5E_BADTYPE, FAIL, "not a fapl"); + /* Check argument */ + if(H5I_GENPROP_LST != H5I_get_type(fapl_id) || + TRUE != H5Pisa_class(fapl_id, H5P_FILE_ACCESS)) + HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, + "not a file access property list"); + fa.increment = increment; fa.backing_store = backing_store; @@ -205,6 +213,11 @@ H5Pset_fapl_core(hid_t fapl_id, size_t increment, hbool_t backing_store) * Modifications: * Robb Matzke, 1999-10-19 * Added the BACKING_STORE argument. + * + * Raymond Lu + * 2001-10-25 + * Changed file access list to the new generic property list. + * *------------------------------------------------------------------------- */ herr_t @@ -216,8 +229,10 @@ H5Pget_fapl_core(hid_t fapl_id, size_t *increment/*out*/, FUNC_ENTER(H5Pget_fapl_core, FAIL); H5TRACE3("e","ixx",fapl_id,increment,backing_store); - if (H5P_FILE_ACCESS!=H5Pget_class(fapl_id)) - HRETURN_ERROR(H5E_PLIST, H5E_BADTYPE, FAIL, "not a fapl"); + if(H5I_GENPROP_LST != H5I_get_type(fapl_id) || + TRUE != H5Pisa_class(fapl_id, H5P_FILE_ACCESS)) + HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, + "not a file access property list"); if (H5FD_CORE!=H5P_get_driver(fapl_id)) HRETURN_ERROR(H5E_PLIST, H5E_BADVALUE, FAIL, "incorrect VFL driver"); if (NULL==(fa=H5Pget_driver_info(fapl_id))) |