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

* fix for web bug #16651

Browse Source 
git-svn-id: trunk@15452 -
This commit is contained in:
Tomas Hajny 2010-06-19 16:15:40 +00:00
parent 5a1e4befe4
commit a2af005101
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

@ -177,7 +177,7 @@ begin
if PathStart > 1 then if PathStart > 1 then
{$ELSE FPC_FEXPAND_VOLUMES} {$ELSE FPC_FEXPAND_VOLUMES}
if (Length (Pa) > 1) and (Pa [1] in ['A'..'Z', 'a'..'z']) and if (Length (Pa) > 1) and (Pa [1] in ['A'..'Z', 'a'..'z']) and
(Pa [2] = DriveSeparator) then (Pa [2] = DriveSeparator) and (DriveSeparator <> DirectorySeparator) then
{$ENDIF FPC_FEXPAND_VOLUMES} {$ENDIF FPC_FEXPAND_VOLUMES}
begin begin