From 5305a4d8277a8a9b8b26e2339a9b8ed932e7965d Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Sat, 30 Aug 2014 18:22:08 +0000
Subject: [PATCH] Amiga,AROS,MorphOS: IncludeTrailingPathDelimiter not adding
 DirectorySeparator after Driveseparator

git-svn-id: trunk@28541 -
---
 rtl/objpas/sysutils/fina.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rtl/objpas/sysutils/fina.inc b/rtl/objpas/sysutils/fina.inc
index b42e9cdf81..5889e0e734 100644
--- a/rtl/objpas/sysutils/fina.inc
+++ b/rtl/objpas/sysutils/fina.inc
@@ -424,6 +424,9 @@ begin
   Result:=Path;
   l:=Length(Result);
   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}
     Result:=Result+DirectorySeparator;
 {$else SYSUTILSUNICODE}