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

[jonathan]

Author: jonathan
Date: Sat Apr 14 05:43:22 2007
New Revision: 18187

Modified:
   trunk/src/io/io.c

Log:
Make io.c C89 compliant, to fix the build.

Modified: trunk/src/io/io.c
==============================================================================
--- trunk/src/io/io.c   (original)
+++ trunk/src/io/io.c   Sat Apr 14 05:43:22 2007
@@ -1325,11 +1325,15 @@
 INTVAL
 PIO_poll(Interp *interp, PMC *pmc, INTVAL which, INTVAL sec, INTVAL usec)
 {
+    ParrotIOLayer *l;
+    ParrotIO *io;
+
     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);
+
+    l = PMC_struct_val(pmc);
+    io = PMC_data0(pmc);
     return PIO_poll_down(interp, l, io, which, sec, usec);
 }