Source position: pascodegen.pp line 28
type TCodeGeneratorLogEvent = procedure(
Sender: TObject;
LogType: TCodegenLogType;
const Msg: string
) of object;