--- a/hedgewars/uTouch.pas Fri Oct 26 14:13:09 2012 +0100
+++ b/hedgewars/uTouch.pas Mon Oct 29 21:46:50 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.