paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 03:39:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: clean up

Browse Source 
git-svn-id: trunk@39454 -
This commit is contained in:
Mattias Gaertner 2018-07-15 22:27:49 +00:00
parent 127c3eccb8
commit 6d9cac3d1c
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -563,10 +563,6 @@ type
end;
TPCUFilerElementRefArray = array of TPCUFilerElementRef;
TPCUFilerElementRef2 = class(TPCUFilerElementRef)
s: string;
end;
{ TPCUFiler - base class TPCUWriter/TPCUReader}
TPCUFiler = class
@ -4611,8 +4607,7 @@ begin
end
else
begin
Ref:=TPCUFilerElementRef2.Create;
TPCUFilerElementRef2(Ref).s:=IntToStr(Id);
Ref:=TPCUFilerElementRef.Create;
Ref.Id:=Id;
end;
{$IF defined(VerbosePCUFiler) or defined(memcheck)}
@ -4631,7 +4626,7 @@ begin
{$IF defined(VerbosePCUFiler) or defined(memcheck)}
Node:=FElementRefs.FindKey(El,@CompareElWithPCUFilerElementRef);
if Node<>nil then
RaiseMsg(20180711231646,El,GetObjName(TPCUFilerElementRef2(Node.Data).Element));
RaiseMsg(20180711231646,El,GetObjName(TPCUFilerElementRef(Node.Data).Element));
{$ENDIF}
FElementRefs.Add(Ref);