paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 00:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use use_tag_types everywhere to get consistent results for 'Tt' versus 't' for stabs for string definitions

Browse Source 
git-svn-id: trunk@42199 -
This commit is contained in:
pierre 2019-06-09 20:59:06 +00:00
parent fe99252a9b
commit 14b9032ef2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/dbgstabs.pas
View File

@ -1642,7 +1642,7 @@ implementation
ss:='';
if not assigned(sym.typedef) then
internalerror(200509262);
if sym.typedef.typ in tagtypes then
if use_tag_prefix(sym.typedef) then
stabchar:=tagtypeprefix
else
stabchar:='t';

2
compiler/dbgstabx.pas
View File

@ -158,7 +158,7 @@ implementation
declstabnr:=def_stab_number(def)
end;
if (symname='') or
not(def.typ in tagtypes) then
not(use_tag_types(def)) then
begin
st:=def_stabstr_evaluate(def,':$1$2=',[stabchar,declstabnr]);
st:='"'+def_stabstr_evaluate(def,symname,[])+st+ss;