Browse Source

* Declare field RecordOp for TRecordInfoInit only when FPC_HAS_MANAGEMENT_OPERATORS is defined, same for additional types for management operators.

git-svn-id: trunk@35447 -
maciej-izak 8 years ago
parent
commit
8a68a7aea8
1 changed files with 4 additions and 0 deletions
  1. 4 0
      rtl/inc/rtti.inc

+ 4 - 0
rtl/inc/rtti.inc

@@ -58,6 +58,7 @@ type
 
 
   PRecordInfoInit=^TRecordInfoInit;
   PRecordInfoInit=^TRecordInfoInit;
 {$ifndef VER3_0}
 {$ifndef VER3_0}
+{$ifdef FPC_HAS_MANAGEMENT_OPERATORS}
   TRTTIRecVarOp=procedure(ARec: Pointer);
   TRTTIRecVarOp=procedure(ARec: Pointer);
   TRTTIRecCopyOp=procedure(ASrc, ADest: Pointer);
   TRTTIRecCopyOp=procedure(ASrc, ADest: Pointer);
   TRTTIRecOpType=(rotAny, rotInitialize, rotFinalize, rotAddRef, rotCopy);
   TRTTIRecOpType=(rotAny, rotInitialize, rotFinalize, rotAddRef, rotCopy);
@@ -72,6 +73,7 @@ type
     AddRef: TRTTIRecVarOp;
     AddRef: TRTTIRecVarOp;
     Copy: TRTTIRecCopyOp;
     Copy: TRTTIRecCopyOp;
   end;
   end;
+{$endif FPC_HAS_MANAGEMENT_OPERATORS}
 
 
   TRecordInfoInit=
   TRecordInfoInit=
 {$ifdef USE_PACKED}
 {$ifdef USE_PACKED}
@@ -80,7 +82,9 @@ type
   record
   record
     Terminator: Pointer;
     Terminator: Pointer;
     Size: Longint;
     Size: Longint;
+{$ifdef FPC_HAS_MANAGEMENT_OPERATORS}
     RecordOp: PRTTIRecordOpVMT;
     RecordOp: PRTTIRecordOpVMT;
+{$endif FPC_HAS_MANAGEMENT_OPERATORS}
     Count: Longint;
     Count: Longint;
     { Elements: array[count] of TRecordElement }
     { Elements: array[count] of TRecordElement }
   end;
   end;