diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas
index b934a57d322936773b1e22a76ed5ba74aae739ff..8ffb75d0d852147ac6cc227e63ceded7cc7123a0 100644 (file)
--- a/src/engine/e_log.pas
+++ b/src/engine/e_log.pas
implementation
uses
- conbuf, utils;
+ SDL2, conbuf, utils;
var
FirstRecord: Boolean;
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);