paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:19:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less warnings

Browse Source 
git-svn-id: trunk@47607 -
This commit is contained in:
mattias 2015-02-06 21:42:43 +00:00
parent d30cca924e
commit d36ce6440d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/compileroptions.pp
View File

@ -44,7 +44,7 @@ interface
uses uses
typinfo, Classes, SysUtils, FileProcs, FileUtil, Laz2_XMLCfg, LazFileUtils, typinfo, Classes, SysUtils, FileProcs, FileUtil, Laz2_XMLCfg, LazFileUtils,
AvgLvlTree, Laz2_DOM, LazUTF8, AvgLvlTree, Laz2_DOM, LazUTF8,
InterfaceBase, LCLProc, Forms, Controls, ExprEval, InterfaceBase, Forms, Controls, LCLProc, ExprEval,
DefineTemplates, CodeToolsCfgScript, CodeToolManager, KeywordFuncLists, DefineTemplates, CodeToolsCfgScript, CodeToolManager, KeywordFuncLists,
BasicCodeTools, BasicCodeTools,
// IDEIntf // IDEIntf
@ -1932,7 +1932,7 @@ function TBaseCompilerOptions.CreateTargetFilename(
aSrcOS:=GetDefaultSrcOSForTargetOS(CurTargetOS); aSrcOS:=GetDefaultSrcOSForTargetOS(CurTargetOS);
if (CompareText(aSrcOS, 'unix') = 0) if (CompareText(aSrcOS, 'unix') = 0)
then begin then begin
Result:=PathName+Prefix+UTF8LowerCase(FileName); Result:=PathName+Prefix+LazUTF8.UTF8LowerCase(FileName);
end else begin end else begin
Result:=PathName+Prefix+FileName; Result:=PathName+Prefix+FileName;
end; end;