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: startedd RTTI info for record types, patch 38322

Browse Source
This commit is contained in:
mattias 2021-01-10 23:02:03 +00:00
parent 0746298593
commit 0b86b71d49
1 changed files with 41 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
packages/rtl/rtti.pas
View File

@ -248,7 +248,7 @@ type
FMethods: TRttiMethodArray;
FProperties: TRttiPropertyArray;
protected
function GetAncestor: TRttiStructuredType; virtual; abstract;
function GetAncestor: TRttiStructuredType; virtual;
function GetStructTypeInfo: TTypeInfoStruct;
public
constructor Create(ATypeInfo: PTypeInfo);
@ -274,9 +274,10 @@ type
function GetMetaClassType: TClass;
protected
function GetAncestor: TRttiStructuredType; override;
function GetIsInstance: boolean; override;
public
constructor Create(ATypeInfo: PTypeInfo);
function GetIsInstance: boolean; override;
property ClassTypeInfo: TTypeInfoClass read GetClassTypeInfo;
property MetaClassType: TClass read GetMetaClassType;
end;
@ -296,6 +297,19 @@ type
property InterfaceTypeInfo: TTypeInfoInterface read GetInterfaceTypeInfo;
end;
{ TRttiRecordType }
TRttiRecordType = class(TRttiStructuredType)
private
function GetRecordTypeInfo: TTypeInfoRecord;
protected
function GetIsRecord: Boolean; override;
public
constructor Create(ATypeInfo: PTypeInfo);
property RecordTypeInfo: TTypeInfoRecord read GetRecordTypeInfo;
end;
{ TRttiOrdinalType }
TRttiOrdinalType = class(TRttiType)
@ -838,6 +852,11 @@ begin
Result := FProperties;
end;
function TRttiStructuredType.GetAncestor: TRttiStructuredType;
begin
Result := nil;
end;
function TRttiStructuredType.GetStructTypeInfo: TTypeInfoStruct;
begin
Result:=TTypeInfoStruct(FTypeInfo);
@ -944,6 +963,25 @@ begin
Result := GRttiContext.GetType(InterfaceTypeInfo.Ancestor) as TRttiStructuredType;
end;
{ TRttiRecordType }
function TRttiRecordType.GetRecordTypeInfo: TTypeInfoRecord;
begin
Result := TTypeInfoRecord(FTypeInfo);
end;
function TRttiRecordType.GetIsRecord: Boolean;
begin
Result := True;
end;
constructor TRttiRecordType.Create(ATypeInfo: PTypeInfo);
begin
if not (TTypeInfo(ATypeInfo) is TTypeInfoClass) then
raise EInvalidCast.Create('');
inherited Create(ATypeInfo);
end;
{ TRTTIContext }
class constructor TRTTIContext.Init;
@ -984,7 +1022,7 @@ var
nil, // tkMethod
TRttiType, // tkArray
TRttiDynamicArrayType, // tkDynArray
TRttiType, // tkRecord
TRttiRecordType, // tkRecord
TRttiInstanceType, // tkClass
TRttiType, // tkClassRef
TRttiType, // tkPointer