Quellcode durchsuchen

pastojs: fixed pass ClassInstVar to IntfType

mattias vor 2 Jahren
Ursprung
Commit
9f93b88c1c
1 geänderte Dateien mit 1 neuen und 0 gelöschten Zeilen
  1. 1 0
      packages/pastojs/src/fppas2js.pp

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

@@ -26680,6 +26680,7 @@ begin
                 Result:=Call;
                 Result:=Call;
                 Call.AddArg(CreateReferencePathExpr(ArgTypeEl,AContext));
                 Call.AddArg(CreateReferencePathExpr(ArgTypeEl,AContext));
                 Call:=CreateIntfRef(Call,AContext,El);
                 Call:=CreateIntfRef(Call,AContext,El);
+                Result:=Call;
                 end;
                 end;
               citCorba:
               citCorba:
                 begin
                 begin