paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-13 16:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: AsInstance RTTI Implementation, from henrique, issue 38361

Browse Source
This commit is contained in:
mattias 2021-01-15 17:14:21 +00:00
parent 7597eb96e3
commit 6dff05705c
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/rtl/rtti.pas
View File

@ -70,6 +70,7 @@ type
end;
TRttiType = class;
TRttiInstanceType = class;
{ TRTTIContext }
@ -201,11 +202,11 @@ type
FAttributes: TCustomAttributeArray;
FTypeInfo: TTypeInfo;
//FMethods: specialize TArray<TRttiMethod>;
//function GetAsInstance: TRttiInstanceType;
function GetAsInstance: TRttiInstanceType;
protected
function GetName: string; override;
//function GetHandle: Pointer; override;
function GetIsInstance: boolean; virtual;
function GetIsInstance: boolean;
//function GetIsManaged: boolean; virtual;
function GetIsOrdinal: boolean; virtual;
function GetIsRecord: boolean; virtual;
@ -236,7 +237,7 @@ type
property IsRecord: boolean read GetIsRecord;
property IsSet: boolean read GetIsSet;
//property BaseType: TRttiType read GetBaseType;
//property AsInstance: TRttiInstanceType read GetAsInstance;
property AsInstance: TRttiInstanceType read GetAsInstance;
property TypeKind: TTypeKind read GetTypeKind;
//property TypeSize: integer read GetTypeSize;
end;
@ -276,7 +277,6 @@ type
function GetMetaClassType: TClass;
protected
function GetAncestor: TRttiStructuredType; override;
function GetIsInstance: boolean; override;
public
constructor Create(ATypeInfo: PTypeInfo);
@ -962,11 +962,6 @@ begin
inherited Create(ATypeInfo);
end;
function TRttiInstanceType.GetIsInstance: boolean;
begin
Result:=True;
end;
{ TRttiInterfaceType }
constructor TRttiInterfaceType.Create(ATypeInfo: PTypeInfo);
@ -1250,7 +1245,7 @@ end;
function TRttiType.GetIsInstance: boolean;
begin
Result:=false;
Result:=Self is TRttiInstanceType;
end;
function TRttiType.GetIsOrdinal: boolean;
@ -1273,6 +1268,11 @@ begin
Result:=FTypeInfo.Kind;
end;
function TRttiType.GetAsInstance: TRttiInstanceType;
begin
Result := Self as TRttiInstanceType;
end;
constructor TRttiType.Create(ATypeInfo: PTypeInfo);
begin
inherited Create();