Explorar o código

* Add backwards compatibility lookup for operators

git-svn-id: trunk@31233 -
michael %!s(int64=10) %!d(string=hai) anos
pai
achega
a32160131b
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      utils/fpdoc/dglobals.pp

+ 4 - 0
utils/fpdoc/dglobals.pp

@@ -1514,7 +1514,11 @@ begin
     if AElement.InheritsFrom(TPasUnresolvedTypeRef) then
       Result := FindDocNode(AElement.GetModule, AElement.Name)
     else
+      begin
       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
        WarnNoNode and
        (Length(AElement.PathName)>0) and