소스 검색

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