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

don't force targetfilename to lowercase (issue #1760)

Browse Source 
git-svn-id: trunk@8802 -
This commit is contained in:
vincents 2006-02-23 09:12:50 +00:00
parent 2787b8d319
commit 54b0f37260
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/compileroptions.pp
View File

@ -1316,11 +1316,10 @@ begin
UnitOutDir:=GetUnitOutPath(false);
if UnitOutDir='' then
UnitOutDir:=ExtractFilePath(MainSourceFileName);
// fpc creates lowercase executables as default
if TargetFilename<>'' then
OutFilename:=TargetFilename
else
OutFilename:=lowercase(ExtractFileNameOnly(MainSourceFileName));
OutFilename:=ExtractFileNameOnly(MainSourceFileName);
//debugln('TBaseCompilerOptions.CreateTargetFilename MainSourceFileName=',MainSourceFileName,' OutFilename=',OutFilename,' TargetFilename=',TargetFilename);
Result:=AppendPathDelim(UnitOutDir)+OutFilename;

4
ide/lazarusidestrconsts.pas
View File

@ -2954,6 +2954,8 @@ resourcestring
lisPODoNotSaveAnySessionInfo = 'Do not save any session info';
lisPOSaveSessionInformationIn = 'Save session information in';
lisMVSaveMessagesToFileTxt = 'Save messages to file (*.txt)';
lisShowOldTabOrder = 'Show old tab order';
lisTabOrderOf = 'Tab Order of';
implementation
end.