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

CodeTools: Allow a "var" section inside a record with {$modeswitch advancedrecords}. Issue #38957, patch by Domingo Galmés.

Browse Source 
git-svn-id: trunk@65275 -
This commit is contained in:
juha 2021-06-18 17:58:28 +00:00
parent 03f68b4474
commit 57339c6efd
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/pascalparsertool.pas
View File

@ -5199,9 +5199,8 @@ begin
if not UpAtomIs('CASE') then if not UpAtomIs('CASE') then
SaveRaiseException(20170421195151,'[TPascalParserTool.KeyWordFuncTypeRecordCase] ' SaveRaiseException(20170421195151,'[TPascalParserTool.KeyWordFuncTypeRecordCase] '
+'internal error'); +'internal error');
if (CurNode.Desc=ctnRecordVariant) if (CurNode.Desc in [ctnRecordVariant,ctnVarSection,ctnClassClassVar])
or ((CurNode.Desc in AllClassSections) or ((CurNode.Desc in AllClassSections) and (CurNode.Parent.Desc=ctnRecordType))
and (CurNode.Parent.Desc=ctnRecordType))
then begin then begin
// ok // ok
end else begin end else begin