Explorar el Código

* Add backwards compatibility lookup for operators

git-svn-id: trunk@31233 -
michael hace 10 años
padre
commit
a32160131b
Se han modificado 1 ficheros con 4 adiciones y 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