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

Comparing Coro/Coro/State.xs (file contents):
Revision 1.401 by root, Mon May 16 22:08:24 2011 UTC vs.
Revision 1.403 by root, Sun May 22 20:13:33 2011 UTC

 #include "XSUB.h"
 #include "perliol.h"
 #include "schmorp.h"
+#include <stddef.h>
 #include <stdio.h>
 #include <errno.h>
 #include <assert.h>
 #ifndef SVs_PADSTALE
   MAGIC *mg;
   if (SvROK (coro))
     coro = SvRV (coro);
-  mg = SvSTATEhv_p (coro);
+  mg = SvSTATEhv_p (aTHX_ coro);
   if (!mg)
     croak ("Coro::State object required");
   return (struct coro *)mg->mg_ptr;
 }
   SvREFCNT_dec (coro->startcv);
   SvREFCNT_dec (coro->args);
   SvREFCNT_dec (coro->swap_sv);
   SvREFCNT_dec (CORO_THROW);
-  coro_call_on_destroy (coro);
+  coro_call_on_destroy (aTHX_ coro);
   /* more destruction mayhem in coro_state_free */
 }
 static int
 coro_state_free (pTHX_ SV *sv, MAGIC *mg)
 {
   struct coro *coro = (struct coro *)mg->mg_ptr;
   mg->mg_ptr = 0;
-  coro_state_destroy (coro);
+  coro_state_destroy (aTHX_ coro);
   SvREFCNT_dec (coro->on_destroy);
   SvREFCNT_dec (coro->status);
   Safefree (coro);
       PUTBACK;
     }
 }
 static void
-coro_push_on_destroy (aTHX_ struct coro *coro, SV *cb)
+coro_push_on_destroy (pTHX_ struct coro *coro, SV *cb)
 {
   if (!coro->on_destroy)
     coro->on_destroy = newAV ();
   av_push (coro->on_destroy, cb);
   if (!coro->status)
     return 1;
   frame->destroy = 0;
-  coro_push_av (coro->status, GIMME_V);
+  coro_push_av (aTHX_ coro->status, GIMME_V);
   SvREFCNT_dec ((SV *)coro->hv);
   return 0;
 }

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