소스 검색

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

git-svn-id: trunk@28541 -
marcus 11 년 전
부모
커밋
5305a4d827
1개의 변경된 파일3개의 추가작업 그리고 0개의 파일을 삭제
  1. 3 0
      rtl/objpas/sysutils/fina.inc

+ 3 - 0
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}