From 2e4c7f1107c5d7a72c34b1f19d1a9ce5b08aa43b Mon Sep 17 00:00:00 2001
From: Quincey Koziol <koziol@hdfgroup.org>
Date: Fri, 15 Aug 2003 15:07:18 -0500
Subject: [svn-r7373] Purpose:     Code cleanup

Description:
    Cleanup H5Pclose code and also switch a few internal users of H5Pclose
to use H5I_dec_ref instead.

Platforms tested:
    FreeBSD 4.8 (sleipnir)
    too small for h5committest
---
 src/H5AC.c       | 6 +++---
 src/H5D.c        | 2 +-
 src/H5FPclient.c | 4 ++--
 src/H5P.c        | 9 ++-------
 4 files changed, 8 insertions(+), 13 deletions(-)

diff --git a/src/H5AC.c b/src/H5AC.c
index cb3aa79..605808f 100644
--- a/src/H5AC.c
+++ b/src/H5AC.c
@@ -308,9 +308,9 @@ H5AC_term_interface(void)
             n = 1; /* H5I */
 
             /* Close H5AC dxpl */
-            if (H5Pclose(H5AC_dxpl_id) < 0 ||
-                    H5Pclose(H5AC_noblock_dxpl_id) < 0 ||
-                    H5Pclose(H5AC_ind_dxpl_id) < 0)
+            if (H5I_dec_ref(H5AC_dxpl_id) < 0 ||
+                    H5I_dec_ref(H5AC_noblock_dxpl_id) < 0 ||
+                    H5I_dec_ref(H5AC_ind_dxpl_id) < 0)
                 H5E_clear(NULL); /*ignore error*/
             else {
                 /* Reset static IDs */
diff --git a/src/H5D.c b/src/H5D.c
index 92b6f84..827d0a3 100644
--- a/src/H5D.c
+++ b/src/H5D.c
@@ -1181,7 +1181,7 @@ H5Dget_create_plist(hid_t dset_id)
 done:
     if(ret_value<0) {
         if(new_dcpl_id>0)
-            (void)H5Pclose(new_dcpl_id);
+            (void)H5I_dec_ref(new_dcpl_id);
     } /* end if */
 
     FUNC_LEAVE_API(ret_value)
diff --git a/src/H5FPclient.c b/src/H5FPclient.c
index d5bcfdb..df29015 100644
--- a/src/H5FPclient.c
+++ b/src/H5FPclient.c
@@ -870,7 +870,7 @@ H5FP_dump_to_file(H5FD_t *file, hid_t dxpl_id)
 
         if (H5FP_read_metadata(&mdata, (int)sap_read.md_size,
                                (int)H5FP_sap_rank) != FAIL) {
-            if (H5FD_fphdf5_write_real(file, dxpl_id, sap_read.addr,
+            if (H5FD_fphdf5_write_real(file, new_dxpl_id, sap_read.addr,
                                        (int)sap_read.md_size, mdata) == FAIL) {
                 HDfree(mdata);
                 HGOTO_ERROR(H5E_FPHDF5, H5E_WRITEERROR, FAIL, "can't write metadata to file");
@@ -884,7 +884,7 @@ H5FP_dump_to_file(H5FD_t *file, hid_t dxpl_id)
 
 done:
     if (new_dxpl_id > 0)
-        H5Pclose(new_dxpl_id);
+        H5I_dec_ref(new_dxpl_id);
 
     FUNC_LEAVE_NOAPI(ret_value);
 }
diff --git a/src/H5P.c b/src/H5P.c
index 729dc16..bd09b6a 100644
--- a/src/H5P.c
+++ b/src/H5P.c
@@ -5164,7 +5164,6 @@ done:
 herr_t
 H5Pclose(hid_t plist_id)
 {
-    H5P_genplist_t	*plist;    /* Property list created */
     herr_t ret_value=SUCCEED;      /* return value */
 
     FUNC_ENTER_API(H5Pclose, FAIL);
@@ -5174,17 +5173,13 @@ H5Pclose(hid_t plist_id)
         HGOTO_DONE(SUCCEED);
 
     /* Check arguments. */
-    if (NULL == (plist = H5I_object_verify(plist_id, H5I_GENPROP_LST)))
+    if (H5I_GENPROP_LST != H5I_get_type(plist_id))
         HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a property list");
 
     /* Close the property list */
-    if (H5P_close(plist) < 0)
+    if (H5I_dec_ref(plist_id) < 0)
         HGOTO_ERROR(H5E_PLIST, H5E_CANTFREE, FAIL, "can't close");
 
-    /* Remove the property list from the ID manager now */
-    if (NULL == H5I_remove(plist_id))
-        HGOTO_ERROR(H5E_ARGS, H5E_CANTDELETE, FAIL, "can't delete property list");
-
 done:
     FUNC_LEAVE_API(ret_value);
 }   /* H5Pclose() */
-- 
cgit v0.12