paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 19:47:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Keep and drop context in the TRTTIContext.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2023-01-27 08:14:03 -03:00 committed by Michael Van Canneyt
parent 05e0c745d5
commit 5612d3812f
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/rtti.pas
View File

@ -97,6 +97,9 @@ type
function GetType(aTypeInfo: PTypeInfo): TRTTIType; overload;
function GetType(aClass: TClass): TRTTIType; overload;
function GetTypes: specialize TArray<TRttiType>;
class procedure KeepContext; static;
class procedure DropContext; static;
end;
{ TRttiObject }
@ -1589,6 +1592,16 @@ begin
Result := specialize TArray<TRttiType>(TJSObject.Values(Pool.FTypes));
end;
class procedure TRTTIContext.KeepContext;
begin
Pool.AcquireContext;
end;
class procedure TRTTIContext.DropContext;
begin
Pool.ReleaseContext;
end;
{ TRttiObject }
constructor TRttiObject.Create(AParent: TRttiObject; AHandle: Pointer);