From 14b9032ef20280b1aaad294013509daedd81bb2b Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 9 Jun 2019 20:59:06 +0000
Subject: [PATCH] Use use_tag_types everywhere to get consistent results for
'Tt' versus 't' for stabs for string definitions
git-svn-id: trunk@42199 -
---
compiler/dbgstabs.pas | 2 +-
compiler/dbgstabx.pas | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/compiler/dbgstabs.pas b/compiler/dbgstabs.pas
index b3bee7c0cb..abecd63d4c 100644
--- a/compiler/dbgstabs.pas
+++ b/compiler/dbgstabs.pas
@@ -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';
diff --git a/compiler/dbgstabx.pas b/compiler/dbgstabx.pas
index 08f214af66..149924a8b1 100644
--- a/compiler/dbgstabx.pas
+++ b/compiler/dbgstabx.pas
@@ -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;