1 files changed, 551 insertions, 551 deletions
diff --git a/nim/msgs.pas b/nim/msgs.pas
index d7f0d9f82..48ffc9ee5 100644
--- a/nim/msgs.pas
+++ b/nim/msgs.pas
@@ -49,557 +49,557 @@ uses
 //cog.out(warns)
 //cog.out(hints)
 //]]]
-type
-  TMsgKind = (
-    errUnknown,
-    errIllFormedAstX,
-    errCannotOpenFile,
-    errInternal,
-    errGenerated,
-    errXCompilerDoesNotSupportCpp,
-    errStringLiteralExpected,
-    errIntLiteralExpected,
-    errInvalidCharacterConstant,
-    errClosingTripleQuoteExpected,
-    errClosingQuoteExpected,
-    errTabulatorsAreNotAllowed,
-    errInvalidToken,
-    errLineTooLong,
-    errInvalidNumber,
-    errNumberOutOfRange,
-    errNnotAllowedInCharacter,
-    errClosingBracketExpected,
-    errMissingFinalQuote,
-    errIdentifierExpected,
-    errOperatorExpected,
-    errTokenExpected,
-    errStringAfterIncludeExpected,
-    errRecursiveInclude,
-    errOnOrOffExpected,
-    errNoneSpeedOrSizeExpected,
-    errInvalidPragma,
-    errUnknownPragma,
-    errPragmaXHereNotAllowed,
-    errUnknownDirective,
-    errInvalidDirective,
-    errAtPopWithoutPush,
-    errEmptyAsm,
-    errAsgnInvalidInExpr,
-    errInvalidIndentation,
-    errExceptionExpected,
-    errExceptionAlreadyHandled,
-    errReturnNotAllowedHere,
-    errYieldNotAllowedHere,
-    errInvalidNumberOfYieldExpr,
-    errReturnInvalidInIterator,
-    errCannotReturnExpr,
-    errAttemptToRedefine,
-    errStmtInvalidAfterReturn,
-    errStmtExpected,
-    errInvalidLabel,
-    errInvalidCmdLineOption,
-    errCmdLineArgExpected,
-    errCmdLineNoArgExpected,
-    errInvalidVarSubstitution,
-    errUnknownVar,
-    errUnknownCcompiler,
-    errOnOrOffExpectedButXFound,
-    errNoneBoehmRefcExpectedButXFound,
-    errNoneSpeedOrSizeExpectedButXFound,
-    errGuiConsoleOrLibExpectedButXFound,
-    errUnknownOS,
-    errUnknownCPU,
-    errGenOutExpectedButXFound,
-    errArgsNeedRunOption,
-    errInvalidMultipleAsgn,
-    errColonOrEqualsExpected,
-    errExprExpected,
-    errUndeclaredIdentifier,
-    errUseQualifier,
-    errTwiceForwarded,
-    errTypeExpected,
-    errSystemNeeds,
-    errExecutionOfProgramFailed,
-    errNotOverloadable,
-    errInvalidArgForX,
-    errStmtHasNoEffect,
-    errXExpectsTypeOrValue,
-    errXExpectsArrayType,
-    errIteratorCannotBeInstantiated,
-    errExprWithNoTypeCannotBeConverted,
-    errExprWithNoTypeCannotBeCasted,
-    errConstantDivisionByZero,
-    errOrdinalTypeExpected,
-    errOrdinalOrFloatTypeExpected,
-    errOverOrUnderflow,
-    errCannotEvalXBecauseIncompletelyDefined,
-    errChrExpectsRange0_255,
-    errStaticAssertFailed,
-    errStaticAssertCannotBeEval,
-    errDotRequiresRecordOrObjectType,
-    errUndeclaredFieldX,
-    errNilAccess,
-    errIndexOutOfBounds,
-    errIndexTypesDoNotMatch,
-    errBracketsInvalidForType,
-    errValueOutOfSetBounds,
-    errFieldInitTwice,
-    errFieldNotInit,
-    errExprCannotBeCalled,
-    errExprHasNoType,
-    errExprXHasNoType,
-    errCastNotInSafeMode,
-    errExprCannotBeCastedToX,
-    errUndefinedPrefixOpr,
-    errCommaOrParRiExpected,
-    errCurlyLeOrParLeExpected,
-    errSectionExpected,
-    errImplemenationExpected,
-    errRangeExpected,
-    errInvalidTypeDescription,
-    errAttemptToRedefineX,
-    errMagicOnlyInSystem,
-    errUnknownOperatorX,
-    errPowerOfTwoExpected,
-    errStringMayNotBeEmpty,
-    errCallConvExpected,
-    errProcOnlyOneCallConv,
-    errSymbolMustBeImported,
-    errExprMustBeBool,
-    errConstExprExpected,
-    errDuplicateCaseLabel,
-    errRangeIsEmpty,
-    errSelectorMustBeOfCertainTypes,
-    errSelectorMustBeOrdinal,
-    errOrdXMustNotBeNegative,
-    errLenXinvalid,
-    errWrongNumberOfVariables,
-    errExprCannotBeRaised,
-    errBreakOnlyInLoop,
-    errTypeXhasUnknownSize,
-    errConstNeedsConstExpr,
-    errConstNeedsValue,
-    errResultCannotBeOpenArray,
-    errSizeTooBig,
-    errSetTooBig,
-    errBaseTypeMustBeOrdinal,
-    errInheritanceOnlyWithNonFinalObjects,
-    errInheritanceOnlyWithEnums,
-    errIllegalRecursionInTypeX,
-    errCannotInstantiateX,
-    errExprHasNoAddress,
-    errVarForOutParamNeeded,
-    errPureTypeMismatch,
-    errTypeMismatch,
-    errButExpected,
-    errButExpectedX,
-    errAmbigiousCallXYZ,
-    errWrongNumberOfTypeParams,
-    errOutParamNoDefaultValue,
-    errInlineProcHasNoAddress,
-    errXCannotBeInParamDecl,
-    errPragmaOnlyInHeaderOfProc,
-    errImportedProcCannotHaveImpl,
-    errImplOfXNotAllowed,
-    errImplOfXexpected,
-    errDiscardValue,
-    errInvalidDiscard,
-    errUnknownPrecedence,
-    errIllegalConvFromXtoY,
-    errTypeMismatchExpectedXGotY,
-    errCannotBindXTwice,
-    errInvalidOrderInEnumX,
-    errEnumXHasWholes,
-    errExceptExpected,
-    errInvalidTry,
-    errEofExpectedButXFound,
-    errOptionExpected,
-    errCannotEvaluateForwardConst,
-    errXisNoLabel,
-    errXNeedsConcreteType,
-    errNotAllCasesCovered,
-    errStringRange,
-    errUnkownSubstitionVar,
-    errComplexStmtRequiresInd,
-    errXisNotCallable,
-    errNoPragmasAllowedForX,
-    errNoGenericParamsAllowedForX,
-    errInvalidParamKindX,
-    errDefaultArgumentInvalid,
-    errNamedParamHasToBeIdent,
-    errNoReturnTypeForX,
-    errConvNeedsOneArg,
-    errInvalidPragmaX,
-    errXNotAllowedHere,
-    errInvalidControlFlowX,
-    errATypeHasNoValue,
-    errXisNoType,
-    errCircumNeedsPointer,
-    errInvalidContextForBuiltinX,
-    errInvalidExpression,
-    errInvalidExpressionX,
-    errEnumHasNoValueX,
-    errNamedExprExpected,
-    errNamedExprNotAllowed,
-    errXExpectsOneTypeParam,
-    errArrayExpectsTwoTypeParams,
-    errInvalidVisibilityX,
-    errInitHereNotAllowed,
-    errXCannotBeAssignedTo,
-    errIteratorNotAllowed,
-    errIteratorNeedsImplementation,
-    errIteratorNeedsReturnType,
-    errInvalidCommandX,
-    errXOnlyAtModuleScope,
-    errTypeXNeedsImplementation,
-    errTemplateInstantiationTooNested,
-    errInstantiationFrom,
-    errInvalidIndexValueForTuple,
-    errCommandExpectsFilename,
-    errXExpected,
-    errInvalidSectionStart,
-    errGridTableNotImplemented,
-    errGeneralParseError,
-    errNewSectionExpected,
-    errWhitespaceExpected,
-    errXisNoValidIndexFile,
-    errCannotRenderX,
-    errVarVarTypeNotAllowed,
-    errIsExpectsTwoArguments,
-    errIsExpectsObjectTypes,
-    errXcanNeverBeOfThisSubtype,
-    errTooManyIterations,
-    errCannotInterpretNodeX,
-    errFieldXNotFound,
-    errInvalidConversionFromTypeX,
-    errAssertionFailed,
-    errCannotGenerateCodeForX,
-    errXNeedsReturnType,
-    errXRequiresOneArgument,
-    errUnhandledExceptionX,
-    errCyclicTree,
-    errXisNoMacroOrTemplate,
-    errUser,
-    warnCannotOpenFile,
-    warnOctalEscape,
-    warnXIsNeverRead,
-    warnXmightNotBeenInit,
-    warnCannotWriteMO2,
-    warnCannotReadMO2,
-    warnDeprecated,
-    warnSmallLshouldNotBeUsed,
-    warnUnknownMagic,
-    warnRedefinitionOfLabel,
-    warnUnknownSubstitutionX,
-    warnLanguageXNotSupported,
-    warnCommentXIgnored,
-    warnUser,
-    hintSuccess,
-    hintSuccessX,
-    hintLineTooLong,
-    hintXDeclaredButNotUsed,
-    hintConvToBaseNotNeeded,
-    hintConvFromXtoItselfNotNeeded,
-    hintExprAlwaysX,
-    hintQuitCalled,
-    hintProcessing,
-    hintCodeBegin,
-    hintCodeEnd,
-    hintConf,
-    hintUser);
-
-const
-  MsgKindToStr: array [TMsgKind] of string = (
-    'unknown error',
-    'illformed AST: $1',
-    'cannot open ''$1''',
-    'internal error: $1',
-    '$1',
-    '''$1'' compiler does not support C++',
-    'string literal expected',
-    'integer literal expected',
-    'invalid character constant',
-    'closing """ expected, but end of file reached',
-    'closing " expected',
-    'tabulators are not allowed',
-    'invalid token: $1',
-    'line too long',
-    '$1 is not a valid number',
-    'number $1 out of valid range',
-    '\n not allowed in character literal',
-    'closing '']'' expected, but end of file reached',
-    'missing final ''',
-    'identifier expected, but found ''$1''',
-    'operator expected, but found ''$1''',
-    '''$1'' expected',
-    'string after ''include'' expected',
-    'recursive include file: ''$1''',
-    '''on'' or ''off'' expected',
-    '''none'', ''speed'' or ''size'' expected',
-    'invalid pragma',
-    'unknown pragma: ''$1''',
-    'pragma ''$1'' here not allowed',
-    'unknown directive: ''$1''',
-    'invalid directive',
-    '''pop'' without a ''push'' pragma',
-    'empty asm statement makes no sense',
-    '''='' invalid in an expression; probably ''=='' meant',
-    'invalid indentation',
-    'exception expected',
-    'exception already handled',
-    '''return'' only allowed in routine',
-    '''yield'' only allowed in a loop of an iterator',
-    'invalid number of ''yield'' expresions',
-    '''return'' not allowed in iterator',
-    'current routine cannot return an expression',
-    'attempt to redefine ''$1''',
-    'statement not allowed after ''return'', ''break'' or ''raise''',
-    'statement expected',
-    '''$1'' is no label',
-    'invalid command line option: ''$1''',
-    'argument for command line option expected: ''$1''',
-    'invalid argument for command line option: ''$1''',
-    'invalid variable substitution in ''$1''',
-    'unknown variable: ''$1''',
-    'unknown C compiler: ''$1''',
-    '''on'' or ''off'' expected, but ''$1'' found',
-    '''none'', ''boehm'' or ''refc'' expected, but ''$1'' found',
-    '''none'', ''speed'' or ''size'' expected, but ''$1'' found',
-    '''gui'', ''console'' or ''lib'' expected, but ''$1'' found',
-    'unknown OS: ''$1''',
-    'unknown CPU: ''$1''',
-    '''c'', ''c++'' or ''yaml'' expected, but ''$1'' found',
-    'arguments can only be given if the ''--run'' option is selected',
-    'multiple assignment is not allowed',
-    ''':'' or ''='' expected, but found ''$1''',
-    'expression expected, but found ''$1''',
-    'undeclared identifier: ''$1''',
-    'ambigious identifier: ''$1'' -- use a qualifier',
-    '''$1'' is forwarded twice',
-    'type expected',
-    'system module needs ''$1''',
-    'execution of an external program failed',
-    'overloaded ''$1'' leads to ambigious calls',
-    'invalid argument for ''$1''',
-    'statement has no effect',
-    '''$1'' expects a type or value',
-    '''$1'' expects an array type',
-    '''$1'' cannot be instantiated because its body has not been compiled yet',
-    'expression with no type cannot be converted',
-    'expression with no type cannot be casted',
-    'constant division by zero',
-    'ordinal type expected',
-    'ordinal or float type expected',
-    'over- or underflow',
-    'cannot evalutate ''$1'' because type is not defined completely',
-    '''chr'' expects an int in the range 0..255',
-    '''staticAssert'' failed: condition is false',
-    'argument to ''staticAssert'' cannot be evaluated at compile time',
-    '''.'' requires a record or object type',
-    'undeclared field: ''$1''',
-    'attempt to access a nil address',
-    'index out of bounds',
-    'index types do not match',
-    '''[]'' operator invalid for this type',
-    'value out of set bounds',
-    'field initialized twice: ''$1''',
-    'field ''$1'' not initialized',
-    'expression cannot be called',
-    'expression has no type',
-    'expression ''$1'' has no type',
-    '''cast'' not allowed in safe mode',
-    'expression cannot be casted to $1',
-    'undefined prefix operator: $1',
-    ''','' or '')'' expected',
-    '''{'' or ''('' expected',
-    'section (''type'', ''proc'', etc.) expected',
-    '''implementation'' or end of file expected',
-    'range expected',
-    'invalid type description',
-    'attempt to redefine ''$1''',
-    '''magic'' only allowed in system module',
-    'unkown operator: ''$1''',
-    'power of two expected',
-    'string literal may not be empty',
-    'calling convention expected',
-    'a proc can only have one calling convention',
-    'symbol must be imported if ''lib'' pragma is used',
-    'expression must be of type ''bool''',
-    'constant expression expected',
-    'duplicate case label',
-    'range is empty',
-    'selector must be of an ordinal type, real or string',
-    'selector must be of an ordinal type',
-    'ord($1) must not be negative',
-    'len($1) must be less than 32768',
-    'wrong number of variables',
-    'only objects can be raised',
-    '''break'' only allowed in loop construct',
-    'type ''$1'' has unknown size',
-    'a constant can only be initialized with a constant expression',
-    'a constant needs a value',
-    'the result type cannot be on open array',
-    'computing the type''s size produced an overflow',
-    'set is too large',
-    'base type of a set must be an ordinal',
-    'inheritance only works with non-final objects',
-    'inheritance only works with an enum',
-    'illegal recursion in type ''$1''',
-    'cannot instantiate: ''$1''',
-    'expression has no address',
-    'for a ''var'' type a variable needs to be passed',
-    'type mismatch',
-    'type mismatch: got (',
-    'but expected one of: ',
-    'but expected ''$1''',
-    'ambigious call; both $1 and $2 match for: $3',
-    'wrong number of type parameters',
-    'out parameters cannot have default values',
-    'an inline proc has no address',
-    '$1 cannot be declared in parameter declaration',
-    'pragmas are only in the header of a proc allowed',
-    'an imported proc cannot have an implementation',
-    'implementation of ''$1'' is not allowed here',
-    'implementation of ''$1'' expected',
-    'value returned by statement has to be discarded',
-    'statement returns no value that can be discarded',
-    'unknown precedence for operator; use ''infix: prec'' pragma',
-    'conversion from $1 to $2 is invalid',
-    'type mismatch: expected ''$1'', but got ''$2''',
-    'cannot bind parameter ''$1'' twice',
-    'invalid order in enum ''$1''',
-    'enum ''$1'' has wholes',
-    '''except'' or ''finally'' expected',
-    'after catch all ''except'' or ''finally'' no section may follow',
-    'end of file expected, but found token ''$1''',
-    'option expected, but found ''$1''',
-    'cannot evaluate forwarded constant',
-    '''$1'' is not a label',
-    '''$1'' needs to be of a non-generic type',
-    'not all cases are covered',
-    'string range in case statement not allowed',
-    'unknown substitution variable: ''$1''',
-    'complex statement requires indentation',
-    '''$1'' is not callable',
-    'no pragmas allowed for $1',
-    'no generic parameters allowed for $1',
-    'invalid param kind: ''$1''',
-    'default argument invalid',
-    'named parameter has to be an identifier',
-    'no return type for $1 allowed',
-    'a type conversion needs exactly one argument',
-    'invalid pragma: $1',
-    '$1 here not allowed',
-    'invalid control flow: $1',
-    'a type has no value',
-    'invalid type: ''$1''',
-    '''^'' needs a pointer or reference type',
-    'invalid context for builtin ''$1''',
-    'invalid expression',
-    'invalid expression: ''$1''',
-    'enum has no value ''$1''',
-    'named expression expected',
-    'named expression here not allowed',
-    '''$1'' expects one type parameter',
-    'array expects two type parameters',
-    'invalid invisibility: ''$1''',
-    'initialization here not allowed',
-    '''$1'' cannot be assigned to',
-    'iterators can only be defined at the module''s top level',
-    'iterator needs an implementation',
-    'iterator needs a return type',
-    'invalid command: ''$1''',
-    '''$1'' is only allowed at top level',
-    'type ''$1'' needs an implementation',
-    'template instantiation too nested',
-    'instantiation from here',
-    'invalid index value for tuple subscript',
-    'command expects a filename argument',
-    '''$1'' expected',
-    'invalid section start',
-    'grid table is not implemented',
-    'general parse error',
-    'new section expected',
-    'whitespace expected, got ''$1''',
-    '''$1'' is no valid index file',
-    'cannot render reStructuredText element ''$1''',
-    'type ''var var'' is not allowed',
-    '''is'' expects two arguments',
-    '''is'' expects object types',
-    '''$1'' can never be of this subtype',
-    'interpretation requires too many iterations',
-    'cannot interpret node kind ''$1''',
-    'field ''$1'' cannot be found',
-    'invalid conversion from type ''$1''',
-    'assertion failed',
-    'cannot generate code for ''$1''',
-    'converter needs return type',
-    'converter requires one parameter',
-    'unhandled exception: $1',
-    'macro returned a cyclic abstract syntax tree',
-    '''$1'' is no macro or template',
-    '$1',
-    'cannot open ''$1'' [CannotOpenFile]',
-    'octal escape sequences do not exist; leading zero is ignored [OctalEscape]',
-    '''$1'' is never read [XIsNeverRead]',
-    '''$1'' might not have been initialized [XmightNotBeenInit]',
-    'cannot write file ''$1'' [CannotWriteMO2]',
-    'cannot read file ''$1'' [CannotReadMO2]',
-    '''$1'' is deprecated [Deprecated]',
-    '''l'' should not be used as an identifier; may look like ''1'' (one) [SmallLshouldNotBeUsed]',
-    'unknown magic ''$1'' might crash the compiler [UnknownMagic]',
-    'redefinition of label ''$1'' [RedefinitionOfLabel]',
-    'unknown substitution ''$1'' [UnknownSubstitutionX]',
-    'language ''$1'' not supported [LanguageXNotSupported]',
-    'comment ''$1'' ignored [CommentXIgnored]',
-    '$1 [User]',
-    'operation successful [Success]',
-    'operation successful ($1 lines compiled; $2 sec total) [SuccessX]',
-    'line too long [LineTooLong]',
-    '''$1'' is declared but not used [XDeclaredButNotUsed]',
-    'conversion to base object is not needed [ConvToBaseNotNeeded]',
-    'conversion from $1 to itself is pointless [ConvFromXtoItselfNotNeeded]',
-    'expression evaluates always to ''$1'' [ExprAlwaysX]',
-    'quit() called [QuitCalled]',
-    '$1 [Processing]',
-    'generated code listing: [CodeBegin]',
-    'end of listing [CodeEnd]',
-    'used config file ''$1'' [Conf]',
-    '$1 [User]'
-  );
-const
-  WarningsToStr: array [0..13] of string = (
-    'CannotOpenFile',
-    'OctalEscape',
-    'XIsNeverRead',
-    'XmightNotBeenInit',
-    'CannotWriteMO2',
-    'CannotReadMO2',
-    'Deprecated',
-    'SmallLshouldNotBeUsed',
-    'UnknownMagic',
-    'RedefinitionOfLabel',
-    'UnknownSubstitutionX',
-    'LanguageXNotSupported',
-    'CommentXIgnored',
-    'User'
-  );
-const
-  HintsToStr: array [0..12] of string = (
-    'Success',
-    'SuccessX',
-    'LineTooLong',
-    'XDeclaredButNotUsed',
-    'ConvToBaseNotNeeded',
-    'ConvFromXtoItselfNotNeeded',
-    'ExprAlwaysX',
-    'QuitCalled',
-    'Processing',
-    'CodeBegin',
-    'CodeEnd',
-    'Conf',
-    'User'
-  );
+type
+  TMsgKind = (
+    errUnknown,
+    errIllFormedAstX,
+    errCannotOpenFile,
+    errInternal,
+    errGenerated,
+    errXCompilerDoesNotSupportCpp,
+    errStringLiteralExpected,
+    errIntLiteralExpected,
+    errInvalidCharacterConstant,
+    errClosingTripleQuoteExpected,
+    errClosingQuoteExpected,
+    errTabulatorsAreNotAllowed,
+    errInvalidToken,
+    errLineTooLong,
+    errInvalidNumber,
+    errNumberOutOfRange,
+    errNnotAllowedInCharacter,
+    errClosingBracketExpected,
+    errMissingFinalQuote,
+    errIdentifierExpected,
+    errOperatorExpected,
+    errTokenExpected,
+    errStringAfterIncludeExpected,
+    errRecursiveInclude,
+    errOnOrOffExpected,
+    errNoneSpeedOrSizeExpected,
+    errInvalidPragma,
+    errUnknownPragma,
+    errPragmaXHereNotAllowed,
+    errUnknownDirective,
+    errInvalidDirective,
+    errAtPopWithoutPush,
+    errEmptyAsm,
+    errAsgnInvalidInExpr,
+    errInvalidIndentation,
+    errExceptionExpected,
+    errExceptionAlreadyHandled,
+    errReturnNotAllowedHere,
+    errYieldNotAllowedHere,
+    errInvalidNumberOfYieldExpr,
+    errReturnInvalidInIterator,
+    errCannotReturnExpr,
+    errAttemptToRedefine,
+    errStmtInvalidAfterReturn,
+    errStmtExpected,
+    errInvalidLabel,
+    errInvalidCmdLineOption,
+    errCmdLineArgExpected,
+    errCmdLineNoArgExpected,
+    errInvalidVarSubstitution,
+    errUnknownVar,
+    errUnknownCcompiler,
+    errOnOrOffExpectedButXFound,
+    errNoneBoehmRefcExpectedButXFound,
+    errNoneSpeedOrSizeExpectedButXFound,
+    errGuiConsoleOrLibExpectedButXFound,
+    errUnknownOS,
+    errUnknownCPU,
+    errGenOutExpectedButXFound,
+    errArgsNeedRunOption,
+    errInvalidMultipleAsgn,
+    errColonOrEqualsExpected,
+    errExprExpected,
+    errUndeclaredIdentifier,
+    errUseQualifier,
+    errTwiceForwarded,
+    errTypeExpected,
+    errSystemNeeds,
+    errExecutionOfProgramFailed,
+    errNotOverloadable,
+    errInvalidArgForX,
+    errStmtHasNoEffect,
+    errXExpectsTypeOrValue,
+    errXExpectsArrayType,
+    errIteratorCannotBeInstantiated,
+    errExprWithNoTypeCannotBeConverted,
+    errExprWithNoTypeCannotBeCasted,
+    errConstantDivisionByZero,
+    errOrdinalTypeExpected,
+    errOrdinalOrFloatTypeExpected,
+    errOverOrUnderflow,
+    errCannotEvalXBecauseIncompletelyDefined,
+    errChrExpectsRange0_255,
+    errStaticAssertFailed,
+    errStaticAssertCannotBeEval,
+    errDotRequiresRecordOrObjectType,
+    errUndeclaredFieldX,
+    errNilAccess,
+    errIndexOutOfBounds,
+    errIndexTypesDoNotMatch,
+    errBracketsInvalidForType,
+    errValueOutOfSetBounds,
+    errFieldInitTwice,
+    errFieldNotInit,
+    errExprCannotBeCalled,
+    errExprHasNoType,
+    errExprXHasNoType,
+    errCastNotInSafeMode,
+    errExprCannotBeCastedToX,
+    errUndefinedPrefixOpr,
+    errCommaOrParRiExpected,
+    errCurlyLeOrParLeExpected,
+    errSectionExpected,
+    errImplemenationExpected,
+    errRangeExpected,
+    errInvalidTypeDescription,
+    errAttemptToRedefineX,
+    errMagicOnlyInSystem,
+    errUnknownOperatorX,
+    errPowerOfTwoExpected,
+    errStringMayNotBeEmpty,
+    errCallConvExpected,
+    errProcOnlyOneCallConv,
+    errSymbolMustBeImported,
+    errExprMustBeBool,
+    errConstExprExpected,
+    errDuplicateCaseLabel,
+    errRangeIsEmpty,
+    errSelectorMustBeOfCertainTypes,
+    errSelectorMustBeOrdinal,
+    errOrdXMustNotBeNegative,
+    errLenXinvalid,
+    errWrongNumberOfVariables,
+    errExprCannotBeRaised,
+    errBreakOnlyInLoop,
+    errTypeXhasUnknownSize,
+    errConstNeedsConstExpr,
+    errConstNeedsValue,
+    errResultCannotBeOpenArray,
+    errSizeTooBig,
+    errSetTooBig,
+    errBaseTypeMustBeOrdinal,
+    errInheritanceOnlyWithNonFinalObjects,
+    errInheritanceOnlyWithEnums,
+    errIllegalRecursionInTypeX,
+    errCannotInstantiateX,
+    errExprHasNoAddress,
+    errVarForOutParamNeeded,
+    errPureTypeMismatch,
+    errTypeMismatch,
+    errButExpected,
+    errButExpectedX,
+    errAmbigiousCallXYZ,
+    errWrongNumberOfTypeParams,
+    errOutParamNoDefaultValue,
+    errInlineProcHasNoAddress,
+    errXCannotBeInParamDecl,
+    errPragmaOnlyInHeaderOfProc,
+    errImplOfXNotAllowed,
+    errImplOfXexpected,
+    errNoSymbolToBorrowFromFound,
+    errDiscardValue,
+    errInvalidDiscard,
+    errUnknownPrecedence,
+    errIllegalConvFromXtoY,
+    errTypeMismatchExpectedXGotY,
+    errCannotBindXTwice,
+    errInvalidOrderInEnumX,
+    errEnumXHasWholes,
+    errExceptExpected,
+    errInvalidTry,
+    errEofExpectedButXFound,
+    errOptionExpected,
+    errCannotEvaluateForwardConst,
+    errXisNoLabel,
+    errXNeedsConcreteType,
+    errNotAllCasesCovered,
+    errStringRange,
+    errUnkownSubstitionVar,
+    errComplexStmtRequiresInd,
+    errXisNotCallable,
+    errNoPragmasAllowedForX,
+    errNoGenericParamsAllowedForX,
+    errInvalidParamKindX,
+    errDefaultArgumentInvalid,
+    errNamedParamHasToBeIdent,
+    errNoReturnTypeForX,
+    errConvNeedsOneArg,
+    errInvalidPragmaX,
+    errXNotAllowedHere,
+    errInvalidControlFlowX,
+    errATypeHasNoValue,
+    errXisNoType,
+    errCircumNeedsPointer,
+    errInvalidContextForBuiltinX,
+    errInvalidExpression,
+    errInvalidExpressionX,
+    errEnumHasNoValueX,
+    errNamedExprExpected,
+    errNamedExprNotAllowed,
+    errXExpectsOneTypeParam,
+    errArrayExpectsTwoTypeParams,
+    errInvalidVisibilityX,
+    errInitHereNotAllowed,
+    errXCannotBeAssignedTo,
+    errIteratorNotAllowed,
+    errIteratorNeedsImplementation,
+    errIteratorNeedsReturnType,
+    errInvalidCommandX,
+    errXOnlyAtModuleScope,
+    errTypeXNeedsImplementation,
+    errTemplateInstantiationTooNested,
+    errInstantiationFrom,
+    errInvalidIndexValueForTuple,
+    errCommandExpectsFilename,
+    errXExpected,
+    errInvalidSectionStart,
+    errGridTableNotImplemented,
+    errGeneralParseError,
+    errNewSectionExpected,
+    errWhitespaceExpected,
+    errXisNoValidIndexFile,
+    errCannotRenderX,
+    errVarVarTypeNotAllowed,
+    errIsExpectsTwoArguments,
+    errIsExpectsObjectTypes,
+    errXcanNeverBeOfThisSubtype,
+    errTooManyIterations,
+    errCannotInterpretNodeX,
+    errFieldXNotFound,
+    errInvalidConversionFromTypeX,
+    errAssertionFailed,
+    errCannotGenerateCodeForX,
+    errXNeedsReturnType,
+    errXRequiresOneArgument,
+    errUnhandledExceptionX,
+    errCyclicTree,
+    errXisNoMacroOrTemplate,
+    errUser,
+    warnCannotOpenFile,
+    warnOctalEscape,
+    warnXIsNeverRead,
+    warnXmightNotBeenInit,
+    warnCannotWriteMO2,
+    warnCannotReadMO2,
+    warnDeprecated,
+    warnSmallLshouldNotBeUsed,
+    warnUnknownMagic,
+    warnRedefinitionOfLabel,
+    warnUnknownSubstitutionX,
+    warnLanguageXNotSupported,
+    warnCommentXIgnored,
+    warnUser,
+    hintSuccess,
+    hintSuccessX,
+    hintLineTooLong,
+    hintXDeclaredButNotUsed,
+    hintConvToBaseNotNeeded,
+    hintConvFromXtoItselfNotNeeded,
+    hintExprAlwaysX,
+    hintQuitCalled,
+    hintProcessing,
+    hintCodeBegin,
+    hintCodeEnd,
+    hintConf,
+    hintUser);
+
+const
+  MsgKindToStr: array [TMsgKind] of string = (
+    'unknown error',
+    'illformed AST: $1',
+    'cannot open ''$1''',
+    'internal error: $1',
+    '$1',
+    '''$1'' compiler does not support C++',
+    'string literal expected',
+    'integer literal expected',
+    'invalid character constant',
+    'closing """ expected, but end of file reached',
+    'closing " expected',
+    'tabulators are not allowed',
+    'invalid token: $1',
+    'line too long',
+    '$1 is not a valid number',
+    'number $1 out of valid range',
+    '\n not allowed in character literal',
+    'closing '']'' expected, but end of file reached',
+    'missing final ''',
+    'identifier expected, but found ''$1''',
+    'operator expected, but found ''$1''',
+    '''$1'' expected',
+    'string after ''include'' expected',
+    'recursive include file: ''$1''',
+    '''on'' or ''off'' expected',
+    '''none'', ''speed'' or ''size'' expected',
+    'invalid pragma',
+    'unknown pragma: ''$1''',
+    'pragma ''$1'' here not allowed',
+    'unknown directive: ''$1''',
+    'invalid directive',
+    '''pop'' without a ''push'' pragma',
+    'empty asm statement makes no sense',
+    '''='' invalid in an expression; probably ''=='' meant',
+    'invalid indentation',
+    'exception expected',
+    'exception already handled',
+    '''return'' only allowed in routine',
+    '''yield'' only allowed in a loop of an iterator',
+    'invalid number of ''yield'' expresions',
+    '''return'' not allowed in iterator',
+    'current routine cannot return an expression',
+    'attempt to redefine ''$1''',
+    'statement not allowed after ''return'', ''break'' or ''raise''',
+    'statement expected',
+    '''$1'' is no label',
+    'invalid command line option: ''$1''',
+    'argument for command line option expected: ''$1''',
+    'invalid argument for command line option: ''$1''',
+    'invalid variable substitution in ''$1''',
+    'unknown variable: ''$1''',
+    'unknown C compiler: ''$1''',
+    '''on'' or ''off'' expected, but ''$1'' found',
+    '''none'', ''boehm'' or ''refc'' expected, but ''$1'' found',
+    '''none'', ''speed'' or ''size'' expected, but ''$1'' found',
+    '''gui'', ''console'' or ''lib'' expected, but ''$1'' found',
+    'unknown OS: ''$1''',
+    'unknown CPU: ''$1''',
+    '''c'', ''c++'' or ''yaml'' expected, but ''$1'' found',
+    'arguments can only be given if the ''--run'' option is selected',
+    'multiple assignment is not allowed',
+    ''':'' or ''='' expected, but found ''$1''',
+    'expression expected, but found ''$1''',
+    'undeclared identifier: ''$1''',
+    'ambigious identifier: ''$1'' -- use a qualifier',
+    '''$1'' is forwarded twice',
+    'type expected',
+    'system module needs ''$1''',
+    'execution of an external program failed',
+    'overloaded ''$1'' leads to ambigious calls',
+    'invalid argument for ''$1''',
+    'statement has no effect',
+    '''$1'' expects a type or value',
+    '''$1'' expects an array type',
+    '''$1'' cannot be instantiated because its body has not been compiled yet',
+    'expression with no type cannot be converted',
+    'expression with no type cannot be casted',
+    'constant division by zero',
+    'ordinal type expected',
+    'ordinal or float type expected',
+    'over- or underflow',
+    'cannot evalutate ''$1'' because type is not defined completely',
+    '''chr'' expects an int in the range 0..255',
+    '''staticAssert'' failed: condition is false',
+    'argument to ''staticAssert'' cannot be evaluated at compile time',
+    '''.'' requires a record or object type',
+    'undeclared field: ''$1''',
+    'attempt to access a nil address',
+    'index out of bounds',
+    'index types do not match',
+    '''[]'' operator invalid for this type',
+    'value out of set bounds',
+    'field initialized twice: ''$1''',
+    'field ''$1'' not initialized',
+    'expression cannot be called',
+    'expression has no type',
+    'expression ''$1'' has no type',
+    '''cast'' not allowed in safe mode',
+    'expression cannot be casted to $1',
+    'undefined prefix operator: $1',
+    ''','' or '')'' expected',
+    '''{'' or ''('' expected',
+    'section (''type'', ''proc'', etc.) expected',
+    '''implementation'' or end of file expected',
+    'range expected',
+    'invalid type description',
+    'attempt to redefine ''$1''',
+    '''magic'' only allowed in system module',
+    'unkown operator: ''$1''',
+    'power of two expected',
+    'string literal may not be empty',
+    'calling convention expected',
+    'a proc can only have one calling convention',
+    'symbol must be imported if ''lib'' pragma is used',
+    'expression must be of type ''bool''',
+    'constant expression expected',
+    'duplicate case label',
+    'range is empty',
+    'selector must be of an ordinal type, real or string',
+    'selector must be of an ordinal type',
+    'ord($1) must not be negative',
+    'len($1) must be less than 32768',
+    'wrong number of variables',
+    'only objects can be raised',
+    '''break'' only allowed in loop construct',
+    'type ''$1'' has unknown size',
+    'a constant can only be initialized with a constant expression',
+    'a constant needs a value',
+    'the result type cannot be on open array',
+    'computing the type''s size produced an overflow',
+    'set is too large',
+    'base type of a set must be an ordinal',
+    'inheritance only works with non-final objects',
+    'inheritance only works with an enum',
+    'illegal recursion in type ''$1''',
+    'cannot instantiate: ''$1''',
+    'expression has no address',
+    'for a ''var'' type a variable needs to be passed',
+    'type mismatch',
+    'type mismatch: got (',
+    'but expected one of: ',
+    'but expected ''$1''',
+    'ambigious call; both $1 and $2 match for: $3',
+    'wrong number of type parameters',
+    'out parameters cannot have default values',
+    'an inline proc has no address',
+    '$1 cannot be declared in parameter declaration',
+    'pragmas are only in the header of a proc allowed',
+    'implementation of ''$1'' is not allowed',
+    'implementation of ''$1'' expected',
+    'no symbol to borrow from found',
+    'value returned by statement has to be discarded',
+    'statement returns no value that can be discarded',
+    'unknown precedence for operator; use ''infix: prec'' pragma',
+    'conversion from $1 to $2 is invalid',
+    'type mismatch: expected ''$1'', but got ''$2''',
+    'cannot bind parameter ''$1'' twice',
+    'invalid order in enum ''$1''',
+    'enum ''$1'' has wholes',
+    '''except'' or ''finally'' expected',
+    'after catch all ''except'' or ''finally'' no section may follow',
+    'end of file expected, but found token ''$1''',
+    'option expected, but found ''$1''',
+    'cannot evaluate forwarded constant',
+    '''$1'' is not a label',
+    '''$1'' needs to be of a non-generic type',
+    'not all cases are covered',
+    'string range in case statement not allowed',
+    'unknown substitution variable: ''$1''',
+    'complex statement requires indentation',
+    '''$1'' is not callable',
+    'no pragmas allowed for $1',
+    'no generic parameters allowed for $1',
+    'invalid param kind: ''$1''',
+    'default argument invalid',
+    'named parameter has to be an identifier',
+    'no return type for $1 allowed',
+    'a type conversion needs exactly one argument',
+    'invalid pragma: $1',
+    '$1 here not allowed',
+    'invalid control flow: $1',
+    'a type has no value',
+    'invalid type: ''$1''',
+    '''^'' needs a pointer or reference type',
+    'invalid context for builtin ''$1''',
+    'invalid expression',
+    'invalid expression: ''$1''',
+    'enum has no value ''$1''',
+    'named expression expected',
+    'named expression here not allowed',
+    '''$1'' expects one type parameter',
+    'array expects two type parameters',
+    'invalid invisibility: ''$1''',
+    'initialization here not allowed',
+    '''$1'' cannot be assigned to',
+    'iterators can only be defined at the module''s top level',
+    'iterator needs an implementation',
+    'iterator needs a return type',
+    'invalid command: ''$1''',
+    '''$1'' is only allowed at top level',
+    'type ''$1'' needs an implementation',
+    'template instantiation too nested',
+    'instantiation from here',
+    'invalid index value for tuple subscript',
+    'command expects a filename argument',
+    '''$1'' expected',
+    'invalid section start',
+    'grid table is not implemented',
+    'general parse error',
+    'new section expected',
+    'whitespace expected, got ''$1''',
+    '''$1'' is no valid index file',
+    'cannot render reStructuredText element ''$1''',
+    'type ''var var'' is not allowed',
+    '''is'' expects two arguments',
+    '''is'' expects object types',
+    '''$1'' can never be of this subtype',
+    'interpretation requires too many iterations',
+    'cannot interpret node kind ''$1''',
+    'field ''$1'' cannot be found',
+    'invalid conversion from type ''$1''',
+    'assertion failed',
+    'cannot generate code for ''$1''',
+    'converter needs return type',
+    'converter requires one parameter',
+    'unhandled exception: $1',
+    'macro returned a cyclic abstract syntax tree',
+    '''$1'' is no macro or template',
+    '$1',
+    'cannot open ''$1'' [CannotOpenFile]',
+    'octal escape sequences do not exist; leading zero is ignored [OctalEscape]',
+    '''$1'' is never read [XIsNeverRead]',
+    '''$1'' might not have been initialized [XmightNotBeenInit]',
+    'cannot write file ''$1'' [CannotWriteMO2]',
+    'cannot read file ''$1'' [CannotReadMO2]',
+    '''$1'' is deprecated [Deprecated]',
+    '''l'' should not be used as an identifier; may look like ''1'' (one) [SmallLshouldNotBeUsed]',
+    'unknown magic ''$1'' might crash the compiler [UnknownMagic]',
+    'redefinition of label ''$1'' [RedefinitionOfLabel]',
+    'unknown substitution ''$1'' [UnknownSubstitutionX]',
+    'language ''$1'' not supported [LanguageXNotSupported]',
+    'comment ''$1'' ignored [CommentXIgnored]',
+    '$1 [User]',
+    'operation successful [Success]',
+    'operation successful ($1 lines compiled; $2 sec total) [SuccessX]',
+    'line too long [LineTooLong]',
+    '''$1'' is declared but not used [XDeclaredButNotUsed]',
+    'conversion to base object is not needed [ConvToBaseNotNeeded]',
+    'conversion from $1 to itself is pointless [ConvFromXtoItselfNotNeeded]',
+    'expression evaluates always to ''$1'' [ExprAlwaysX]',
+    'quit() called [QuitCalled]',
+    '$1 [Processing]',
+    'generated code listing: [CodeBegin]',
+    'end of listing [CodeEnd]',
+    'used config file ''$1'' [Conf]',
+    '$1 [User]'
+  );
+const
+  WarningsToStr: array [0..13] of string = (
+    'CannotOpenFile',
+    'OctalEscape',
+    'XIsNeverRead',
+    'XmightNotBeenInit',
+    'CannotWriteMO2',
+    'CannotReadMO2',
+    'Deprecated',
+    'SmallLshouldNotBeUsed',
+    'UnknownMagic',
+    'RedefinitionOfLabel',
+    'UnknownSubstitutionX',
+    'LanguageXNotSupported',
+    'CommentXIgnored',
+    'User'
+  );
+const
+  HintsToStr: array [0..12] of string = (
+    'Success',
+    'SuccessX',
+    'LineTooLong',
+    'XDeclaredButNotUsed',
+    'ConvToBaseNotNeeded',
+    'ConvFromXtoItselfNotNeeded',
+    'ExprAlwaysX',
+    'QuitCalled',
+    'Processing',
+    'CodeBegin',
+    'CodeEnd',
+    'Conf',
+    'User'
+  );
 //[[[end]]]
 
 const