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

Do not consider ansi/wide/unicode strings as taggable for stabs

Browse Source 
git-svn-id: trunk@27637 -
This commit is contained in:
pierre 2014-04-22 22:32:14 +00:00
parent aa3f450832
commit 0d3bccaa1b
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/dbgstabs.pas
View File

@ -76,6 +76,7 @@ interface
global_stab_number : word;
vardatadef: trecorddef;
tagtypeprefix: ansistring;
function use_tag_prefix(def : tdef) : boolean;
{ tsym writing }
function sym_var_value(const s:string;arg:pointer):string;
function sym_stabstr_evaluate(sym:tsym;const s:string;const vars:array of string):ansistring;
@ -551,6 +552,16 @@ implementation
appenddef(TAsmList(arg),tfieldvarsym(p).vardef);
end;
function TDebugInfoStabs.use_tag_prefix(def : tdef) : boolean;
begin
{ stringdefs are not all considered as 'taggable',
because ansi, unicode and wide strings are
just associated to pointer types }
use_tag_prefix:=(def.typ in tagtypes) and
((def.typ<>stringdef) or
(tstringdef(tdef).stringtype in [st_shortstring,st_longstring]));
end;
procedure TDebugInfoStabs.write_def_stabstr(list:TAsmList;def:tdef;const ss:ansistring);
var
@ -559,7 +570,7 @@ implementation
st : ansistring;
begin
{ type prefix }
if def.typ in tagtypes then
if use_tag_prefix(def) then
stabchar := tagtypeprefix
else
stabchar := 't';

2
compiler/dbgstabx.pas
View File

@ -132,7 +132,7 @@ implementation
st : ansistring;
begin
{ type prefix }
if def.typ in tagtypes then
if use_tag_prefix(def) then
stabchar := tagtypeprefix
else
stabchar := 't';