[H5r-commits] r81 - / src

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

Author: mjhsieh
Date: 2012-07-11 03:20:46 +0200 (Wed, 11 Jul 2012)
New Revision: 81

Added:
   cleanup.win
Modified:
   cleanup
   src/h5_wrap.c
Log:
Warning elimination
Windows cleanup script


Modified: cleanup
===================================================================
--- cleanup	2012-07-10 23:54:50 UTC (rev 80)
+++ cleanup	2012-07-11 01:20:46 UTC (rev 81)
@@ -1,3 +1,4 @@
 #!/bin/sh
 rm -f src/h5_wrap.o src/h5_debug.o \
-      src/h5r.dll   src/h5r.so
+      src/h5r.so src/h5r.dylib
+rm -rf src-*

Added: cleanup.win
===================================================================
--- cleanup.win	                        (rev 0)
+++ cleanup.win	2012-07-11 01:20:46 UTC (rev 81)
@@ -0,0 +1,4 @@
+#!/bin/sh
+rm -f src/h5_wrap.o src/h5_debug.o \
+      src/h5r.dll
+rm -rf src-*


Property changes on: cleanup.win
___________________________________________________________________
Added: svn:executable
   + *

Modified: src/h5_wrap.c
===================================================================
--- src/h5_wrap.c	2012-07-10 23:54:50 UTC (rev 80)
+++ src/h5_wrap.c	2012-07-11 01:20:46 UTC (rev 81)
@@ -167,7 +167,7 @@
 }
 
 int _h5R_is_vlen (SEXP h5_obj) {
-    hid_t dtype;
+    hid_t dtype = -1;
 
     switch (H5Iget_type(HID(h5_obj))) {
     case H5I_DATASET:
@@ -209,7 +209,7 @@
     Rprintf("size:%d\n", size);
     Rprintf("nmembers:%d\n", nmembers);
     
-    hid_t space = H5Dget_space(HID(h5_obj));
+    /*hid_t space = H5Dget_space(HID(h5_obj));*/
     hid_t memtype = H5Tcreate(H5T_COMPOUND, nmembers*sizeof(int));
     for (int i = 0; i < nmembers; i++) {
 	H5Tinsert(memtype,