From ccea4bb7b5644666d0cb70b4d5c35a12fc133d59 Mon Sep 17 00:00:00 2001
From: Quincey Koziol <koziol@hdfgroup.org>
Date: Thu, 7 Jun 2007 22:04:42 -0500
Subject: [svn-r13841] Description:     Add a little more information to the
 debugging routine, for VL datatypes.

    Minor code cleanups

Tested on:
    Mac OS X/32 10.4.9 (duty)
    Too minor to require h5committest
---
 src/H5T.c     | 34 ++++++++++++++++++++++++++++++----
 src/H5Tconv.c |  4 ++--
 2 files changed, 32 insertions(+), 6 deletions(-)

diff --git a/src/H5T.c b/src/H5T.c
index f07f23c..b4bfe2d 100644
--- a/src/H5T.c
+++ b/src/H5T.c
@@ -5176,6 +5176,12 @@ H5T_debug(const H5T_t *dt, FILE *stream)
         case H5T_ENUM:
             s1 = "enum";
             break;
+        case H5T_VLEN:
+            if(H5T_IS_VL_STRING(dt->shared))
+                s1 = "str";
+            else
+                s1 = "vlen";
+            break;
         default:
             s1 = "";
             break;
@@ -5297,11 +5303,31 @@ H5T_debug(const H5T_t *dt, FILE *stream)
 	fprintf(stream, "\n");
 
     } else if (H5T_VLEN==dt->shared->type) {
-	/* Variable data type */
-	fprintf(stream, " VLEN ");
-        H5T_debug(dt->shared->parent, stream);
-	fprintf(stream, "\n");
+        switch(dt->shared->u.vlen.loc) {
+            case H5T_LOC_MEMORY:
+                fprintf(stream, ", loc=memory");
+                break;
+
+            case H5T_LOC_DISK:
+                fprintf(stream, ", loc=disk");
+                break;
 
+            default:
+                fprintf(stream, ", loc=UNKNOWN");
+                break;
+        } /* end switch */
+
+        if(H5T_IS_VL_STRING(dt->shared)) {
+            /* Variable length string datatype */
+            fprintf(stream, ", variable-length");
+        } /* end if */
+        else {
+            /* Variable length sequence datatype */
+            fprintf(stream, " VLEN ");
+            H5T_debug(dt->shared->parent, stream);
+            fprintf(stream, "\n");
+        } /* end else */
+ 
     } else if (H5T_ENUM==dt->shared->type) {
 	/* Enumeration data type */
 	fprintf(stream, " ");
diff --git a/src/H5Tconv.c b/src/H5Tconv.c
index f2b410e..a0ca3da 100644
--- a/src/H5Tconv.c
+++ b/src/H5Tconv.c
@@ -2851,11 +2851,11 @@ H5T_conv_vlen(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, size_t nelmts,
 
             /* Set flags to indicate we are writing to or reading from the file */
             if(dst->shared->u.vlen.f!=NULL)
-                write_to_file=TRUE;
+                write_to_file = TRUE;
 
             /* Set the flag for nested VL case */
             if(write_to_file && parent_is_vlen && bkg!=NULL)
-                nested=1;
+                nested = TRUE;
 
             /* The outer loop of the type conversion macro, controlling which */
             /* direction the buffer is walked */
-- 
cgit v0.12