ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro/State.xs
(Generate patch)

Comparing Coro/Coro/State.xs (file contents):
Revision 1.60 by root, Mon Aug 9 02:41:27 2004 UTC vs.
Revision 1.61 by root, Tue Aug 10 01:56:30 2004 UTC

… …
270 AV *av = (AV *)mg->mg_obj; 270 AV *av = (AV *)mg->mg_obj;
271 271
272 /* casting is fun. */ 272 /* casting is fun. */
273 while (&PL_sv_undef != (SV *)(padlist = (AV *)av_pop (av))) 273 while (&PL_sv_undef != (SV *)(padlist = (AV *)av_pop (av)))
274 free_padlist (aTHX_ padlist); 274 free_padlist (aTHX_ padlist);
275
276 SvREFCNT_dec (av);
275} 277}
276 278
277#define PERL_MAGIC_coro PERL_MAGIC_ext 279#define PERL_MAGIC_coro PERL_MAGIC_ext
278 280
279static MGVTBL vtbl_coro = {0, 0, 0, 0, coro_cv_free}; 281static MGVTBL vtbl_coro = {0, 0, 0, 0, coro_cv_free};

Diff Legend

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