- 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 -
This commit is contained in:
nickysn 2021-06-01 15:36:01 +00:00
parent f59aab1371
commit 5085a04930

View File

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