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

diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas
index b934a57..8ffb75d 100644
--- a/src/engine/e_log.pas
+++ b/src/engine/e_log.pas
@@ -54,7 +54,7 @@ var
 implementation
 
 uses
-  conbuf, utils;
+  SDL2, conbuf, utils;
 
 var
   FirstRecord: Boolean;
@@ -89,9 +89,20 @@ var
   ss: ShortString;
   slen: Integer;
   b: PByte;
+  cstr: PChar;
 begin
   if (len < 1) then exit;
   b := PByte(@buf);
+
+{$IFDEF ANDROID}
+  cstr := GetMem(len + 1);
+  for slen := 0 to len - 1 do
+    cstr[slen] := Char(b[slen]);
+  cstr[slen + 1] := #0;
+  SDL_Log(cstr, []);
+  Dispose(cstr);
+{$ENDIF ANDROID}
+
   while (len > 0) do
   begin
     if (len > 255) then slen := 255 else slen := Integer(len);