1 /* { dg-options "-O3 -fgraphite-identity" } */
3 typedef struct sv TEST_SV;
4 typedef struct av TEST_AV;
5 typedef struct magic TEST_MAGIC;
6 typedef struct xpvav TEST_XPVAV;
24 extern TEST_SV PL_sv_undef;
25 Perl_av_fill( register TEST_AV *av, int fill)
28 int key = ((TEST_XPVAV*) (av)->sv_any)->xav_fill;
29 TEST_SV** ary = ((TEST_SV**)((TEST_XPVAV*) (av)->sv_any)->xav_array);
31 ary[++key] = &PL_sv_undef;