paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 16:41:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
(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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/dbgstabs.pas
View File

@ -1209,7 +1209,7 @@ implementation
but searches the same name or with a leading underscore but searches the same name or with a leading underscore
but these names don't exist in pascal !} but these names don't exist in pascal !}
st:='S'+st; 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;
end; end;
write_sym_stabstr(list,sym,ss); write_sym_stabstr(list,sym,ss);