Pārlūkot izejas kodu

pastojs: skip specialized methods in RTTI, #39268

mattias 2 gadi atpakaļ
vecāks
revīzija
712a6aa6a5
1 mainītis faili ar 2 papildinājumiem un 0 dzēšanām
  1. 2 0
      packages/pastojs/src/fppas2js.pp

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

@@ -21239,6 +21239,8 @@ begin
         begin
         if aResolver.GetProcTemplateTypes(TPasProcedure(P))<>nil then
           continue; // parametrized functions cannot be published
+        if (P.CustomData as TPas2JSProcedureScope).SpecializedFromItem<>nil then
+          continue; // specialized function cannot be published
         NewEl:=CreateRTTIMemberMethod(Members,i,MembersFuncContext);
         end
       else if C=TPasProperty then