Source position: pscanner.pp line 1285
const MessageTypeNames: array [TMessageType] of TPasScannerString = ('Fatal', 'Error', 'Warning', 'Note', 'Hint', 'Info', 'Debug');