From 44daacf67cb2a899ad7e104b8d472c9e2bd56bb7 Mon Sep 17 00:00:00 2001 From: Henrique G Werlang Date: Fri, 13 Nov 2015 18:08:16 -0200 Subject: [PATCH] =?UTF-8?q?Quanto=20=C3=A9=20ativado=20o=20"Emit=20Runtime?= =?UTF-8?q?=20Type=20Information"=20ocorre=20erro=20de=20"[dcc32=20Error]?= =?UTF-8?q?=20Delphi.Mocks.pas(253):=20E2134=20Type=20''=20has=20no?= =?UTF-8?q?=20type=20info",=20com=20isso=20coloquei=20a=20diretiva=20"{$M-?= =?UTF-8?q?}",=20nas=20units=20que=20tem=20alguma=20declara=C3=A7=C3=A3o?= =?UTF-8?q?=20do=20tipo=20"out",=20e=20a=20v=C3=A1riavel=20n=C3=A3o=20tive?= =?UTF-8?q?r=20tipo,=20para=20evitar=20esse=20erro.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Delphi.Mocks.Proxy.TypeInfo.pas | 2 ++ Delphi.Mocks.Proxy.pas | 2 ++ Delphi.Mocks.WeakReference.pas | 2 ++ Delphi.Mocks.pas | 2 ++ 4 files changed, 8 insertions(+) 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 f5856ab..8666e82 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 5a3d300..50b2109 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