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

Amiga, AROS, MorphOS: Sysutils, GetDirs must also cut at DriveSeparator

Browse Source 
git-svn-id: trunk@29294 -
This commit is contained in:
marcus 2014-12-14 20:16:23 +00:00
parent c9ba9665dd
commit 6767ed7103
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/sysutils/fina.inc
View File

@ -402,7 +402,11 @@ begin
Result:=-1;
While I<=Length(DirName) do
begin
If CharInSet(DirName[i],AllowDirectorySeparators) and
If (CharInSet(DirName[i],AllowDirectorySeparators)
{$ifdef HASAMIGA}
or (DirName[i] = DriveSeparator)
{$endif}
) and
{ avoid error in case last char=pathdelim }
(length(dirname)>i) then
begin