paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-15 23:20:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed error handling for invalid . operator

Browse Source 
git-svn-id: trunk@23512 -
This commit is contained in:
mattias 2010-01-20 23:12:24 +00:00
parent 44fe02f669
commit 48254f0c98
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/finddeclarationtool.pas
View File

@ -6354,11 +6354,11 @@ var
ReadNextAtom;
RaiseIdentExpected;
end;
ResolveBaseTypeOfIdentifier;
if (ExprType.Context.Node=nil) then begin
MoveCursorToCleanPos(CurAtom.StartPos);
RaiseIllegalQualifierFound;
end;
ResolveBaseTypeOfIdentifier;
if (ExprType.Context.Node.Desc in AllUsableSourceTypes) then begin
// identifier in front of the point is a unit name
{$IFDEF ShowExprEval}