Revision: 438
          http://rpy.svn.sourceforge.net/rpy/?rev=438&view=rev
Author:   lgautier
Date:     2008-03-15 04:29:00 -0700 (Sat, 15 Mar 2008)

Log Message:
-----------
Fix error handling when instanciatig SexpVector with unknown type

Modified Paths:
--------------
    trunk/sandbox/rpy_nextgen/rpy/rinterface/rinterface.c

Modified: trunk/sandbox/rpy_nextgen/rpy/rinterface/rinterface.c
===================================================================
--- trunk/sandbox/rpy_nextgen/rpy/rinterface/rinterface.c       2008-03-15 
11:06:45 UTC (rev 437)
+++ trunk/sandbox/rpy_nextgen/rpy/rinterface/rinterface.c       2008-03-15 
11:29:00 UTC (rev 438)
@@ -648,6 +648,8 @@
                        &seq, &rType))
     return NULL;
   const SEXP sexp = newSEXP(seq, rType);
+  if (! sexp)
+    return NULL;
   PyObject *res = (PyObject *)newSexpObject(sexp);
   return res;
 }
@@ -1160,7 +1162,6 @@
     }
     //FIXME: add complex 
   default:
-    UNPROTECT(1);
     PyErr_Format(PyExc_ValueError, "cannot handle type %d", rType);
     sexp = NULL;
   }


This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.

-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
rpy-list mailing list
rpy-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rpy-list

Reply via email to