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

[petdance]

Author: petdance
Date: Wed May 30 00:08:01 2007
New Revision: 18682

Modified:
   trunk/src/io/io.c

Log:
consted and localized some minor locals

Modified: trunk/src/io/io.c
==============================================================================
--- trunk/src/io/io.c   (original)
+++ trunk/src/io/io.c   Wed May 30 00:08:01 2007
@@ -1,5 +1,5 @@
 /*
-Copyright (C) 2001-2003, The Perl Foundation.
+Copyright (C) 2001-2007, The Perl Foundation.
 $Id$
 
 =head1 NAME
@@ -232,8 +232,9 @@
     }
 #endif
     if ((io->stack->flags & PIO_L_LAYER_COPIED)) {
-        ParrotIOLayer *p, *down;
+        ParrotIOLayer *p;
         for (p = io->stack; p;) {
+            ParrotIOLayer *down;
             /* if top got copied, all have to be malloced */
             assert(p->flags & PIO_L_LAYER_COPIED);
             down = p->down;
@@ -318,7 +319,7 @@
 void
 PIO_finish(Interp *interp)
 {
-    ParrotIOLayer *layer, *down;
+    ParrotIOLayer *layer;
 #if 0
     PMC *pmc;
     ParrotIO *io;
@@ -342,7 +343,7 @@
      * TODO free IO of std-handles
      */
     for (layer = interp->piodata->default_stack; layer;) {
-        down = layer->down;
+        ParrotIOLayer * const down = layer->down;
         if (layer->api->Delete)
             (*layer->api->Delete) (layer);
         layer = down;
@@ -1131,7 +1132,7 @@
 PIOHANDLE
 PIO_getfd(Interp *interp, PMC *pmc)
 {
-    ParrotIO *io = (ParrotIO *)PMC_data0(pmc);
+    ParrotIO * const io = (ParrotIO *)PMC_data0(pmc);
 
     UNUSED(interp);