paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use stdout only

Browse Source 
git-svn-id: trunk@11957 -
This commit is contained in:
peter 2008-10-23 20:05:59 +00:00
parent d1aeec64bf
commit 2a621bbaba
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fpmkunit/src/fpmkunit.pp
View File

@ -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;