Răsfoiți Sursa

fcl-passrc: fixed ref count parsing package unit, bug #31872, patch from Andrey Zubarev

git-svn-id: trunk@36248 -
Mattias Gaertner 8 ani în urmă
părinte
comite
aa6529f617
1 a modificat fișierele cu 1 adăugiri și 0 ștergeri
  1. 1 0
      packages/fcl-passrc/src/pparser.pp

+ 1 - 0
packages/fcl-passrc/src/pparser.pp

@@ -2601,6 +2601,7 @@ begin
       begin
       Module.PackageName := Engine.Package.Name;
       Engine.Package.Modules.Add(Module);
+      Module.AddRef;
       end;
     CheckHint(Module,True);
 //    ExpectToken(tkSemicolon);