… | |
… | |
17 | iom_const_iv (EV_READ), |
17 | iom_const_iv (EV_READ), |
18 | iom_const_iv (EV_WRITE), |
18 | iom_const_iv (EV_WRITE), |
19 | # undef iom_const |
19 | # undef iom_const |
20 | }; |
20 | }; |
21 | |
21 | |
22 | for (civ = iom_const_iv + sizeof (iom_const_iv) / sizeof (iom_const_iv [0]); civ-- > iom_const_iv; ) |
22 | for (civ = iom_const_iv + sizeof (iom_const_iv) / sizeof (iom_const_iv [0]); civ > iom_const_iv; civ--) |
23 | newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); |
23 | newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv)); |
24 | |
24 | |
25 | /* slightly dirty to put the same scalar into all those arrays, but */ |
25 | /* slightly dirty to put the same scalar into all those arrays, but */ |
26 | /* we do not expect users to modify them anyways */ |
26 | /* we do not expect users to modify them anyways */ |
27 | av_push (get_av ("IOM_CLASS" "::timer::ISA", 1), SvREFCNT_inc (baseclass)); |
27 | av_push (get_av ("IOM_CLASS" "::timer::ISA", 1), SvREFCNT_inc (baseclass)); |
28 | av_push (get_av ("IOM_CLASS" "::iow::ISA", 1), SvREFCNT_inc (baseclass)); |
28 | av_push (get_av ("IOM_CLASS" "::iow::ISA", 1), SvREFCNT_inc (baseclass)); |