SV* vec_zeros(int m) {
    int i;
    AV *myav;
    SV **svs;

    (svs = ((void)(sizeof(SV *) > 1 && (m) > ((size_t)~0)/sizeof(SV *) && (Perl_croak_nocontext(PL_memory_wrap),0)), (SV **)Perl_safesysmalloc((size_t)((m)*sizeof(SV *)))));

    for (i = 0; i < m; i++) {

        svs[i] = Perl_sv_newmortal(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0))))));

        Perl_sv_setnv(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0))))), (SV*)svs[i],0.0f);
    }

    myav = Perl_av_make(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0))))), m,svs);

    Perl_safesysfree((void *)(svs));

    return Perl_newRV_noinc(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0))))), (SV*) myav);
}