--- a/hedgewars/uTypes.pas	Fri Jul 26 00:37:56 2013 +0200
+++ b/hedgewars/uTypes.pas	Fri Jul 26 23:02:25 2013 +0200
@@ -413,10 +413,8 @@
 
      cdeclPtr = procedure; cdecl;
      cdeclIntPtr = procedure(num: LongInt); cdecl;
-     functionDoublePtr = function: Double;
 
      TMobileRecord = record
-                     getScreenDPI: functionDoublePtr;
                      PerformRumble: cdeclIntPtr;
                      GameLoading: cdeclPtr;
                      GameLoaded: cdeclPtr;