Explorar o código

* Fix compilation

Michaël Van Canneyt hai 1 ano
pai
achega
9ba9e886ae
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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);