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

* Patch from Henrique Werlang to implement TValue.Empty

Browse Source
This commit is contained in:
michael 2020-09-25 11:25:01 +00:00
parent 3c0385af7a
commit e3f828a8ef
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/rtti.pas
View File

@ -63,6 +63,7 @@ type
//ToDo: procedure SetArrayElement(aIndex: SizeInt; constref AValue: TValue);
function IsType(ATypeInfo: PTypeInfo): boolean;
function AsJSValue: JSValue;
class function Empty: TValue; static;
end;
TRttiType = class;
@ -670,6 +671,11 @@ begin
Result := FData;
end;
class function TValue.Empty: TValue;
begin
Result.FTypeInfo := nil;
end;
{ TRttiStructuredType }
function TRttiStructuredType.GetMethods: TRttiMethodArray;