# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1557866539 -7200
# Node ID f27f00fabc0dd5c2b51f564f5981d3393f2f5b69
# Parent  414924c06704ef057b1813d4a8a1ac51d7ebbc85
Don't use Str2PChar twice in a row

diff -r 414924c06704 -r f27f00fabc0d hedgewars/uUtils.pas
--- a/hedgewars/uUtils.pas	Tue May 14 23:25:49 2019 +0300
+++ b/hedgewars/uUtils.pas	Tue May 14 22:42:19 2019 +0200
@@ -526,7 +526,7 @@
 end;
 
 procedure AddFileLogRaw(s: pchar); cdecl;
-var tmp: shortstring;
+var msgLine: PChar;
 begin
 s:= s;
 {$IFNDEF PAS2C}
@@ -535,15 +535,15 @@
 if SDL_LockMutex(logMutex) <> 0 then
     OutError('Logging mutex could not be locked!', true);
 {$ENDIF}
-tmp:= IntToStr(GameTicks) + ': ';
+msgLine:= Str2PChar(IntToStr(GameTicks) + ': ');
 if (logFile <> nil) then
     begin
-    pfsWriteRaw(logFile, Str2PChar(tmp), StrLen(Str2PChar(tmp)));
+    pfsWriteRaw(logFile, msgLine, StrLen(msgLine));
     pfsWriteRaw(logFile, s, StrLen(s));
     end
 else
     begin
-    Write(stdout, Str2PChar(tmp));
+    Write(stdout, msgLine);
     Flush(stdout);
     end;
 {$IFDEF USE_VIDEO_RECORDING}