Sfoglia il codice sorgente

pastojs: fixed skipping class interface

git-svn-id: trunk@38025 -
Mattias Gaertner 7 anni fa
parent
commit
b028dcdce1
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      packages/pastojs/src/fppas2js.pp

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

@@ -1902,7 +1902,7 @@ begin
       ClassEl:=TPasClassType(El);
       ClassEl:=TPasClassType(El);
       if ClassEl.IsForward then continue;
       if ClassEl.IsForward then continue;
       if ClassEl.ObjKind=okInterface then
       if ClassEl.ObjKind=okInterface then
-        exit;
+        continue;
       ClassScope:=El.CustomData as TPas2JSClassScope;
       ClassScope:=El.CustomData as TPas2JSClassScope;
       OldScopeCount:=FOverloadScopes.Count;
       OldScopeCount:=FOverloadScopes.Count;