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

codetools: parse external class const

Browse Source 
git-svn-id: trunk@57954 -
This commit is contained in:
mattias 2018-05-18 08:04:31 +00:00
parent 167c4c911d
commit d36c84686d
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -1664,8 +1664,8 @@ begin
NewItem.IdentifierStartInUnitName := 1;
{$IFDEF VerboseICGatherUnitNames}
//debugln(['TIdentCompletionTool.GatherUnitnames Add ',UnitFileInfo.FileUnitName,' NewCount=',CurrentIdentifierList]);
CurrentIdentifierList.Add(NewItem);
{$ENDIF}
CurrentIdentifierList.Add(NewItem);
end;
end;
if FIDTTreeOfNamespaces<>nil then

6
components/codetools/pascalparsertool.pas
View File

@ -4030,7 +4030,11 @@ begin
end;
end else begin
UndoReadNextAtom;
SaveRaiseCharExpectedButAtomFound(20180507200240,'=');
if (CurNode.Parent.Desc=ctnConstSection)
and (CurNode.Parent.Parent.Desc in AllClassBaseSections) then
// ok
else
SaveRaiseCharExpectedButAtomFound(20180507200240,'=');
end;
end else
ReadConstExpr;