X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_log.pas;h=22db6527781c00ec9d8301d13e2b705a5365c7e4;hb=af1787819fb852141cfca39a570927c0d48ddb6a;hp=8ffb75d0d852147ac6cc227e63ceded7cc7123a0;hpb=92b319e1feed5079e42c779aa49b12ffa8672f54;p=d2df-sdl.git

diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas
index 8ffb75d..22db652 100644
--- a/src/engine/e_log.pas
+++ b/src/engine/e_log.pas
@@ -89,7 +89,9 @@ var
   ss: ShortString;
   slen: Integer;
   b: PByte;
+{$IFDEF ANDROID}
   cstr: PChar;
+{$ENDIF}
 begin
   if (len < 1) then exit;
   b := PByte(@buf);
@@ -97,11 +99,11 @@ begin
 {$IFDEF ANDROID}
   cstr := GetMem(len + 1);
   for slen := 0 to len - 1 do
-    cstr[slen] := Char(b[slen]);
-  cstr[slen + 1] := #0;
+    cstr[slen] := Chr(b[slen]);
+  cstr[len] := #0;
   SDL_Log(cstr, []);
   Dispose(cstr);
-{$ENDIF ANDROID}
+{$ENDIF}
 
   while (len > 0) do
   begin