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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.92 by root, Sun Nov 26 02:16:19 2006 UTC vs.
Revision 1.93 by root, Sun Nov 26 03:22:50 2006 UTC

 /* this is a structure representing a c-level coroutine */
 typedef struct coro_stack {
   struct coro_stack *next;
-  void *idle_sp; /* original stacklevel when coroutine was created */
+  /* the stack */
   void *sptr;
   long ssize; /* positive == mmap, otherwise malloc */
   /* cpu state */
+  void *idle_sp; /* original stacklevel when coroutine was created */
+  JMPENV *top_env;
   coro_context cctx;
-  JMPENV *top_env;
 } coro_stack;
 /* the (fake) coro_stack representing the main program */
 static coro_stack *main_stack;
 {
   /*
    * this is a _very_ stripped down perl interpreter ;)
    */
   dTHX;
+  UNLOCK;
   PL_top_env = &PL_start_env;
-  UNLOCK;
   sv_setiv (get_sv ("Coro::State::cctx_stack", FALSE), PTR2IV ((coro_stack *)arg));
   sv_setiv (get_sv ("Coro::State::cctx_restartop", FALSE), PTR2IV (PL_op));
+  /* continue at cctx_init, without entersub */
   PL_restartop = CvSTART (get_cv ("Coro::State::cctx_init", FALSE));
   /* somebody will hit me for both perl_run and PL_restart_op */
   perl_run (aTHX_ PERL_GET_CONTEXT);

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