usr.bin/perl/pp_sort.c

344     off_runs stack[60], *stackp;
353     stackp = stack;
354     stackp->runs = dynprep(aTHX_ base, aux, nmemb, cmp);
355     stackp->offset = offset = 0;
359         /* On levels where both runs have be constructed (stackp->runs == 0),
362          * as long as stackp->runs is 0, keep merging.
364         IV runs = stackp->runs;
372                 offset = stackp->offset;
467                 --stackp;
469             } while ((runs = stackp->runs) == 0);
473         stackp->runs = 0;               /* current run will finish level */
482             ++stackp;
483             stackp->offset = offset;
484             runs -= stackp->runs = runs / 2;
516             ++stackp;
517             stackp->offset = offset;
518             stackp->runs = 0;   /* take care of both runs, trigger merge */