mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-19 17:49:14 +02:00
* Removed debug-code accidentally introduced in r19952 that fails to compile on some targets
git-svn-id: trunk@19958 -
This commit is contained in:
parent
bbe579131b
commit
f995da2746
@ -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;
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user