--- a/hedgewars/uTouch.pas	Sun Oct 28 04:00:07 2012 +0100
+++ b/hedgewars/uTouch.pas	Sun Oct 28 04:28:39 2012 +0100
@@ -22,10 +22,11 @@
 
 interface
 
-uses SysUtils, uConsole, uVariables, SDLh, uFloat, uConsts, uCommands, uIO, GLUnit, uTypes, uCaptions, uAmmos, uWorld, uMobile;
+uses SysUtils, uConsole, uVariables, SDLh, uFloat, uConsts, uCommands, GLUnit, uTypes, uCaptions, uAmmos, uWorld, uMobile;
 
 
 procedure initModule;
+procedure freeModule;
 
 procedure ProcessTouch;
 procedure NewTurnBeginning;
@@ -643,5 +644,9 @@
     halfRectSize:= rectSize shl 1;
 end;
 
+procedure freeModule;
+begin
+end;
+
 begin
 end.