Explorar o código

* remove debug writeln

git-svn-id: trunk@11954 -
peter %!s(int64=17) %!d(string=hai) anos
pai
achega
eb51a56199
Modificáronse 1 ficheiros con 0 adicións e 1 borrados
  1. 0 1
      utils/fppkg/pkgrepos.pp

+ 0 - 1
utils/fppkg/pkgrepos.pp

@@ -294,7 +294,6 @@ procedure FindInstalledPackages(ACompilerOptions:TCompilerOptions;showdups:boole
       begin
         Log(vlDebug,SLogFindInstalledPackages,[AUnitDir]);
         repeat
-writeln(SR.Name);
           if ((SR.Attr and faDirectory)=faDirectory) and (SR.Name<>'.') and (SR.Name<>'..') then
             begin
               UD:=IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(AUnitDir)+SR.Name);