[ViewVC] Diff of: cvs/Coro/Coro/State.xs

Comparing Coro/Coro/State.xs (file contents):
Revision 1.184 by root, Thu Oct 4 13:45:56 2007 UTC vs.
Revision 1.187 by root, Fri Oct 5 20:31:18 2007 UTC

           # include "state.h"
           #undef VAR
         }
       rss += sizeof (coro->curstackinfo);
-      rss += sizeof (struct xpvav) + (1 + AvFILL (coro->curstackinfo->si_stack)) * sizeof (SV *);
+      rss += sizeof (SV) + sizeof (struct xpvav) + (1 + AvFILL (coro->curstackinfo->si_stack)) * sizeof (SV *);
       rss += (coro->curstackinfo->si_cxmax + 1) * sizeof (PERL_CONTEXT);
-      rss += sizeof (struct xpvav) + (1 + AvFILL (coro->curstack)) * sizeof (SV *);
+      rss += sizeof (SV) + sizeof (struct xpvav) + (1 + AvFILL (coro->curstack)) * sizeof (SV *);
       rss += coro->tmps_max * sizeof (SV *);
       rss += (coro->markstack_max - coro->markstack_ptr) * sizeof (I32);
       rss += coro->scopestack_max * sizeof (I32);
       rss += coro->savestack_max * sizeof (ANY);
   GvAV (PL_defgv)    = coro->args; coro->args = 0;
   GvSV (PL_errgv)    = NEWSV (0, 0);
   GvSV (irsgv)       = newSVpvn ("\n", 1); sv_magic (GvSV (irsgv), (SV *)irsgv, PERL_MAGIC_sv, "/", 0);
   PL_rs              = newSVsv (GvSV (irsgv));
-  {
+  SvREFCNT_inc (PL_defoutgv);
-    IO *io = newIO ();
-    PL_defoutgv = newGVgen ("Coro");
-    GvIOp(PL_defoutgv) = io;
-    IoTYPE (io) = IoTYPE_WRONLY;
-    IoOFP (io) = IoIFP (io) = PerlIO_stdout ();
-    IoFLAGS (io) |= IOf_FLUSH;
-  }
   {
     dSP;
     LOGOP myop;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines