paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 20:42:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Jedi code format: recognize "sealed" / "abstract" for inheriting objects.

Browse Source 
(cherry picked from commit 3ff5d50aaa)
This commit is contained in:
DomingoGP 2023-11-25 12:05:23 +01:00
parent f8ce545ba2
commit 88eb9d53cd
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/jcf2/Parse/BuildParseTree.pas
View File

@ -4594,6 +4594,12 @@ begin
Recognise(ttObject);
if fcTokenList.FirstSolidTokenType = ttSealed then
Recognise(ttSealed);
if fcTokenList.FirstSolidTokenType = ttAbstract then
Recognise(ttAbstract);
if fcTokenList.FirstSolidTokenType = ttOpenBracket then
RecogniseObjHeritage;