Browse Source

fcl-passrc: fixed compile

git-svn-id: trunk@43146 -
Mattias Gaertner 5 years ago
parent
commit
b8350cc932
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-passrc/src/pastree.pp

+ 1 - 1
packages/fcl-passrc/src/pastree.pp

@@ -1780,7 +1780,7 @@ begin
   FreeAndNil(GenericTemplateTypes);
   FreeAndNil(GenericTemplateTypes);
 end;
 end;
 
 
-procedure ReleaseElementList(ElList: TFPList; const Id: string);
+procedure ReleaseElementList(ElList: TFPList{$IFDEF CheckPasTreeRefCount}; const Id: string{$ENDIF});
 var
 var
   i: Integer;
   i: Integer;
   El: TPasElement;
   El: TPasElement;