Source position: valid.inc line 37
type xmlValidityErrorFunc = procedure(
ctx: pointer;
msg: pchar
);