Browse Source

+ since I accidentally committed the assignment operator overload implementations add their declarations as well...

git-svn-id: trunk@36967 -
svenbarth 8 years ago
parent
commit
40f8b4a77c
1 changed files with 13 additions and 0 deletions
  1. 13 0
      packages/rtl-objpas/src/inc/rtti.pp

+ 13 - 0
packages/rtl-objpas/src/inc/rtti.pp

@@ -89,6 +89,19 @@ type
     function IsType(ATypeInfo: PTypeInfo): boolean; inline;
     function TryAsOrdinal(out AResult: int64): boolean;
     function GetReferenceToRawData: Pointer;
+    class operator := (const AValue: String): TValue; inline;
+    class operator := (AValue: LongInt): TValue; inline;
+    class operator := (AValue: Single): TValue; inline;
+    class operator := (AValue: Double): TValue; inline;
+{$ifdef FPC_HAS_TYPE_EXTENDED}
+    class operator := (AValue: Extended): TValue; inline;
+{$endif}
+    class operator := (AValue: Currency): TValue; inline;
+    class operator := (AValue: Int64): TValue; inline;
+    class operator := (AValue: QWord): TValue; inline;
+    class operator := (AValue: TObject): TValue; inline;
+    class operator := (AValue: TClass): TValue; inline;
+    class operator := (AValue: Boolean): TValue; inline;
     property DataSize: SizeInt read GetDataSize;
     property Kind: TTypeKind read GetTypeKind;
     property TypeData: PTypeData read GetTypeDataProp;