paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 05:10:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

Amiga, AROS, MorphOS: Define in IncludeTrailingPathDelimiter changed to HASAMIGA

Browse Source 
git-svn-id: trunk@28548 -
This commit is contained in:
marcus 2014-08-31 06:46:17 +00:00
parent b962e61847
commit 97831bed8a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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}