[svn:parrot] r18180 - trunk/src/io

[smash]

Author: smash
Date: Fri Apr 13 09:44:50 2007
New Revision: 18180

Modified:
   trunk/src/io/io.c

Log:
[src/io]
 * prevent segmentation fault when calling poll on null PMC (RT#41894 for 
details)


Modified: trunk/src/io/io.c
==============================================================================
--- trunk/src/io/io.c   (original)
+++ trunk/src/io/io.c   Fri Apr 13 09:44:50 2007
@@ -1325,6 +1325,9 @@
 INTVAL
 PIO_poll(Interp *interp, PMC *pmc, INTVAL which, INTVAL sec, INTVAL usec)
 {
+    if (pmc == PMCNULL) {
+        real_exception(interp, NULL, E_ValueError, "Can't poll NULL pmc");
+    }
     ParrotIOLayer * const l = PMC_struct_val(pmc);
     ParrotIO * const io = PMC_data0(pmc);
     return PIO_poll_down(interp, l, io, which, sec, usec);