EV_SUB_NEXT
while ((subp = EV_SUB_NEXT(scp)) != NULL) {
EV_SUB_NEXT(scp) = subp->evsub_next;
subp->evsub_next = EV_SUB_NEXT(scp);
EV_SUB_NEXT(scp) = subp;
subp = EV_SUB_NEXT(scp);
EV_SUB_NEXT(scp) = subp->evsub_next;