--- a/hedgewars/uTouch.pas	Sun Oct 21 01:28:33 2012 +0400
+++ b/hedgewars/uTouch.pas	Sat Nov 03 00:34:35 2012 +0400
@@ -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.