diff options
| -rw-r--r-- | unicode/src/base/UPath.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/unicode/src/base/UPath.pas b/unicode/src/base/UPath.pas index a8743470..975fcb6f 100644 --- a/unicode/src/base/UPath.pas +++ b/unicode/src/base/UPath.pas @@ -582,7 +582,7 @@ begin Unify(DelimOption); {$IFDEF HAVE_REFCNTBUG} GarbageList.Lock; - if (GarbageList.Count > GarbageMaxCount) then + if (GarbageList.Count >= GarbageMaxCount) then begin while (GarbageList.Count > GarbageAfterCleanCount) do GarbageList.Delete(0); |