paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 07:40:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: PasHighLighter, small optimization (avoid re-calling function)

Browse Source 
git-svn-id: trunk@60701 -
This commit is contained in:
martin 2019-03-16 16:21:03 +00:00
parent f531a8c563
commit 6fb76ef066
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synhighlighterpas.pp
View File

@ -3308,8 +3308,11 @@ begin
end;
function TSynPasSyn.GetTokenAttribute: TSynHighlighterAttributes;
var
tid: TtkTokenKind;
begin
case GetTokenID of
tid := GetTokenID;
case tid of
tkAsm: Result := fAsmAttri;
tkComment: Result := fCommentAttri;
tkIDEDirective: begin
@ -3329,14 +3332,14 @@ begin
Result := nil;
end;
if FTokenIsCaseLabel and (GetTokenID in [tkIdentifier, tkKey, tkNumber, tkString])
if FTokenIsCaseLabel and (tid in [tkIdentifier, tkKey, tkNumber, tkString])
then begin
FCurCaseLabelAttri.Assign(Result);
FCurCaseLabelAttri.Merge(FCaseLabelAttri);
Result := FCurCaseLabelAttri;
end;
if (GetTokenID in [tkIdentifier, tkSymbol]) and
if (tid in [tkIdentifier, tkSymbol]) and
(fRange * [rsInProcHeader, rsAfterEqualOrColon, rsAfterEqual] = [rsInProcHeader]) and
(FOldRange * [rsAfterEqualOrColon, rsAfterEqual] = []) and
(PasCodeFoldRange.BracketNestLevel = 0)