paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@36967 -
This commit is contained in:
svenbarth 2017-08-20 18:26:02 +00:00
parent 66725ccfc7
commit 40f8b4a77c
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -89,6 +89,19 @@ type
function IsType(ATypeInfo: PTypeInfo): boolean; inline; function IsType(ATypeInfo: PTypeInfo): boolean; inline;
function TryAsOrdinal(out AResult: int64): boolean; function TryAsOrdinal(out AResult: int64): boolean;
function GetReferenceToRawData: Pointer; 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 DataSize: SizeInt read GetDataSize;
property Kind: TTypeKind read GetTypeKind; property Kind: TTypeKind read GetTypeKind;
property TypeData: PTypeData read GetTypeDataProp; property TypeData: PTypeData read GetTypeDataProp;