瀏覽代碼

* remove debug writeln

git-svn-id: trunk@11954 -
peter 17 年之前
父節點
當前提交
eb51a56199
共有 1 個文件被更改,包括 0 次插入1 次删除
  1. 0 1
      utils/fppkg/pkgrepos.pp

+ 0 - 1
utils/fppkg/pkgrepos.pp

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