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

Codetools: Prevent a wrong error message about ancestor having same name. Issue #24502, patch from ocean.

Browse Source 
git-svn-id: trunk@44513 -
This commit is contained in:
juha 2014-03-24 22:29:25 +00:00
parent 57685b5e28
commit 32adb07f4c
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/finddeclarationtool.pas
View File

@ -5768,13 +5768,6 @@ begin
AtomIsIdentifierE; AtomIsIdentifierE;
AncestorStartPos:=CurPos.StartPos; AncestorStartPos:=CurPos.StartPos;
end; end;
if (ClassIdentNode<>nil)
and (ClassIdentNode.Desc=ctnTypeDefinition)
and (CompareIdentifiers(@Src[AncestorStartPos],@Src[ClassIdentNode.StartPos])=0)
then begin
MoveCursorToCleanPos(AncestorStartPos);
RaiseException('ancestor has same name as class');
end;
{$IFDEF ShowTriedContexts} {$IFDEF ShowTriedContexts}
DebugLn('[TFindDeclarationTool.FindAncestorOfClass] ', DebugLn('[TFindDeclarationTool.FindAncestorOfClass] ',
' search ancestor class = ',GetIdentifier(@Src[AncestorStartPos])); ' search ancestor class = ',GetIdentifier(@Src[AncestorStartPos]));