Browse Source

* also use typename in rtti label for staticsymtable

git-svn-id: trunk@5291 -
peter 19 years ago
parent
commit
e96b5f0152
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

@@ -923,7 +923,7 @@ implementation
         else
         else
           prefix:='INIT';
           prefix:='INIT';
         if assigned(typesym) and
         if assigned(typesym) and
-           (owner.symtabletype=globalsymtable) then
+           (owner.symtabletype in [staticsymtable,globalsymtable]) then
           result:=make_mangledname(prefix,owner,typesym.name)
           result:=make_mangledname(prefix,owner,typesym.name)
         else
         else
           result:=make_mangledname(prefix,findunitsymtable(owner),'DEF'+tostr(DefId))
           result:=make_mangledname(prefix,findunitsymtable(owner),'DEF'+tostr(DefId))