* do not perform stabstr replacements on mangled names of typed constants

(fixes stabs after r20842)

git-svn-id: trunk@20855 -
This commit is contained in:
Jonas Maebe 2012-04-12 16:13:27 +00:00
parent e9d52f7b95
commit 210eac085a

View File

@ -1209,7 +1209,7 @@ implementation
but searches the same name or with a leading underscore
but these names don't exist in pascal !}
st:='S'+st;
ss:=sym_stabstr_evaluate(sym,'"${name}:$1",'+base_stabs_str(nsym,'0','${line}',staticvarsym_mangled_name(sym)+'$2'),[st,threadvaroffset]);
ss:=sym_stabstr_evaluate(sym,'"${name}:$1",'+base_stabs_str(nsym,'0','${line}','$2$3'),[st,staticvarsym_mangled_name(sym),threadvaroffset]);
end;
end;
write_sym_stabstr(list,sym,ss);