# HG changeset patch # User sheepluva # Date 1463346674 -7200 # Node ID 0fba6cb098a1e4d0b67184d48a4814958d0a6ba7 # Parent 4600dcb9db4f0f53a106064a2014554ffef7dba7 drop SysUtils inclusion from 5 files where it is not needed anymore diff -r 4600dcb9db4f -r 0fba6cb098a1 hedgewars/LuaPas.pas --- 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 *) diff -r 4600dcb9db4f -r 0fba6cb098a1 hedgewars/uMisc.pas --- 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; diff -r 4600dcb9db4f -r 0fba6cb098a1 hedgewars/uRender.pas --- 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, [' ']) diff -r 4600dcb9db4f -r 0fba6cb098a1 hedgewars/uScript.pas --- 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, diff -r 4600dcb9db4f -r 0fba6cb098a1 hedgewars/uSound.pas --- 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;