瀏覽代碼

- removed the (deflist[i] is tdef) check from the tmodule destructor, since
only tdef descendants are added to the deflist and casting deflist entries to
tdef directly appears to be safe and is done in other parts of the compiler

git-svn-id: trunk@49428 -

nickysn 4 年之前
父節點
當前提交
5085a04930
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/fmodule.pas

+ 1 - 1
compiler/fmodule.pas

@@ -734,7 +734,7 @@ implementation
         if assigned(deflist) then
           begin
             for i:=0 to deflist.Count-1 do
-              if assigned(deflist[i]) and (deflist[i] is tdef) and
+              if assigned(deflist[i]) and
                  (tdef(deflist[i]).registered_in_module=self) then
                 tdef(deflist[i]).registered_in_module:=nil;
             deflist.free;