# HG changeset patch
# User nemo
# Date 1345653346 14400
# Node ID bdbb072b38b9bcf374ba1bc6e8e50953e44cebd5
# Parent  f415b3e0f3b96c91ef7e7bc01577c1fc652ae1b7
initModule really not needed for uRandom

diff -r f415b3e0f3b9 -r bdbb072b38b9 hedgewars/hwengine.pas
--- a/hedgewars/hwengine.pas	Wed Aug 22 11:42:42 2012 -0400
+++ b/hedgewars/hwengine.pas	Wed Aug 22 12:35:46 2012 -0400
@@ -416,7 +416,6 @@
         //uLandObjects does not need initialization
         //uLandTemplates does not need initialization
         //uLocale does not need initialization
-        uRandom.initModule;
         uScript.initModule;
         uSound.initModule;
         uStats.initModule;
@@ -444,7 +443,7 @@
         uStats.freeModule;          //stub
         uSound.freeModule;
         uScript.freeModule;
-        uRandom.freeModule;         //stub
+        //uRandom does not need to be freed
         //uLocale does not need to be freed
         //uLandTemplates does not need to be freed
         uLandTexture.freeModule;
diff -r f415b3e0f3b9 -r bdbb072b38b9 hedgewars/uRandom.pas
--- a/hedgewars/uRandom.pas	Wed Aug 22 11:42:42 2012 -0400
+++ b/hedgewars/uRandom.pas	Wed Aug 22 12:35:46 2012 -0400
@@ -65,7 +65,7 @@
 procedure SetRandomSeed(Seed: shortstring);
 var i: Longword;
 begin
-initModule;
+n:= 54;
 
 if Length(Seed) > 54 then
     Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf
@@ -99,15 +99,4 @@
 rndSign:= num
 end;
 
-procedure initModule;
-begin
-    n:= 54;
-    FillChar(cirbuf, 64*sizeof(Longword), 0);
-end;
-
-procedure freeModule;
-begin
-
-end;
-
 end.