paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 16:38:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

FExpand: always uppercase drive letter also in BasePath

Browse Source 
git-svn-id: trunk@46353 -
This commit is contained in:
ondrej 2020-08-10 20:42:13 +00:00
parent a668814613
commit cfff96f44c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/fexpand.inc
View File

@ -306,7 +306,12 @@ begin
S := BasePath;
{$ENDIF FPC_FEXPAND_SYSUTILS and not SYSUTILSUNICODE}
if not FileNameCasePreserving then
S := UpCase(S);
S := UpCase(S)
else
{ Always uppercase driveletter }
if (Length (S) > 1) and CharInSet(S [1], ['a'..'z']) and
(S [2] = DriveSeparator) and (DriveSeparator <> DirectorySeparator) then
S [1] := Chr (Ord (S [1]) and not ($20));
{$IFDEF FPC_FEXPAND_VOLUMES}
{$IFDEF FPC_FEXPAND_DRIVESEP_IS_ROOT}