paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:49:17 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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