paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: highlight noreturn directive

Browse Source 
git-svn-id: trunk@43647 -
This commit is contained in:
paul 2014-01-05 06:47:30 +00:00
parent a76c5900bc
commit 3b8a0d9df1
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synhighlighterpas.pp
View File

@ -405,6 +405,7 @@ type
function Func117: TtkTokenKind;
function Func122: TtkTokenKind; // "otherwise"
function Func124: TtkTokenKind;
function Func125: TtkTokenKind;
function Func126: TtkTokenKind;
function Func128: TtkTokenKind;
function Func129: TtkTokenKind;
@ -751,6 +752,7 @@ begin
fIdentFuncTable[117] := @Func117;
fIdentFuncTable[122] := @Func122;
fIdentFuncTable[124] := @Func124;
fIdentFuncTable[125] := @Func125;
fIdentFuncTable[126] := @Func126;
fIdentFuncTable[128] := @Func128;
fIdentFuncTable[129] := @Func129;
@ -1942,6 +1944,14 @@ begin
Result := tkIdentifier;
end;
function TSynPasSyn.Func125: TtkTokenKind;
begin
if KeyComp('NoReturn') and (TopPascalCodeFoldBlockType in ProcModifierAllowed) then
Result := tkKey
else
Result := tkIdentifier;
end;
function TSynPasSyn.Func126: TtkTokenKind;
begin
if D4syntax and KeyComp('Implements') then