paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 14:52:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: clean up

Browse Source 
git-svn-id: trunk@47721 -
(cherry picked from commit bc88571884)
This commit is contained in:
Mattias Gaertner 2020-12-08 11:52:07 +00:00 committed by Florian Klämpfl
parent b6f8316cbb
commit b8ec5876ac
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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;