From 5ceedc6bc35af4d65da7a5f4a5e592d9835f452d Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 20 Aug 2020 07:27:45 +0000
Subject: [PATCH] * Patch from Henrique Werlang to expose JSValue (bug ID
 37597)

---
 packages/rtl/rtti.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/rtl/rtti.pas b/packages/rtl/rtti.pas
index f1372b0..0ce1c34 100644
--- a/packages/rtl/rtti.pas
+++ b/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;