Bladeren bron

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

git-svn-id: trunk@36248 -
Mattias Gaertner 8 jaren geleden
bovenliggende
commit
aa6529f617
1 gewijzigde bestanden met toevoegingen van 1 en 0 verwijderingen
  1. 1 0
      packages/fcl-passrc/src/pparser.pp

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

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