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

git-svn-id: trunk@49081 -

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;