--- a/hedgewars/uConsole.pas	Tue Nov 11 21:55:38 2014 +0100
+++ b/hedgewars/uConsole.pas	Tue Nov 11 23:57:46 2014 +0300
@@ -24,7 +24,6 @@
 
 procedure WriteToConsole(s: shortstring);
 procedure WriteLnToConsole(s: shortstring);
-function  ShortStringAsPChar(s: shortstring): PChar;
 
 var lastConsoleline : shortstring;
 
@@ -55,14 +54,15 @@
 {$ENDIF}
     lastConsoleline:= s;
 end;
-
+{$IFDEF ANDROID}
 function ShortStringAsPChar(s: shortstring) : PChar;
 begin
     if Length(s) = High(s) then
         Dec(s[0]);
     s[Ord(Length(s))+1] := #0;
+    // returning pointer to stack, rly?
     ShortStringAsPChar:= @s[1];
 end;
-
+{$ENDIF}
 
 end.