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

* fix for a silly typo in the previous revision

Browse Source 
git-svn-id: trunk@18189 -
This commit is contained in:
Tomas Hajny 2011-08-13 18:18:15 +00:00
parent bb2e98c4f1
commit 6992049034
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/go32v2/sysutils.pp
View File

@ -337,7 +337,7 @@ begin
(Dir [Length (Dir)] in AllowDirectorySeparators) and
(* Do not remove '\' after ':' (root directory of a drive)
or in '\\' (invalid path, possibly broken UNC path). *)
not (Dir [Length (Dir - 1)] in (AllowDriveSeparators + AllowDirectorySeparators)) then
not (Dir [Length (Dir) - 1] in (AllowDriveSeparators + AllowDirectorySeparators)) then
dir:=copy(dir,1,length(dir)-1);
Result := FileGetAttr (Dir) and faDirectory = faDirectory;
end;