* more complete TValueData record

git-svn-id: trunk@36906 -

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

@@ -47,10 +47,17 @@ type
       3:  (FAsObject: Pointer);
       4:  (FAsClass: TClass);
       5:  (FAsSByte: Shortint);
+      6:  (FAsSWord: Smallint);
+      7:  (FAsSLong: LongInt);
+      8:  (FAsSingle: Single);
       9:  (FAsDouble: Double);
       10: (FAsExtended: Extended);
+      11: (FAsComp: Comp);
       12: (FAsCurr: Currency);
+      13: (FAsUInt64: QWord);
       14: (FAsSInt64: Int64);
+      15: (FAsMethod: TMethod);
+      16: (FAsPointer: Pointer);
   end;
 
   { TValue }