pastojs: forbid external class const expr

git-svn-id: trunk@38056 -

packages/pastojs/src/fppas2js.pp

@@ -2275,6 +2275,9 @@ begin
     if TPasClassType(El.Parent).IsExternal then
       begin
       // external class -> make variable external
+      if El.Expr<>nil then
+        RaiseMsg(20180127111830,nIllegalQualifier,sIllegalQualifier,
+          ['='],El.Expr);
       if not (vmExternal in El.VarModifiers) then
         begin
         if (El.ClassType=TPasVariable) or (El.ClassType=TPasConst) then