paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:56:00 +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); UnitOutDir:=GetUnitOutPath(false);
if UnitOutDir='' then if UnitOutDir='' then
UnitOutDir:=ExtractFilePath(MainSourceFileName); UnitOutDir:=ExtractFilePath(MainSourceFileName);
// fpc creates lowercase executables as default
if TargetFilename<>'' then if TargetFilename<>'' then
OutFilename:=TargetFilename OutFilename:=TargetFilename
else else
OutFilename:=lowercase(ExtractFileNameOnly(MainSourceFileName)); OutFilename:=ExtractFileNameOnly(MainSourceFileName);
//debugln('TBaseCompilerOptions.CreateTargetFilename MainSourceFileName=',MainSourceFileName,' OutFilename=',OutFilename,' TargetFilename=',TargetFilename); //debugln('TBaseCompilerOptions.CreateTargetFilename MainSourceFileName=',MainSourceFileName,' OutFilename=',OutFilename,' TargetFilename=',TargetFilename);
Result:=AppendPathDelim(UnitOutDir)+OutFilename; Result:=AppendPathDelim(UnitOutDir)+OutFilename;

2
ide/lazarusidestrconsts.pas
View File

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