Source position: xmlschemas.inc line 90
type xmlSchemaValidityWarningFunc = procedure(
ctx: pointer;
msg: pchar
);