--- a/hedgewars/uRandom.pas	Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uRandom.pas	Tue Jan 26 21:55:51 2010 +0000
@@ -24,6 +24,8 @@
 {$INCLUDE "proto.inc"}
 
 procedure init_uRandom;
+procedure free_uRandom;
+
 procedure SetRandomSeed(Seed: shortstring);
 function  GetRandom: hwFloat; overload;
 function  GetRandom(m: LongWord): LongWord; overload;
@@ -99,4 +101,9 @@
 	n:= 54;
 end;
 
+procedure free_uRandom;
+begin
+
+end;
+
 end.