Ver código fonte

* commented a few left over "alias" debug msg

git-svn-id: trunk@19049 -
marco 14 anos atrás
pai
commit
2aebae2846
1 arquivos alterados com 2 adições e 2 exclusões
  1. 2 2
      utils/fpdoc/dglobals.pp

+ 2 - 2
utils/fpdoc/dglobals.pp

@@ -813,11 +813,11 @@ begin
         result:=ResolveAliasType(clname);
         result:=ResolveAliasType(clname);
         if assigned(result) then
         if assigned(result) then
           begin
           begin
-            writeln('found alias ',clname,' (',s,') ',result.classname);  
+//            writeln('found alias ',clname,' (',s,') ',result.classname);  
           end
           end
         else
         else
           begin
           begin
-            writeln('new alias ',clname,' (',s,') ');
+//            writeln('new alias ',clname,' (',s,') ');
             cl2.addref;
             cl2.addref;
             Result := TPasAliasType(CreateElement(TPasAliasType,s,module.interfacesection,vispublic,'',0));
             Result := TPasAliasType(CreateElement(TPasAliasType,s,module.interfacesection,vispublic,'',0));
             module.interfacesection.Declarations.Add(Result);
             module.interfacesection.Declarations.Add(Result);