diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 20:22:58 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 20:22:58 +0000 |
| commit | da016e25fd242afdf83aa47d4f24eb55ef5faf02 (patch) | |
| tree | 945b4097925aaf3745050bdebf50db642ed4787d /unicode | |
| parent | cd4ed887b703e7c519048f3d59deab83b2abff26 (diff) | |
| download | usdx-da016e25fd242afdf83aa47d4f24eb55ef5faf02.tar.gz usdx-da016e25fd242afdf83aa47d4f24eb55ef5faf02.tar.xz usdx-da016e25fd242afdf83aa47d4f24eb55ef5faf02.zip | |
GarbageList.Count >= GarbageMaxCount
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1907 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode')
| -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); |