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 years ago
parent
commit
5085a04930
1 changed files with 1 additions and 1 deletions
  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;