get rid of fpc warnings/hints
authorsheepluva
Sat, 31 May 2014 00:33:51 +0200
changeset 10249 b47ac2c19de3
parent 10248 7b9b44a051f8
child 10250 887610b44848
get rid of fpc warnings/hints
hedgewars/uCommandHandlers.pas
hedgewars/uLand.pas
hedgewars/uLandGenPerlin.pas
hedgewars/uLocale.pas
hedgewars/uScript.pas
--- a/hedgewars/uCommandHandlers.pas	Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uCommandHandlers.pas	Sat May 31 00:33:51 2014 +0200
@@ -783,6 +783,7 @@
 
 procedure chAdvancedMapGenMode(var s:shortstring);
 begin
+  s:= s; // avoid compiler hint
   cAdvancedMapGenMode:= true;
 end;
 
--- a/hedgewars/uLand.pas	Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uLand.pas	Sat May 31 00:33:51 2014 +0200
@@ -20,7 +20,7 @@
 
 unit uLand;
 interface
-uses SDLh, uLandTemplates, uFloat, uConsts, uTypes, uAILandMarks;
+uses SDLh, uLandTemplates, uConsts, uTypes, uAILandMarks;
 
 procedure initModule;
 procedure freeModule;
@@ -32,7 +32,7 @@
 implementation
 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils,
      uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures,
-     uLandGenMaze, uLandOutline, uPhysFSLayer, uScript, uLandGenPerlin,
+     uLandGenMaze, uPhysFSLayer, uScript, uLandGenPerlin,
      uLandGenTemplateBased, uLandUtils;
 
 var digest: shortstring;
--- a/hedgewars/uLandGenPerlin.pas	Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uLandGenPerlin.pas	Sat May 31 00:33:51 2014 +0200
@@ -127,12 +127,12 @@
     height = 2048;
     minY = 500;
 
-    bottomPlateHeight = 90;
-    bottomPlateMargin = 1200;
+    //bottomPlateHeight = 90;
+    //bottomPlateMargin = 1200;
     margin = 200;
 
 procedure GenPerlin;
-var y, x, dy, di, dj, r: LongInt;
+var y, x, {dy, }di, dj, r: LongInt;
 begin
     inoise_setup();
 
--- a/hedgewars/uLocale.pas	Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uLocale.pas	Sat May 31 00:33:51 2014 +0200
@@ -52,6 +52,8 @@
 f:= pfsOpenRead(FileName);
 TryDo(f <> nil, 'Cannot load locale "' + FileName + '"', false);
 
+s:= '';
+
 if f <> nil then
     begin
     while not pfsEof(f) do
--- a/hedgewars/uScript.pas	Wed May 28 09:05:36 2014 +0400
+++ b/hedgewars/uScript.pas	Sat May 31 00:33:51 2014 +0200
@@ -2101,7 +2101,6 @@
 end;
 
 procedure ScriptOnPreviewInit;
-var i, j, k: LongInt;
 begin
 // not required if there is no script to run
 if not ScriptLoaded then