Permalink
Browse files

Memory leak bug correction.

  • Loading branch information...
ASiwon committed Oct 13, 2015
1 parent 4b52b69 commit 76b61015b073e1b53eade5a36e90784b8fa74166
Showing with 2 additions and 2 deletions.
  1. +2 −2 Delphi.Mocks.ParamMatcher.pas
@@ -52,7 +52,7 @@ TMatcher<T> = class(TInterfacedObject, IMatcher)
TMatcherFactory = class
private
class var
FMatchers : TDictionary<TThreadID,TList<IMatcher>>;
FMatchers : TObjectDictionary<TThreadID,TList<IMatcher>>;
FLock : TObject;
protected
class constructor Create;
@@ -95,7 +95,7 @@ function TMatcher<T>.Match(const value: TValue): boolean;
class constructor TMatcherFactory.Create;
begin
FMatchers := TDictionary<TThreadID,TList<IMatcher>>.Create;
FMatchers := TObjectDictionary<TThreadID,TList<IMatcher>>.Create([doOwnsValues]);
FLock := TObject.Create;
end;

0 comments on commit 76b6101

Please sign in to comment.