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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.123 by root, Mon Dec 4 21:56:00 2006 UTC vs.
Revision 1.124 by root, Tue Dec 5 12:50:04 2006 UTC

 # endif
 #endif
 #include <stdio.h>
 #include <errno.h>
+#include <assert.h>
 #if !__i386 && !__x86_64 && !__powerpc && !__m68k && !__alpha && !__mips && !__sparc64
 # undef STACKGUARD
 #endif
 {
   coro_cctx *cctx;
   ++cctx_count;
-  New (0, cctx, 1, coro_cctx);
+  Newz (0, cctx, 1, coro_cctx);
 #if HAVE_MMAP
   cctx->ssize = ((STACKSIZE * sizeof (long) + PAGESIZE - 1) / PAGESIZE + STACKGUARD) * PAGESIZE;
   /* mmap supposedly does allocate-on-write for us */
 {
   dSTACKLEVEL;
   /* sometimes transfer is only called to set idle_sp */
   if (!next)
+    {
-    ((coro_cctx *)prev)->idle_sp = STACKLEVEL;
+      ((coro_cctx *)prev)->idle_sp = STACKLEVEL;
+      assert (((coro_cctx *)prev)->top_env = PL_top_env); /* just for the side effetc when assert is enabled */
+    }
   else if (prev != next)
     {
       coro_cctx *prev__cctx;
       if (prev->flags & CF_NEW)
           /* first get rid of the old state */
           save_perl (prev);
           /* setup coroutine call */
           setup_coro (next);
           /* need a new stack */
-          assert (!next->stack);
+          assert (!next->cctx);
         }
       else
         {
           /* coroutine already started */
           save_perl (prev);

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