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