浏览代码

* Remove some debugging statements

Michael VAN CANNEYT 2 年之前
父节点
当前提交
82f9ac9052
共有 1 个文件被更改,包括 0 次插入2 次删除
  1. 0 2
      compiler/utils/fpc.pp

+ 0 - 2
compiler/utils/fpc.pp

@@ -67,7 +67,6 @@ program fpc;
     var
       Info : TSearchRec;
     begin
-      Writeln('Testing :',F);
       FileExists:= findfirst(F,fareadonly+faarchive+fahidden,info)=0;
       findclose(Info);
     end;
@@ -327,7 +326,6 @@ program fpc;
      // -x was specified.
      if exesuffix<>'' then
        ppcbin:=ppcbin+'-'+exesuffix;
-     Writeln('ppcbin: ',ppcbin);
      { find the full path to the specified exe }
      // If an architecture was defined, check that first.
      found:=false;