* Patch from Henrique Werlang to expose JSValue (bug ID 37597)

packages/rtl/rtti.pas

@@ -61,6 +61,7 @@ type
     function GetArrayElement(aIndex: SizeInt): TValue;
     //ToDo: procedure SetArrayElement(aIndex: SizeInt; constref AValue: TValue);
     function IsType(ATypeInfo: PTypeInfo): boolean;
+    function AsJSValue: JSValue;
   end;
 
   TRttiType = class;
@@ -511,6 +512,11 @@ begin
   end;
 end;
 
+function TValue.AsJSValue: JSValue;
+begin
+  Result := FData;
+end;
+
 { TRttiInstanceType }
 
 function TRttiInstanceType.GetClassTypeInfo: TTypeInfoClass;