Переглянути джерело

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