perl.cvs.parrot
[Top] [All Lists]

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

Subject: [svn:parrot] r19743 - trunk/src/io
From:
Date: Mon, 9 Jul 2007 18:18:09 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: petdance
Date: Mon Jul  9 18:18:08 2007
New Revision: 19743

Modified:
   trunk/src/io/io.c

Log:
splint found a little bug

Modified: trunk/src/io/io.c
==============================================================================
--- trunk/src/io/io.c   (original)
+++ trunk/src/io/io.c   Mon Jul  9 18:18:08 2007
@@ -360,7 +360,7 @@
     for (i = 0, p = interp->piodata->default_stack; p; p = p->down) {
         bottom = p;
         if (fill) {
-            assert(i < n);
+            assert(i < n); /* XXX n can be undefined at this point. */
             pio_registered_layers[i++] = p;
             pio_registered_layers[i] = NULL;
         }

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r19743 - trunk/src/io, petdance <=