--- Coro/Coro/State.xs 2006/10/26 06:50:20 1.75 +++ Coro/Coro/State.xs 2006/10/26 08:45:56 1.76 @@ -30,7 +30,6 @@ #endif #include -#include #ifdef HAVE_MMAP # include @@ -277,6 +276,8 @@ free_padlist (aTHX_ padlist); SvREFCNT_dec (av); + + return 0; } #define PERL_MAGIC_coro PERL_MAGIC_ext @@ -605,8 +606,7 @@ if (stack->sptr == (void *)-1) #endif { - /*FIXME*//*D*//* reasonable stack size! */ - stack->ssize = - (STACKSIZE * sizeof (long)); + stack->ssize = - (STACKSIZE * (long)sizeof (long)); New (0, stack->sptr, STACKSIZE, long); } } @@ -708,7 +708,6 @@ */ dTHX; Coro__State ctx = (Coro__State)arg; - JMPENV coro_start_env; PL_top_env = &ctx->start_env;