(void)( { while (PL_curstack != PL_mainstack) { Perl_dounwind(-1); (void)( { SV **sp = PL_stack_sp; PERL_SI * const prev = PL_curstackinfo->si_prev; if (!prev) { fprintf((PL_stderrgv && (((svtype)((PL_stderrgv)->sv_flags & 0xff)) == SVt_PVGV) && (((PL_stderrgv)->sv_u.svu_gp)->gp_io) && ((XPVIO*) ((((PL_stderrgv)->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp ? ((XPVIO*) ((((PL_stderrgv)->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp : stderr), "panic: POPSTACK\n"); Perl_my_exit(1); } (void)( { ((XPVAV*) (PL_curstack)->sv_any)->xav_fill = sp - PL_stack_base; PL_stack_base = ((prev->si_stack)->sv_u.svu_array); PL_stack_max = PL_stack_base + ((XPVAV*) (prev->si_stack)->sv_any)->xav_max; sp = PL_stack_sp = PL_stack_base + ((XPVAV*) (prev->si_stack)->sv_any)->xav_fill; PL_curstack = prev->si_stack; } ); PL_curstackinfo = prev; } ); } } );