From 97831bed8ae5a0d06c301902e4a55b025e0f03c2 Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Sun, 31 Aug 2014 06:46:17 +0000
Subject: [PATCH] Amiga, AROS, MorphOS: Define in IncludeTrailingPathDelimiter
 changed to HASAMIGA

git-svn-id: trunk@28548 -
---
 rtl/objpas/sysutils/fina.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/fina.inc b/rtl/objpas/sysutils/fina.inc
index 5889e0e734..f8f14335e9 100644
--- a/rtl/objpas/sysutils/fina.inc
+++ b/rtl/objpas/sysutils/fina.inc
@@ -424,7 +424,7 @@ 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)}
+{$ifdef HASAMIGA}
     If (L>0) and (Result[l] <> DriveSeparator) then
 {$endif}
 {$ifdef SYSUTILSUNICODE}