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

* Removed debug-code accidentally introduced in r19952 that fails to compile on some targets

Browse Source 
git-svn-id: trunk@19958 -
This commit is contained in:
joost 2012-01-03 14:42:28 +00:00
parent bbe579131b
commit f995da2746
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3400,7 +3400,7 @@ procedure TCustomInstaller.Log(Level: TVerboseLevel; Const Msg: String);
begin begin
If Level in FLogLevels then If Level in FLogLevels then
begin begin
Writeln(StdOut,hexStr(GetThreadID,8),': ', Msg); Writeln(StdOut, Msg);
Flush(StdOut); Flush(StdOut);
end; end;
end; end;
@ -3817,7 +3817,7 @@ end;
procedure TBuildEngine.Error(const Fmt: String; const Args: array of const); procedure TBuildEngine.Error(const Fmt: String; const Args: array of const);
begin begin
Raise EInstallerError.CreateFmt(hexStr(GetThreadID,8)+ ': '+Fmt,Args); Raise EInstallerError.CreateFmt(Fmt,Args);
end; end;