From 8ecdc6ed057684f8633e7082646403b862edc541 Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Tue, 8 Aug 2023 16:58:09 -0300
Subject: [PATCH] Allow constructor RTTI info in Pas2Js generated file.

---
 packages/pastojs/src/fppas2js.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/pastojs/src/fppas2js.pp b/packages/pastojs/src/fppas2js.pp
index 40021af191..5c1a32f0b4 100644
--- a/packages/pastojs/src/fppas2js.pp
+++ b/packages/pastojs/src/fppas2js.pp
@@ -21219,7 +21219,7 @@ begin
       // check visibility
       case mt of
       mtClass:
-        if P.Visibility<>visPublished then continue;
+        if (P.Visibility<>visPublished) and (not P.InheritsFrom(TPasConstructor) or (P.Visibility <> visPublic)) then continue;
       mtInterface: ; // all members of an interface are published
       mtRecord:
         // a published record publishes all non private members