[svn-r5840] Purpose:

    Code cleanup

Description:
    Created a new H5I function which combined the some of the functionality of
    H5I_get_type and H5I_object: H5I_object_verify.

    Using this new function in the library trims another ~200 lines of code off
    the library and makes the resulting binaries smaller and faster also.

Platforms tested:
    FreeBSD 4.6 (sleipnir)

1 files changed, 54 insertions, 127 deletions

diff --git a/src/H5Tconv.c b/src/H5Tconv.c
index beeb7bf..f15acf7 100644
--- a/src/H5Tconv.c
+++ b/src/H5Tconv.c
@@ -283,8 +283,8 @@ H5FL_BLK_DEFINE_STATIC(array_seq);
     case H5T_CONV_INIT:							      \
 	/* Sanity check and initialize statistics */			      \
 	cdata->need_bkg = H5T_BKG_NO;					      \
-	if (NULL==(st=H5I_object(src_id)) ||				      \
-	    NULL==(dt=H5I_object(dst_id))) {				      \
+	if (NULL==(st=H5I_object_verify(src_id,H5I_DATATYPE)) ||	      \
+                NULL==(dt=H5I_object_verify(dst_id,H5I_DATATYPE))) {	      \
 	    HRETURN_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL,		      \
 			  "unable to dereference data type object ID");	      \
 	}								      \
@@ -483,12 +483,9 @@ H5T_conv_order_opt(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata,
     switch (cdata->command) {
     case H5T_CONV_INIT:
 	/* Capability query */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	if (src->size != dst->size ||
 	    0 != src->u.atomic.offset ||
 	    0 != dst->u.atomic.offset ||
@@ -533,12 +530,9 @@ H5T_conv_order_opt(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata,
 
     case H5T_CONV_CONV:
 	/* The conversion */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 
         buf_stride = buf_stride ? buf_stride : src->size;
         switch (src->size) {
@@ -879,12 +873,9 @@ H5T_conv_order(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
     switch (cdata->command) {
     case H5T_CONV_INIT:
 	/* Capability query */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	if (src->size != dst->size ||
 	    0 != src->u.atomic.offset ||
 	    0 != dst->u.atomic.offset ||
@@ -924,12 +915,9 @@ H5T_conv_order(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 
     case H5T_CONV_CONV:
 	/* The conversion */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 
         buf_stride = buf_stride ? buf_stride : src->size;
         md = src->size / 2;
@@ -991,12 +979,9 @@ H5T_conv_b_b(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
     switch(cdata->command) {
     case H5T_CONV_INIT:
 	/* Capability query */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	if (H5T_ORDER_LE!=src->u.atomic.order &&
 	    H5T_ORDER_BE!=src->u.atomic.order) {
 	    HRETURN_ERROR (H5E_DATATYPE, H5E_UNSUPPORTED, FAIL,
@@ -1015,12 +1000,9 @@ H5T_conv_b_b(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 
     case H5T_CONV_CONV:
 	/* Get the data types */
-	if (H5I_DATATYPE!=H5I_get_type (src_id) ||
-	    NULL==(src=H5I_object (src_id)) ||
-	    H5I_DATATYPE!=H5I_get_type (dst_id) ||
-	    NULL==(dst=H5I_object (dst_id))) {
+	if (NULL==(src=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL==(dst=H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 
 	/*
 	 * Do we process the values from beginning to end or vice versa? Also,
@@ -1368,12 +1350,9 @@ H5T_conv_struct(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 	 * otherwise initialize the `priv' field of `cdata' with information
 	 * that remains (almost) constant for this conversion path.
 	 */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	assert (H5T_COMPOUND==src->type);
 	assert (H5T_COMPOUND==dst->type);
 
@@ -1398,12 +1377,9 @@ H5T_conv_struct(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 	/*
 	 * Conversion.
 	 */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	assert (priv);
 	assert (bkg && cdata->need_bkg);
 
@@ -1613,12 +1589,9 @@ H5T_conv_struct_opt(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata,
 	 * otherwise initialize the `priv' field of `cdata' with information
 	 * that remains (almost) constant for this conversion path.
 	 */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	assert (H5T_COMPOUND==src->type);
 	assert (H5T_COMPOUND==dst->type);
 
@@ -1687,12 +1660,9 @@ H5T_conv_struct_opt(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata,
 	/*
 	 * Conversion.
 	 */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 
 	/* Update cached data if necessary */
 	if (cdata->recalc && H5T_conv_struct_init (src, dst, cdata)<0) {
@@ -2001,12 +1971,9 @@ H5T_conv_enum(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 	 * the `priv' field of `cdata' with information about the underlying
 	 * integer conversion.
 	 */
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	assert (H5T_ENUM==src->type);
 	assert (H5T_ENUM==dst->type);
 	if (H5T_conv_enum_init(src, dst, cdata)<0) {
@@ -2031,12 +1998,9 @@ H5T_conv_enum(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 	break;
 
     case H5T_CONV_CONV:
-	if (H5I_DATATYPE != H5I_get_type(src_id) ||
-	    NULL == (src = H5I_object(src_id)) ||
-	    H5I_DATATYPE != H5I_get_type(dst_id) ||
-	    NULL == (dst = H5I_object(dst_id))) {
+	if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	assert (H5T_ENUM==src->type);
 	assert (H5T_ENUM==dst->type);
 
@@ -2205,12 +2169,9 @@ H5T_conv_vlen(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
              * information that remains (almost) constant for this
              * conversion path.
              */
-            if (H5I_DATATYPE != H5I_get_type(src_id) ||
-                    NULL == (src = H5I_object(src_id)) ||
-                    H5I_DATATYPE != H5I_get_type(dst_id) ||
-                    NULL == (dst = H5I_object(dst_id))) {
+            if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                    NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
                 HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-            }
             assert (H5T_VLEN==src->type);
             assert (H5T_VLEN==dst->type);
 
@@ -2227,12 +2188,9 @@ H5T_conv_vlen(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
             /*
              * Conversion.
              */
-            if (H5I_DATATYPE != H5I_get_type(src_id) ||
-                    NULL == (src = H5I_object(src_id)) ||
-                    H5I_DATATYPE != H5I_get_type(dst_id) ||
-                    NULL == (dst = H5I_object(dst_id))) {
+            if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                    NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
                 HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-            }
 
             /*
              * Do we process the values from beginning to end or vice
@@ -2492,12 +2450,9 @@ H5T_conv_array(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
              * information that remains (almost) constant for this
              * conversion path.
              */
-            if (H5I_DATATYPE != H5I_get_type(src_id) ||
-                NULL == (src = H5I_object(src_id)) ||
-                H5I_DATATYPE != H5I_get_type(dst_id) ||
-                NULL == (dst = H5I_object(dst_id))) {
+            if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                    NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
                 HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-            }
             assert (H5T_ARRAY==src->type);
             assert (H5T_ARRAY==dst->type);
 
@@ -2526,12 +2481,9 @@ H5T_conv_array(hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
             /*
              * Conversion.
              */
-            if (H5I_DATATYPE != H5I_get_type(src_id) ||
-                NULL == (src = H5I_object(src_id)) ||
-                H5I_DATATYPE != H5I_get_type(dst_id) ||
-                NULL == (dst = H5I_object(dst_id))) {
+            if (NULL == (src = H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                    NULL == (dst = H5I_object_verify(dst_id,H5I_DATATYPE)))
                 HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-            }
 
             /*
              * Do we process the values from beginning to end or vice
@@ -2651,12 +2603,9 @@ H5T_conv_i_i (hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 
     switch (cdata->command) {
     case H5T_CONV_INIT:
-	if (H5I_DATATYPE!=H5I_get_type (src_id) ||
-	    NULL==(src=H5I_object (src_id)) ||
-	    H5I_DATATYPE!=H5I_get_type (dst_id) ||
-	    NULL==(dst=H5I_object (dst_id))) {
+	if (NULL==(src=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL==(dst=H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	if (H5T_ORDER_LE!=src->u.atomic.order &&
 	    H5T_ORDER_BE!=src->u.atomic.order) {
 	    HRETURN_ERROR (H5E_DATATYPE, H5E_UNSUPPORTED, FAIL,
@@ -2679,12 +2628,9 @@ H5T_conv_i_i (hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 
     case H5T_CONV_CONV:
 	/* Get the data types */
-	if (H5I_DATATYPE!=H5I_get_type (src_id) ||
-	    NULL==(src=H5I_object (src_id)) ||
-	    H5I_DATATYPE!=H5I_get_type (dst_id) ||
-	    NULL==(dst=H5I_object (dst_id))) {
+	if (NULL==(src=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL==(dst=H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 
 	/*
 	 * Do we process the values from beginning to end or vice versa? Also,
@@ -3000,12 +2946,9 @@ H5T_conv_f_f (hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 
     switch (cdata->command) {
     case H5T_CONV_INIT:
-	if (H5I_DATATYPE!=H5I_get_type (src_id) ||
-	    NULL==(src_p=H5I_object (src_id)) ||
-	    H5I_DATATYPE!=H5I_get_type (dst_id) ||
-	    NULL==(dst_p=H5I_object (dst_id))) {
+	if (NULL==(src_p=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL==(dst_p=H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	src = src_p->u.atomic;
 	dst = dst_p->u.atomic;
 	if (H5T_ORDER_LE!=src.order &&
@@ -3035,12 +2978,9 @@ H5T_conv_f_f (hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 
     case H5T_CONV_CONV:
 	/* Get the data types */
-	if (H5I_DATATYPE!=H5I_get_type (src_id) ||
-	    NULL==(src_p=H5I_object (src_id)) ||
-	    H5I_DATATYPE!=H5I_get_type (dst_id) ||
-	    NULL==(dst_p=H5I_object (dst_id))) {
+	if (NULL==(src_p=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                NULL==(dst_p=H5I_object_verify(dst_id,H5I_DATATYPE)))
 	    HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-	}
 	src = src_p->u.atomic;
 	dst = dst_p->u.atomic;
 	expo_max = ((hssize_t)1 << dst.u.f.esize) - 1;
@@ -3428,12 +3368,9 @@ H5T_conv_s_s (hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 
     switch (cdata->command) {
         case H5T_CONV_INIT:
-            if (H5I_DATATYPE!=H5I_get_type(src_id) ||
-                NULL==(src=H5I_object(src_id)) ||
-                H5I_DATATYPE!=H5I_get_type(dst_id) ||
-                NULL==(dst=H5I_object(dst_id))) {
+            if (NULL==(src=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                    NULL==(dst=H5I_object_verify(dst_id,H5I_DATATYPE)))
                 HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-            }
             if (8*src->size != src->u.atomic.prec ||
                 8*dst->size != dst->u.atomic.prec) {
                 HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "bad precision");
@@ -3458,12 +3395,9 @@ H5T_conv_s_s (hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata, hsize_t nelmts,
 
         case H5T_CONV_CONV:
             /* Get the data types */
-            if (H5I_DATATYPE!=H5I_get_type(src_id) ||
-                NULL==(src=H5I_object(src_id)) ||
-                H5I_DATATYPE!=H5I_get_type(dst_id) ||
-                NULL==(dst=H5I_object(dst_id))) {
+            if (NULL==(src=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                    NULL==(dst=H5I_object_verify(dst_id,H5I_DATATYPE)))
                 HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-            }
 
             /*
              * Do we process the values from beginning to end or vice versa? Also,
@@ -6486,11 +6420,9 @@ H5T_conv_float_double (hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata,
     switch (cdata->command) {
         case H5T_CONV_INIT:
             cdata->need_bkg = H5T_BKG_NO;
-            if (NULL==(st=H5I_object(src_id)) ||
-                NULL==(dt=H5I_object(dst_id))) {
-                HRETURN_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL,
-                      "unable to dereference data type object ID");
-            }
+            if (NULL==(st=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                    NULL==(dt=H5I_object_verify(dst_id,H5I_DATATYPE)))
+                HRETURN_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "unable to dereference data type object ID");
             if (st->size!=sizeof(float) || dt->size!=sizeof(double)) {
                 HRETURN_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL,
                       "disagreement about data type size");
@@ -6609,11 +6541,9 @@ H5T_conv_double_float (hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata,
     switch (cdata->command) {
         case H5T_CONV_INIT:
             cdata->need_bkg = H5T_BKG_NO;
-            if (NULL==(st=H5I_object(src_id)) ||
-                NULL==(dt=H5I_object(dst_id))) {
-                HRETURN_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL,
-                      "unable to dereference data type object ID");
-            }
+            if (NULL==(st=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                    NULL==(dt=H5I_object_verify(dst_id,H5I_DATATYPE)))
+                HRETURN_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "unable to dereference data type object ID");
             if (st->size!=sizeof(double) || dt->size!=sizeof(float)) {
                 HRETURN_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL,
                       "disagreement about data type size");
@@ -6750,12 +6680,9 @@ H5T_conv_i32le_f64le (hid_t src_id, hid_t dst_id, H5T_cdata_t *cdata,
 
         case H5T_CONV_CONV:
             /* The conversion */
-            if (H5I_DATATYPE!=H5I_get_type (src_id) ||
-                    NULL==(src=H5I_object (src_id)) ||
-                    H5I_DATATYPE!=H5I_get_type (dst_id) ||
-                    NULL==H5I_object (dst_id)) {
+            if (NULL==(src=H5I_object_verify(src_id,H5I_DATATYPE)) ||
+                    NULL==H5I_object_verify(dst_id,H5I_DATATYPE))
                 HRETURN_ERROR (H5E_ARGS, H5E_BADTYPE, FAIL, "not a data type");
-            }
             
             s = (uint8_t*)buf + (buf_stride?buf_stride:4)*(nelmts-1);
             d = (uint8_t*)buf + (buf_stride?buf_stride:8)*(nelmts-1);