Browse Source

* Fix wrongly placed define

Michaël Van Canneyt 2 weeks ago
parent
commit
22720790fa
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/rtl-objpas/src/inc/rtti.pp

+ 2 - 2
packages/rtl-objpas/src/inc/rtti.pp

@@ -918,6 +918,7 @@ type
 
 
   TVirtualInterface = class(TInterfacedObject, IInterface)
   TVirtualInterface = class(TInterfacedObject, IInterface)
   private
   private
+    // Add fields before
     fGUID: TGUID;
     fGUID: TGUID;
     fOnInvoke: TVirtualInterfaceInvokeEvent;
     fOnInvoke: TVirtualInterfaceInvokeEvent;
     fContext: TRttiContext;
     fContext: TRttiContext;
@@ -930,10 +931,9 @@ type
     FIntfRTTI : trttitype;
     FIntfRTTI : trttitype;
     FThunk : TInterfaceThunk;
     FThunk : TInterfaceThunk;
     Procedure ThunkClassCallback(aInstance: Pointer; aMethod,aCount : Longint; aData: TInterfaceThunk.PArgData);
     Procedure ThunkClassCallback(aInstance: Pointer; aMethod,aCount : Longint; aData: TInterfaceThunk.PArgData);
-{$ENDIF}
-    // Add fields before
     procedure CreateThunk(aPIID: PTypeInfo; T : trttitype; td : PInterfaceData);
     procedure CreateThunk(aPIID: PTypeInfo; T : trttitype; td : PInterfaceData);
     procedure DestroyThunk;
     procedure DestroyThunk;
+{$ENDIF}
 
 
   protected
   protected
 {$IFDEF USE_THUNK_CLASS}
 {$IFDEF USE_THUNK_CLASS}