Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
drop SysUtils inclusion from 5 files where it is not needed anymore
authorsheepluva
Sun, 15 May 2016 23:11:14 +0200
changeset 11823 0fba6cb098a1
parent 11822 4600dcb9db4f
child 11824 3f1f8f79fcdb
drop SysUtils inclusion from 5 files where it is not needed anymore
hedgewars/LuaPas.pas file | annotate | diff | comparison | revisions
hedgewars/uMisc.pas file | annotate | diff | comparison | revisions
hedgewars/uRender.pas file | annotate | diff | comparison | revisions
hedgewars/uScript.pas file | annotate | diff | comparison | revisions
hedgewars/uSound.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/LuaPas.pas	Sun May 15 14:29:37 2016 +0300
+++ b/hedgewars/LuaPas.pas	Sun May 15 23:11:14 2016 +0200
@@ -805,7 +805,7 @@
 implementation
 
 uses
-  SysUtils, uUtils;
+  uUtils;
 
 (*****************************************************************************)
 (*                            luaconfig.h                                    *)
--- a/hedgewars/uMisc.pas	Sun May 15 14:29:37 2016 +0300
+++ b/hedgewars/uMisc.pas	Sun May 15 23:11:14 2016 +0200
@@ -33,7 +33,7 @@
 function  SDL_RectMake(x, y, width, height: LongInt): TSDL_Rect; inline;
 
 implementation
-uses SysUtils, uVariables, uUtils
+uses uVariables, uUtils
      {$IFDEF PNG_SCREENSHOTS}, PNGh, png {$ENDIF};
 
 type PScreenshot = ^TScreenshot;
--- a/hedgewars/uRender.pas	Sun May 15 14:29:37 2016 +0300
+++ b/hedgewars/uRender.pas	Sun May 15 23:11:14 2016 +0200
@@ -103,7 +103,7 @@
 
 
 implementation
-uses {$IFNDEF PAS2C} StrUtils, {$ENDIF}SysUtils, uVariables, uUtils, uConsts
+uses {$IFNDEF PAS2C} StrUtils, {$ENDIF}uVariables, uUtils, uConsts
      {$IFDEF GL2}, uMatrix, uConsole{$ENDIF}, uPhysFSLayer, uDebug;
 
 {$IFDEF USE_TOUCH_INTERFACE}
@@ -462,7 +462,8 @@
         begin
         // print up to 3 extentions per row
         // ExtractWord will return empty string if index out of range
-        AddFileLog(TrimRight(
+        //AddFileLog(TrimRight(
+        AddFileLog((
             ExtractWord(tmpint, tmpstr, [' ']) + ' ' +
             ExtractWord(tmpint+1, tmpstr, [' ']) + ' ' +
             ExtractWord(tmpint+2, tmpstr, [' '])
--- a/hedgewars/uScript.pas	Sun May 15 14:29:37 2016 +0300
+++ b/hedgewars/uScript.pas	Sun May 15 23:11:14 2016 +0200
@@ -81,7 +81,6 @@
     uRenderUtils,
     uTextures,
     uLandGraphics,
-    SysUtils,
     uUtils,
     uIO,
     uVisualGearsList,
--- a/hedgewars/uSound.pas	Sun May 15 14:29:37 2016 +0300
+++ b/hedgewars/uSound.pas	Sun May 15 23:11:14 2016 +0200
@@ -33,7 +33,7 @@
  *                   The channel id can be used to stop a specific sound loop.
  *)
 interface
-uses SDLh, uConsts, uTypes, SysUtils;
+uses SDLh, uConsts, uTypes;
 
 procedure preInitModule;
 procedure initModule;
hedgewars