--- a/hedgewars/uTypes.pas	Fri Jul 19 04:51:08 2013 +0300
+++ b/hedgewars/uTypes.pas	Sat Jul 27 17:23:26 2013 +0300
@@ -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;
@@ -469,15 +467,15 @@
 
     POnScreenWidget = ^TOnScreenWidget;
     TOnScreenWidget = record
-        show          : boolean;                      // if false widget will not be drawn
-        sprite        : TSprite;                    // a convenience type
-        frame         : TSDL_Rect;                   // graphical coordinates
-        active        : TSDL_Rect;                  // active touch region
-        fadeAnimStart : Longword;            // time the fade started, 0 means don't fade
-        moveAnim      : TWidgetMovement;          // the animation associated to the widget
+        show          : boolean;            // if false widget will not be drawn
+        sprite        : TSprite;            // a convenience type
+        frame         : TSDL_Rect;          // graphical coordinates
+        active        : TSDL_Rect;          // active touch region
+        fadeAnimStart : Longword;           // time the fade started
+                                            //     (0 means do not fade)
+        moveAnim      : TWidgetMovement;    // animation associated to widget
         end;
 
-{$IFDEF SDL13}
     PTouch_Data = ^TTouch_Data;
     TTouch_Data = record
         id                       : TSDL_FingerId;
@@ -487,7 +485,6 @@
         timeSinceDown            : Longword;
         pressedWidget            : POnScreenWidget;
         end;
-{$ENDIF}
 
 implementation