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

Amiga,AROS,MorphOS: IncludeTrailingPathDelimiter not adding DirectorySeparator after Driveseparator

Browse Source 
git-svn-id: trunk@28541 -
This commit is contained in:
marcus 2014-08-30 18:22:08 +00:00
parent 97fc823e33
commit 5305a4d827
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -424,6 +424,9 @@ begin
Result:=Path; Result:=Path;
l:=Length(Result); l:=Length(Result);
If (L=0) or not CharInSet(Result[l],AllowDirectorySeparators) then If (L=0) or not CharInSet(Result[l],AllowDirectorySeparators) then
{$if defined(Amiga) or defined(AROS) or defined(MorphOS)}
If (L>0) and (Result[l] <> DriveSeparator) then
{$endif}
{$ifdef SYSUTILSUNICODE} {$ifdef SYSUTILSUNICODE}
Result:=Result+DirectorySeparator; Result:=Result+DirectorySeparator;
{$else SYSUTILSUNICODE} {$else SYSUTILSUNICODE}