diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas
index 8ffb75d0d852147ac6cc227e63ceded7cc7123a0..22db6527781c00ec9d8301d13e2b705a5365c7e4 100644 (file)
--- a/src/engine/e_log.pas
+++ b/src/engine/e_log.pas
ss: ShortString;
slen: Integer;
b: PByte;
+{$IFDEF ANDROID}
cstr: PChar;
+{$ENDIF}
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;
+ cstr[slen] := Chr(b[slen]);
+ cstr[len] := #0;
SDL_Log(cstr, []);
Dispose(cstr);
-{$ENDIF ANDROID}
+{$ENDIF}
while (len > 0) do
begin