void _24to32( SV* packed ) {
    SV **sp = (*Perl_Istack_sp_ptr(((PerlInterpreter *)Perl_get_context()))); I32 ax = (*(*Perl_Imarkstack_ptr_ptr(((PerlInterpreter *)Perl_get_context())))--); register SV **mark = (*Perl_Istack_base_ptr(((PerlInterpreter *)Perl_get_context()))) + ax++; I32 items = (I32)(sp - mark);
    char *pp = ((packed)->sv_u.svu_pv);
    _4BY6 up;
    int i;
    sp = mark;
    for( i=0; i<24; i+=3 ) {
        up.packed = _byteswap_ulong( *(unsigned long*)&pp[ i ] );
        do { do { if ((*Perl_Istack_max_ptr(((PerlInterpreter *)Perl_get_context()))) - sp < (int)(1)) { sp = Perl_stack_grow(((PerlInterpreter *)Perl_get_context()), sp,sp,(int) (1)); } } while (0); (*++sp = (Perl_sv_2mortal(((PerlInterpreter *)Perl_get_context()), Perl_newSVuv(((PerlInterpreter *)Perl_get_context()), up.u.a)))); } while (0);
        do { do { if ((*Perl_Istack_max_ptr(((PerlInterpreter *)Perl_get_context()))) - sp < (int)(1)) { sp = Perl_stack_grow(((PerlInterpreter *)Perl_get_context()), sp,sp,(int) (1)); } } while (0); (*++sp = (Perl_sv_2mortal(((PerlInterpreter *)Perl_get_context()), Perl_newSVuv(((PerlInterpreter *)Perl_get_context()), up.u.b)))); } while (0);
        do { do { if ((*Perl_Istack_max_ptr(((PerlInterpreter *)Perl_get_context()))) - sp < (int)(1)) { sp = Perl_stack_grow(((PerlInterpreter *)Perl_get_context()), sp,sp,(int) (1)); } } while (0); (*++sp = (Perl_sv_2mortal(((PerlInterpreter *)Perl_get_context()), Perl_newSVuv(((PerlInterpreter *)Perl_get_context()), up.u.c)))); } while (0);
        do { do { if ((*Perl_Istack_max_ptr(((PerlInterpreter *)Perl_get_context()))) - sp < (int)(1)) { sp = Perl_stack_grow(((PerlInterpreter *)Perl_get_context()), sp,sp,(int) (1)); } } while (0); (*++sp = (Perl_sv_2mortal(((PerlInterpreter *)Perl_get_context()), Perl_newSVuv(((PerlInterpreter *)Perl_get_context()), up.u.d)))); } while (0);
    }
    (*Perl_Istack_sp_ptr(((PerlInterpreter *)Perl_get_context()))) = sp;
    return;
}