浏览代码

fmodule.pas, tmodule:
* reset: also free and reinstantiate unitimportsyms

git-svn-id: trunk@33685 -

svenbarth 9 年之前
父节点
当前提交
a67fe62caa
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/fmodule.pas

+ 2 - 0
compiler/fmodule.pas

@@ -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