* fixed typecast in tmodule.destroy after r49426, since registered_in_module is introduced in tdef, not in tstoreddef

git-svn-id: trunk@49427 -

compiler/fmodule.pas

@@ -299,7 +299,7 @@ implementation
       SysUtils,globals,
       verbose,systems,
       scanner,ppu,dbgbase,
-      procinfo,symdef;
+      procinfo,symdef,symtype;
 
 {$ifdef MEMDEBUG}
     var
@@ -734,9 +734,9 @@ implementation
         if assigned(deflist) then
           begin
             for i:=0 to deflist.Count-1 do
-              if assigned(deflist[i]) and (deflist[i] is tstoreddef) and
-                 (tstoreddef(deflist[i]).registered_in_module=self) then
-                tstoreddef(deflist[i]).registered_in_module:=nil;
+              if assigned(deflist[i]) and (deflist[i] is tdef) and
+                 (tdef(deflist[i]).registered_in_module=self) then
+                tdef(deflist[i]).registered_in_module:=nil;
             deflist.free;
           end;
         symlist.free;