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

------------------------------------------------------------------------

Browse Source 
r42199 | pierre | 2019-06-09 20:59:06 +0000 (Sun, 09 Jun 2019) | 1 line

 Use use_tag_types everywhere to get consistent results for 'Tt' versus 't' for stabs for string definitions
------------------------------------------------------------------------
--- Merging r42199 into '.':
U    compiler/dbgstabs.pas
U    compiler/dbgstabx.pas
--- Recording mergeinfo for merge of r42199 into '.':
 U   .

git-svn-id: branches/fixes_3_2@49422 -
This commit is contained in:
pierre 2021-05-31 21:03:29 +00:00
parent 9cd5a5b916
commit 180f6541bd
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

@ -1634,7 +1634,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;