Parcourir la 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 il y a 4 ans
Parent
commit
5085a04930
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  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;