فهرست منبع

* Add backwards compatibility lookup for operators

git-svn-id: trunk@31233 -
michael 10 سال پیش
والد
کامیت
a32160131b
1فایلهای تغییر یافته به همراه4 افزوده شده و 0 حذف شده
  1. 4 0
      utils/fpdoc/dglobals.pp

+ 4 - 0
utils/fpdoc/dglobals.pp

@@ -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