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

fmodule.pas, tmodule:

Browse Source 
* reset: also free and reinstantiate unitimportsyms

git-svn-id: trunk@33685 -
This commit is contained in:
svenbarth 2016-05-13 14:51:02 +00:00
parent 94d8d9927d
commit a67fe62caa
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/fmodule.pas
View File

@ -774,6 +774,8 @@ implementation
wpoinfo:=nil; wpoinfo:=nil;
checkforwarddefs.free; checkforwarddefs.free;
checkforwarddefs:=TFPObjectList.Create(false); checkforwarddefs:=TFPObjectList.Create(false);
unitimportsyms.free;
unitimportsyms:=TFPObjectList.Create(false);
derefdata.free; derefdata.free;
derefdata:=TDynamicArray.Create(1024); derefdata:=TDynamicArray.Create(1024);
if assigned(unitmap) then if assigned(unitmap) then