Browse Source

pastojs: fixed shortrefglobals for minimal class interface, issue 38042

mattias 4 years ago
parent
commit
0f2ec58bbe
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/packages/pastojs/src/fppas2js.pp

+ 1 - 1
compiler/packages/pastojs/src/fppas2js.pp

@@ -15388,7 +15388,7 @@ begin
           RaiseNotSupported(El,AContext,20180405093512);
         end;
       NeedInitFunction:=(pcsfPublished in Scope.Flags) or HasTypeInfo(El,AContext)
-                        or (IntfKind<>'');
+                        or (IntfKind<>'') or (coShortRefGlobals in Options);
       end;
 
     if NeedInitFunction then