diff --git a/Delphi.Mocks.Proxy.TypeInfo.pas b/Delphi.Mocks.Proxy.TypeInfo.pas index bf1f43c..b094fb1 100644 --- a/Delphi.Mocks.Proxy.TypeInfo.pas +++ b/Delphi.Mocks.Proxy.TypeInfo.pas @@ -39,6 +39,8 @@ interface Delphi.Mocks.Behavior; type + {$M-} + TProxy = class(TWeakReferencedObject, IWeakReferenceableObject, IInterface, IProxy, IVerify) private FTypeInfo : PTypeInfo; diff --git a/Delphi.Mocks.Proxy.pas b/Delphi.Mocks.Proxy.pas index 39cdea9..b1aaaf1 100644 --- a/Delphi.Mocks.Proxy.pas +++ b/Delphi.Mocks.Proxy.pas @@ -38,6 +38,8 @@ interface Delphi.Mocks.Behavior; type + {$M-} + TProxyBaseInvokeEvent = procedure (Method: TRttiMethod; const Args: TArray; out Result: TValue) of object; TSetupMode = (None, Behavior, Expectation); diff --git a/Delphi.Mocks.WeakReference.pas b/Delphi.Mocks.WeakReference.pas index decc77b..8797e97 100644 --- a/Delphi.Mocks.WeakReference.pas +++ b/Delphi.Mocks.WeakReference.pas @@ -46,6 +46,8 @@ interface type + {$M-} + /// Implemented by our weak referenced object base class IWeakReferenceableObject = interface ['{3D7F9CB5-27F2-41BF-8C5F-F6195C578755}'] diff --git a/Delphi.Mocks.pas b/Delphi.Mocks.pas index b2be975..db41bb2 100644 --- a/Delphi.Mocks.pas +++ b/Delphi.Mocks.pas @@ -39,6 +39,8 @@ interface Delphi.Mocks.WeakReference; type + {$M-} + IWhen = interface; //Records the expectations we have when our Mock is used. We can then verify