mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-08 10:39:29 +02:00
- 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:
parent
f59aab1371
commit
5085a04930
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user