Browse Source

- 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 năm trước cách đây
mục cha
commit
5085a04930
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  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;