… | |
… | |
73 | |
73 | |
74 | { |
74 | { |
75 | AV *priv = newAV (); |
75 | AV *priv = newAV (); |
76 | SV *rv = newRV_noinc ((SV *)priv); |
76 | SV *rv = newRV_noinc ((SV *)priv); |
77 | |
77 | |
78 | av_extend (priv, CD_MAX); |
78 | av_fill (priv, CD_MAX); |
79 | AvARRAY (priv)[CD_CORO] = &PL_sv_undef; |
79 | AvARRAY (priv)[CD_CORO] = &PL_sv_undef; |
80 | AvARRAY (priv)[CD_TYPE] = newSViv (type); |
80 | AvARRAY (priv)[CD_TYPE] = newSViv (type); |
81 | AvARRAY (priv)[CD_OK ] = &PL_sv_no; |
81 | AvARRAY (priv)[CD_OK ] = &PL_sv_no; |
82 | AvARRAY (priv)[CD_HITS] = newSViv (0); |
82 | AvARRAY (priv)[CD_HITS] = newSViv (0); |
83 | AvARRAY (priv)[CD_GOT ] = newSViv (0); |
83 | AvARRAY (priv)[CD_GOT ] = newSViv (0); |