* Fix bug ID #37537: External constant support (also for class consts)

git-svn-id: trunk@46364 -

packages/fcl-passrc/src/paswrite.pp

@@ -739,7 +739,7 @@ begin
       Vart:=LowerCase(Vart);
       if (Value<>'') then
          Decl:=Decl+' = '+Value
-      else if ExportName<>Nil then // external name
+      else if (ExportName<>Nil) or ((Parent is TPasClassType) and (TPasClassType(Parent).ExternalName<>'')) then // external name
         case VarT of
           'integer',
           'byte',