From 40f8b4a77cfda2550529e762e0c55d13844033eb Mon Sep 17 00:00:00 2001 From: svenbarth Date: Sun, 20 Aug 2017 18:26:02 +0000 Subject: [PATCH] + since I accidentally committed the assignment operator overload implementations add their declarations as well... git-svn-id: trunk@36967 - --- packages/rtl-objpas/src/inc/rtti.pp | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp index 10feb94af8..19b28bd33f 100644 --- a/packages/rtl-objpas/src/inc/rtti.pp +++ b/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;