Jelajahi Sumber

pastojs: clean up

mattias 4 tahun lalu
induk
melakukan
a86581a9ea
1 mengubah file dengan 0 tambahan dan 9 penghapusan
  1. 0 9
      compiler/packages/pastojs/src/fppas2js.pp

+ 0 - 9
compiler/packages/pastojs/src/fppas2js.pp

@@ -24444,15 +24444,6 @@ var
     Result:=(C=TPasFunction) or (C=TPasProcedure) or (C=TPasConstructor) or (C=TPasDestructor);
   end;
 
-  function ProcHasNoSelf(Proc: TPasProcedure): boolean;
-  begin
-    if Proc=nil then exit(false);
-    if not (Proc.Parent is TPasMembersType) then
-      exit(true);
-    if Proc.IsStatic then exit(true);
-    Result:=false;
-  end;
-
   procedure Append_GetClass(Member: TPasElement);
   var
     P: TPasElement;