Răsfoiți Sursa

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

git-svn-id: trunk@42199 -
pierre 6 ani în urmă
părinte
comite
14b9032ef2
2 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  1. 1 1
      compiler/dbgstabs.pas
  2. 1 1
      compiler/dbgstabx.pas

+ 1 - 1
compiler/dbgstabs.pas

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

+ 1 - 1
compiler/dbgstabx.pas

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