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

also return the colon for ExtractFileDrive on Amiga/MorphOS

Browse Source 
git-svn-id: trunk@24765 -
This commit is contained in:
Károly Balogh 2013-06-02 11:37:29 +00:00
parent 4b820a1ca5
commit 60879c9c4f
1 changed files with 1 additions and 1 deletions

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

@ -68,7 +68,7 @@ begin
exit;
{$IF DEFINED(AMIGA) OR DEFINED(MORPHOS)}
i:=Pos(DriveSeparator,FileName);
if (i > 0) then Result:=Copy(FileName,1,i-1);
if (i > 0) then Result:=Copy(FileName,1,i);
{$ELSE}
If (FileName[2] in AllowDriveSeparators) then
result:=Copy(FileName,1,2)