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

* avoid problems for windows if case of drive letter is different

Browse Source 
git-svn-id: trunk@14840 -
This commit is contained in:
pierre 2010-02-01 15:47:22 +00:00
parent 75ff11b24f
commit a989b6c1e6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/fexpand.inc
View File

@ -207,7 +207,7 @@ begin
if Copy (Pa, 1, PathStart - 2) = Copy (S, 1, PathStart - 2) if Copy (Pa, 1, PathStart - 2) = Copy (S, 1, PathStart - 2)
then then
{$ELSE FPC_FEXPAND_VOLUMES} {$ELSE FPC_FEXPAND_VOLUMES}
if Pa [1] = S [1] then if UpCase(Pa [1]) = UpCase(S [1]) then
{$ENDIF FPC_FEXPAND_VOLUMES} {$ENDIF FPC_FEXPAND_VOLUMES}
begin begin
{ remove ending slash if it already exists } { remove ending slash if it already exists }