paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 11:17:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtti: fixed compile

Browse Source
This commit is contained in:
mattias 2025-02-03 14:23:35 +01:00
parent 752c5a130d
commit 35a8089beb
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl/src/rtti.pas
View File

@ -171,7 +171,6 @@ type
function GetParent: TRttiType;
function GetStrictVisibility: Boolean; virtual;
function GetVisibility: TMemberVisibility; virtual;
function GetStrictVisibility: Boolean; virtual;
function LoadCustomAttributes: TCustomAttributeArray; override;
public
constructor Create(AParent: TRttiType; ATypeInfo: TTypeMember); reintroduce;
@ -180,7 +179,6 @@ type
property Parent: TRttiType read GetParent;
Property StrictVisibility: Boolean Read GetStrictVisibility;
property Visibility: TMemberVisibility read GetVisibility;
property StrictVisibility: Boolean Read GetStrictVisibility;
end;
{ TRttiDataMember }
@ -2027,11 +2025,6 @@ begin
Result := GetRTTIAttributes(MemberTypeInfo.Attributes);
end;
function TRttiMember.GetStrictVisibility: Boolean;
begin
Result:=False;
end;
function TRttiMember.GetMemberTypeInfo: TTypeMember;
begin
Result := TTypeMember(inherited Handle);