[H5r-commits] r38 - src

[noreply at r-forge.r-project.org]

Author: extemporaneousb
Date: 2010-11-08 18:39:23 +0100 (Mon, 08 Nov 2010)
New Revision: 38

Modified:
   src/h5_wrap.c
Log:
Fixed amazing typo which caused failures on 32-bit platforms.

Modified: src/h5_wrap.c
===================================================================
--- src/h5_wrap.c	2010-08-23 22:10:25 UTC (rev 37)
+++ src/h5_wrap.c	2010-11-08 17:39:23 UTC (rev 38)
@@ -105,7 +105,7 @@
     int ndims = _h5R_get_ndims(h5_obj);
     hid_t space = _h5R_get_space(h5_obj);
     
-    hsize_t* dims = (hsize_t* ) Calloc(ndims, hsize_t*);
+    hsize_t* dims = (hsize_t* ) Calloc(ndims, hsize_t);
     H5Sget_simple_extent_dims(space, dims, NULL);
     
     for (i = 0; i < ndims; i++)
@@ -122,7 +122,7 @@
     int ndims = _h5R_get_ndims(h5_obj);
     hid_t space = _h5R_get_space(h5_obj);
 
-    hsize_t* dims = (hsize_t* ) Calloc(ndims, hsize_t*);
+    hsize_t* dims = (hsize_t* ) Calloc(ndims, hsize_t);
     H5Sget_simple_extent_dims(space, dims, NULL);
     
     PROTECT(res = allocVector(INTSXP, ndims));