--- a/hedgewars/hwengine.pas	Sat Aug 08 22:08:43 2015 +0200
+++ b/hedgewars/hwengine.pas	Sat Aug 08 22:45:23 2015 +0200
@@ -44,6 +44,9 @@
 procedure preInitEverything();
 procedure initEverything(complete:boolean);
 procedure freeEverything(complete:boolean);
+{$IFDEF MOBILE}
+procedure GenLandPreview; cdecl; export;
+{$ENDIF MOBILE}
 
 implementation
 {$ELSE}
@@ -540,7 +543,7 @@
 end;
 
 ///////////////////////////////////////////////////////////////////////////////
-procedure GenLandPreview;
+procedure GenLandPreview;{$IFDEF MOBILE} cdecl; export;{$ENDIF MOBILE}
 var Preview: TPreviewAlpha;
 begin
     initEverything(false);