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

* typo fix in previous commit relating to #40558

Browse Source
This commit is contained in:
marcoonthegit 2023-12-14 09:59:04 +01:00
parent 59883da0a0
commit d91847f39c
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/disk.inc
View File

@ -110,7 +110,7 @@ begin
Result:=False;
ADrv:=ExtractFileDrive(Dir);
if (ADrv<>'') and
(not DirectoryExists(ADrv)+DirectorySeparator)
(not DirectoryExists(ADrv+DirectorySeparator))
{$IFNDEF FORCEDIR_NO_UNC_SUPPORT} and (not IsUncDrive(ADrv)){$ENDIF} then
Exit;
if Dir='' then