paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add backwards compatibility lookup for operators

Browse Source 
git-svn-id: trunk@31233 -
This commit is contained in:
michael 2015-07-26 08:11:06 +00:00
parent 798192ba70
commit a32160131b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/fpdoc/dglobals.pp
View File

@ -1514,7 +1514,11 @@ begin
if AElement.InheritsFrom(TPasUnresolvedTypeRef) then if AElement.InheritsFrom(TPasUnresolvedTypeRef) then
Result := FindDocNode(AElement.GetModule, AElement.Name) Result := FindDocNode(AElement.GetModule, AElement.Name)
else else
begin
Result := RootDocNode.FindChild(AElement.PathName); Result := RootDocNode.FindChild(AElement.PathName);
if (Result=Nil) and (AElement is TPasoperator) then
Result:=RootDocNode.FindChild(TPasOperator(AElement).OldName(True));
end;
if (Result=Nil) and if (Result=Nil) and
WarnNoNode and WarnNoNode and
(Length(AElement.PathName)>0) and (Length(AElement.PathName)>0) and