소스 검색

* use stdout only

git-svn-id: trunk@11957 -
peter 17 년 전
부모
커밋
2a621bbaba
1개의 변경된 파일1개의 추가작업 그리고 6개의 파일을 삭제
  1. 1 6
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 6
packages/fpmkunit/src/fpmkunit.pp

@@ -2625,12 +2625,7 @@ end;
 procedure TCustomInstaller.Log(Level: TVerboseLevel; const Msg: String);
 begin
   If Level in FLogLevels then
-    begin
-      if Level in [vlError,vlWarning] then
-        Writeln(StdErr,Msg)
-      else
-        Writeln(StdOut,Msg);
-    end;
+    Writeln(StdOut,Msg);
 end;