mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 20:29:32 +02:00
* removed beautifying (camelcasing) of main module filename on *nix. Fixed #5614
git-svn-id: trunk@11458 -
This commit is contained in:
parent
4dac183601
commit
dc14080182
@ -843,8 +843,13 @@ begin
|
||||
else
|
||||
FileName:='';
|
||||
end;
|
||||
{$ifdef Unix}
|
||||
If (FileName<>'') then
|
||||
FileName:=FExpand(FileName);
|
||||
{$else}
|
||||
If (FileName<>'') then
|
||||
FileName:=FixFileName(FExpand(FileName));
|
||||
{$endif}
|
||||
GetMainFile:=FileName;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user