pastojs: fixed -O- and record const, issue #38683

git-svn-id: trunk@49081 -
(cherry picked from commit 1fe486d8f61c28e1f3990c67a11b928873b0cb4e)

packages/pastojs/src/fppas2js.pp

@@ -20584,6 +20584,8 @@ begin
       mtRecord:
         // a published record publishes all non private members
         if P.Visibility in [visPrivate,visStrictPrivate] then
+          continue
+        else if P.ClassType=TPasConst then
           continue;
       end;
       if not IsElementUsed(P) then continue;