paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-18 12:09:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: clean up

Browse Source
This commit is contained in:
mattias 2020-12-08 11:52:31 +00:00
parent 56a9c2d912
commit a86581a9ea
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/packages/pastojs/src/fppas2js.pp
View File

@ -24444,15 +24444,6 @@ var
Result:=(C=TPasFunction) or (C=TPasProcedure) or (C=TPasConstructor) or (C=TPasDestructor); Result:=(C=TPasFunction) or (C=TPasProcedure) or (C=TPasConstructor) or (C=TPasDestructor);
end; 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); procedure Append_GetClass(Member: TPasElement);
var var
P: TPasElement; P: TPasElement;