Source position: searchh.inc line 63
type __action_fn_t = procedure(
__nodep: pointer;
__value: tsearch_VISIT;
__level: LongInt
);