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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.90 by root, Sat Nov 25 00:56:35 2006 UTC vs.
Revision 1.91 by root, Sat Nov 25 01:14:11 2006 UTC

   dTHX;
   transfer_tail ();
   PL_top_env = &PL_start_env;
-  PL_restartop = PL_op->op_next;
+  PL_restartop = PL_op;
   /* somebody will hit me for both perl_run and PL_restart_top */
   perl_run (aTHX_ PERL_GET_CONTEXT);
   abort ();
 }
   Safefree (stack);
 }
 static coro_stack *stack_first;
-static void
+static coro_stack *
-stack_get (struct coro *coro)
+stack_get ()
 {
+  coro_stack *stack;
   if (stack_first)
     {
-      coro->stack = stack_first;
+      stack = stack_first;
-      stack_first = stack_first->next;
+      stack_first = stack->next;
     }
   else
+   {
-    coro->stack = stack_new ();
+     stack = stack_new ();
+     PL_op = PL_op->op_next;
+   }
+  return stack;
 }
 static void
 stack_put (coro_stack *stack)
 {
   if (prev != next)
     {
       coro_stack *prev_stack = prev->stack;
       /* possibly "free" the stack */
-      if (prev_stack->idle_sp == stacklevel)
+      if (0 && prev_stack->idle_sp == stacklevel)
         {
           stack_put (prev_stack);
           prev->stack = 0;
         }
           /* need to change stack from main_stack to real one */
           next->stack = 0;
         }
       if (!next->stack)
-        stack_get (next);
+        next->stack = stack_get ();
       if (prev_stack != next->stack)
         coro_transfer (&prev_stack->cctx, &next->stack->cctx);
     }

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