diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-18 10:45:47 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-18 10:45:47 +0000 |
| commit | 81c5688893cfc551750c74bb75d285248cf1a05a (patch) | |
| tree | daceb880bbb3af17ec16e8c1c49305ef06905a35 | |
| parent | 003a6cf3bbb6833d60fdf0df1ad4d75449951a8e (diff) | |
| download | fpc-81c5688893cfc551750c74bb75d285248cf1a05a.tar.gz | |
* Fix issue ID 38772
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49225 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | rtl/objpas/sysutils/osutil.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/objpas/sysutils/osutil.inc b/rtl/objpas/sysutils/osutil.inc index ffa7531efd..729f96d285 100644 --- a/rtl/objpas/sysutils/osutil.inc +++ b/rtl/objpas/sysutils/osutil.inc @@ -245,7 +245,7 @@ begin Repeat Result:=Format('%s%.5d.tmp',[Start,I]); Inc(I); - Until not FileExists(Result); + Until not (FileExists(Result) or DirectoryExists(Result)); end; end; {$endif} |