Browse Source

* Fix compilation

Michaël Van Canneyt 1 year ago
parent
commit
9ba9e886ae
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/pastojs/src/fppas2js.pp

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

@@ -16398,7 +16398,7 @@ begin
 
     for A := 0 to Pred(El.Members.Count) do
     begin
-      MemberElement := El.Members[A];
+      MemberElement := TPasElement(El.Members[A]);
       if (MemberElement is TPasClassType) and not (TPasClassType(MemberElement).IsForward) then
       begin
         St.B := ConvertExtClassType(TPasClassType(MemberElement), AContext);