paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-05 00:13:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: remove obsolete StrConstTokenTypeName, use WriteStr

Browse Source 
git-svn-id: trunk@33242 -
This commit is contained in:
juha 2011-11-02 23:18:36 +00:00
parent 07d9921f94
commit 53677b7b83
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/codetools/stdcodetools.pas
View File

@ -3225,14 +3225,12 @@ type
scatEdgedBracketOpen, scatEdgedBracketClose,
scatRoundBracketOpen, scatRoundBracketClose);
{$IFDEF VerboseGetStringConstBounds}
const
StrConstTokenTypeName: array[TStrConstTokenType] of string = (
'scatNone', 'scatStrConst', 'scatPlus', 'scatIdent',
'scatInherited', 'scatPoint', 'scatUp',
'scatEdgedBracketOpen', 'scatEdgedBracketClose',
'scatRoundBracketOpen', 'scatRoundBracketClose');
{$ENDIF}
{$IFDEF VerboseGetStringConstBounds}
function EnumToStr(TokenType: TStrConstTokenType): string;
begin
WriteStr(Result, TokenType);
end;
{$ENDIF}
function GetCurrentTokenType: TStrConstTokenType;
begin
@ -3297,9 +3295,8 @@ begin
CurrentToken:=GetCurrentTokenType;
{$IFDEF VerboseGetStringConstBounds}
DebugLn('TStandardCodeTool.GetStringConstBounds Read Forward: ',GetAtom,' EndCleanPos=',dbgs(EndCleanPos),
' LastToken=',StrConstTokenTypeName[LastToken],
' CurrentToken=',StrConstTokenTypeName[CurrentToken],
' ',StrConstTokenTypeName[GetCurrentTokenType]);
' LastToken=',EnumToStr(LastToken),
' CurrentToken=',EnumToStr(CurrentToken),' ',EnumToStr(GetCurrentTokenType));
{$ENDIF}
case CurrentToken of
scatNone, scatEdgedBracketClose, scatRoundBracketClose: