瀏覽代碼

Merged revisions 11957 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r11957 | peter | 2008-10-23 22:05:59 +0200 (Thu, 23 Oct 2008) | 2 lines

* use stdout only
........

git-svn-id: branches/fixes_2_2@12127 -

peter 17 年之前
父節點
當前提交
e51ce1ccb3
共有 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);
 procedure TCustomInstaller.Log(Level: TVerboseLevel; const Msg: String);
 begin
 begin
   If Level in FLogLevels then
   If Level in FLogLevels then
-    begin
-      if Level in [vlError,vlWarning] then
-        Writeln(StdErr,Msg)
-      else
-        Writeln(StdOut,Msg);
-    end;
+    Writeln(StdOut,Msg);
 end;
 end;