5.8.4/distrib/sv.c

944 /* grab a new struct xpvav from the free list, allocating more if necessary */
949     XPVAV* xpvav;
953     xpvav = PL_xpvav_root;
954     PL_xpvav_root = (XPVAV*)xpvav->xav_array;
956     return xpvav;
959 /* return a struct xpvav to the free list */
970 /* allocate another arena's worth of struct xpvav */
975     register XPVAV* xpvav;
977     New(717, xpvav, 1008/sizeof(XPVAV), XPVAV);
978     xpvav->xav_array = (char*)PL_xpvav_arenaroot;
979     PL_xpvav_arenaroot = xpvav;
981     xpvavend = &xpvav[1008 / sizeof(XPVAV) - 1];
982     PL_xpvav_root = ++xpvav;
983     while (xpvav < xpvavend) {
984 	xpvav->xav_array = (char*)(xpvav + 1);
985 	xpvav++;
987     xpvav->xav_array = 0;