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.141 by root, Mon Jan 22 18:45:17 2007 UTC vs.
Revision 1.142 by root, Tue Feb 13 19:21:29 2007 UTC

365 CvPADLIST (cv) = (AV *)POPs; 365 CvPADLIST (cv) = (AV *)POPs;
366 } 366 }
367 367
368 PUTBACK; 368 PUTBACK;
369 } 369 }
370 assert (!PL_comppad || AvARRAY (PL_comppad));//D
370} 371}
371 372
372static void 373static void
373save_perl (Coro__State c) 374save_perl (Coro__State c)
374{ 375{
376 assert (!PL_comppad || AvARRAY (PL_comppad));//D
375 { 377 {
376 dSP; 378 dSP;
377 I32 cxix = cxstack_ix; 379 I32 cxix = cxstack_ix;
378 PERL_CONTEXT *ccstk = cxstack; 380 PERL_CONTEXT *ccstk = cxstack;
379 PERL_SI *top_si = PL_curstackinfo; 381 PERL_SI *top_si = PL_curstackinfo;
538 540
539 coro_init_stacks (); 541 coro_init_stacks ();
540 542
541 PL_curcop = &PL_compiling; 543 PL_curcop = &PL_compiling;
542 PL_in_eval = EVAL_NULL; 544 PL_in_eval = EVAL_NULL;
545 PL_comppad = 0;
543 PL_curpm = 0; 546 PL_curpm = 0;
544 PL_localizing = 0; 547 PL_localizing = 0;
545 PL_dirty = 0; 548 PL_dirty = 0;
546 PL_restartop = 0; 549 PL_restartop = 0;
547 550

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines