hds-v5: Fix leakage of HDF5 datatype identifiers

Author: dsberry

dat1NewPrim.c

@@ -175,6 +175,7 @@ void dat1NewPrim( hid_t group_id, int ndim, const hsize_t h5dims[], hid_t h5type
            );
 
  CLEANUP:
+  if ( cparms > 0 ) H5Pclose( cparms );
   if (*status != SAI__OK) {
     /* tidy */
     if (*dataspace_id > 0) {

dat1Type.c

@@ -110,6 +110,7 @@ dat1Type( const HDSLoc *locator, int * status ) {
            );
 
   thetype = dau1HdsType( h5type, status );
+  if( h5type > 0 ) H5Tclose( h5type );
 
  CLEANUP:
   return thetype;

datAlter.c

@@ -385,9 +385,7 @@ datAlter( HDSLoc *locator, int ndim, const hdsdim dims[], int *status) {
 
  CLEANUP:
   datAnnul(&parloc, status);
-  if (*status != SAI__OK) {
-    if (h5type > 0) H5Tclose( h5type );
-    if (temploc) temploc = dat1FreeLoc( temploc, status );
-  }
+  if (h5type > 0) H5Tclose( h5type );
+  if (temploc) temploc = dat1FreeLoc( temploc, status );
   return *status;
 }

datGet.c

@@ -257,6 +257,8 @@ datGet(const HDSLoc *locator, const char *type_str, int ndim,
         tmpvalues = MEM_MALLOC( nelem * inlen );
         H5Tclose( h5type );
         h5type = tmptype;
+     } else {
+        if( tmptype > 0 ) H5Tclose( tmptype );
      }
   }