paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 10:29:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed beautifying (camelcasing) of main module filename on *nix. Fixed #5614

Browse Source 
git-svn-id: trunk@11458 -
This commit is contained in:
marco 2008-07-24 14:43:20 +00:00
parent 4dac183601
commit dc14080182
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/fpcompil.pas
View File

@ -843,8 +843,13 @@ begin
else else
FileName:=''; FileName:='';
end; end;
{$ifdef Unix}
If (FileName<>'') then
FileName:=FExpand(FileName);
{$else}
If (FileName<>'') then If (FileName<>'') then
FileName:=FixFileName(FExpand(FileName)); FileName:=FixFileName(FExpand(FileName));
{$endif}
GetMainFile:=FileName; GetMainFile:=FileName;
end; end;