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/H5FDgass.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/H5FDgass.c')
| -rw-r--r-- | src/H5FDgass.c | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/src/H5FDgass.c b/src/H5FDgass.c index aeaf60e..8cd000a 100644 --- a/src/H5FDgass.c +++ b/src/H5FDgass.c @@ -218,6 +218,9 @@ H5FD_gass_init(void) * * Modifications: * + * Raymond Lu, 2001-10-25 + * Changed the file access list to the new generic property list. + * *------------------------------------------------------------------------- */ herr_t @@ -229,8 +232,10 @@ H5Pset_fapl_gass(hid_t fapl_id, GASS_Info info) FUNC_ENTER(H5Pset_fapl_gass, FAIL); /* Check arguments */ - 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 property list"); + #ifdef LATER #warning "We need to verify that INFO contain sensible information." #endif @@ -264,6 +269,9 @@ H5Pset_fapl_gass(hid_t fapl_id, GASS_Info info) * * Modifications: * + * Raymond Lu, 2001-10-25 + * Changed the file access list to the new generic property list. + * *------------------------------------------------------------------------- */ herr_t @@ -274,8 +282,10 @@ H5Pget_fapl_gass(hid_t fapl_id, GASS_Info *info/*out*/) FUNC_ENTER(H5Pget_fapl_gass, FAIL); H5TRACE2("e","ix",fapl_id,info); - 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_GASS!=H5P_get_driver(fapl_id)) HRETURN_ERROR(H5E_PLIST, H5E_BADVALUE, FAIL, "incorrect VFL driver"); if (NULL==(fa=H5Pget_driver_info(fapl_id))) |