Move the cast for a magic vtable with const get into mg_vtable.h

[perl5.git] / mg_vtable.h

/* -*- buffer-read-only: t -*-
 *
 *    mg_vtable.h
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 * This file is built by regen/mg_vtable.pl.
 * Any changes made here will be lost!
 */

/* These all need to be 0, not NULL, as NULL can be (void*)0, which is a
 * pointer to data, whereas we're assigning pointers to functions, which are
 * not the same beast. ANSI doesn't allow the assignment from one to the other.
 * (although most, but not all, compilers are prepared to do it)
 */

/* args are:
    vtable
    get
    set
    len
    clear
    free
    copy
    dup
    local
*/

MGVTBL_SET(
    PL_vtbl_sv,
    Perl_magic_get,
    Perl_magic_set,
    Perl_magic_len,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_env,
    0,
    Perl_magic_set_all_env,
    0,
    Perl_magic_clear_all_env,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_envelem,
    0,
    Perl_magic_setenv,
    0,
    Perl_magic_clearenv,
    0,
    0,
    0,
    0
);

#ifndef PERL_MICRO
MGVTBL_SET(
    PL_vtbl_sigelem,
    Perl_magic_getsig,
    Perl_magic_setsig,
    0,
    Perl_magic_clearsig,
    0,
    0,
    0,
    0
);
#endif

MGVTBL_SET(
    PL_vtbl_pack,
    0,
    0,
    Perl_magic_sizepack,
    Perl_magic_wipepack,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_packelem,
    Perl_magic_getpack,
    Perl_magic_setpack,
    0,
    Perl_magic_clearpack,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_dbline,
    0,
    Perl_magic_setdbline,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_isa,
    0,
    Perl_magic_setisa,
    0,
    Perl_magic_clearisa,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_isaelem,
    0,
    Perl_magic_setisa,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_arylen,
    (int (*)(pTHX_ SV *, MAGIC *))Perl_magic_getarylen,
    Perl_magic_setarylen,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_arylen_p,
    0,
    0,
    0,
    0,
    Perl_magic_freearylen_p,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_mglob,
    0,
    Perl_magic_setmglob,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_nkeys,
    Perl_magic_getnkeys,
    Perl_magic_setnkeys,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_taint,
    Perl_magic_gettaint,
    Perl_magic_settaint,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_substr,
    Perl_magic_getsubstr,
    Perl_magic_setsubstr,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_vec,
    Perl_magic_getvec,
    Perl_magic_setvec,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_pos,
    Perl_magic_getpos,
    Perl_magic_setpos,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_bm,
    0,
    Perl_magic_setregexp,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_fm,
    0,
    Perl_magic_setregexp,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_uvar,
    Perl_magic_getuvar,
    Perl_magic_setuvar,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_defelem,
    Perl_magic_getdefelem,
    Perl_magic_setdefelem,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_regexp,
    0,
    Perl_magic_setregexp,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_regdata,
    0,
    0,
    Perl_magic_regdata_cnt,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_regdatum,
    Perl_magic_regdatum_get,
    Perl_magic_regdatum_set,
    0,
    0,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_amagic,
    0,
    Perl_magic_setamagic,
    0,
    0,
    Perl_magic_setamagic,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_amagicelem,
    0,
    Perl_magic_setamagic,
    0,
    0,
    Perl_magic_setamagic,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_backref,
    0,
    0,
    0,
    0,
    Perl_magic_killbackrefs,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_ovrld,
    0,
    0,
    0,
    0,
    Perl_magic_freeovrld,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_utf8,
    0,
    Perl_magic_setutf8,
    0,
    0,
    0,
    0,
    0,
    0
);

#ifdef USE_LOCALE_COLLATE
MGVTBL_SET(
    PL_vtbl_collxfrm,
    0,
    Perl_magic_setcollxfrm,
    0,
    0,
    0,
    0,
    0,
    0
);
#endif

MGVTBL_SET(
    PL_vtbl_hintselem,
    0,
    Perl_magic_sethint,
    0,
    Perl_magic_clearhint,
    0,
    0,
    0,
    0
);

MGVTBL_SET(
    PL_vtbl_hints,
    0,
    0,
    0,
    Perl_magic_clearhints,
    0,
    0,
    0,
    0
);


/* ex: set ro: */