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

+ support for subrange types in dwarf (allows proper printing of packed

Browse Source 
sets of subrange types)

git-svn-id: trunk@10532 -
This commit is contained in:
Jonas Maebe 2008-03-22 11:49:05 +00:00
parent f701162712
commit 3d97db7976
1 changed files with 63 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
compiler/dbgdwarf.pas
View File

@ -1029,7 +1029,10 @@ implementation
procedure TDebugInfoDwarf.appenddef_ord(list:TAsmList;def:torddef);
var
sign: tdwarf_type;
basedef : tdef;
sign : tdwarf_type;
signform : tdwarf_form;
fullbytesize : byte;
begin
case def.ordtype of
s8bit,
@ -1044,21 +1047,67 @@ implementation
{ because otherwise they are interpreted wrongly when used }
{ in a bitpacked record }
if (def.low<0) then
sign:=DW_ATE_signed
begin
sign:=DW_ATE_signed;
signform:=DW_FORM_sdata
end
else
sign:=DW_ATE_unsigned;
{ we should generate a subrange type here }
if assigned(def.typesym) then
append_entry(DW_TAG_base_type,false,[
DW_AT_name,DW_FORM_string,symname(def.typesym)+#0,
DW_AT_encoding,DW_FORM_data1,sign,
DW_AT_byte_size,DW_FORM_data1,def.size
])
begin
sign:=DW_ATE_unsigned;
signform:=DW_FORM_udata
end;
fullbytesize:=def.size;
case fullbytesize of
1:
if (sign=DW_ATE_signed) then
basedef:=s8inttype
else
basedef:=u8inttype;
2:
if (sign=DW_ATE_signed) then
basedef:=s16inttype
else
basedef:=u16inttype;
4:
if (sign=DW_ATE_signed) then
basedef:=s32inttype
else
basedef:=u32inttype;
else
internalerror(2008032201);
end;
if (def.low=torddef(basedef).low) and
(def.high=torddef(basedef).high) then
{ base type such as byte/shortint/word/... }
if assigned(def.typesym) then
append_entry(DW_TAG_base_type,false,[
DW_AT_name,DW_FORM_string,symname(def.typesym)+#0,
DW_AT_encoding,DW_FORM_data1,sign,
DW_AT_byte_size,DW_FORM_data1,fullbytesize])
else
append_entry(DW_TAG_base_type,false,[
DW_AT_encoding,DW_FORM_data1,sign,
DW_AT_byte_size,DW_FORM_data1,fullbytesize])
else
append_entry(DW_TAG_base_type,false,[
DW_AT_encoding,DW_FORM_data1,sign,
DW_AT_byte_size,DW_FORM_data1,def.size
]);
begin
{ subrange type }
{ note: don't do this 64 bit int types, they appear }
{ to be always clipped to s32bit for some reason }
if assigned(def.typesym) then
append_entry(DW_TAG_subrange_type,false,[
DW_AT_name,DW_FORM_string,symname(def.typesym)+#0,
DW_AT_lower_bound,signform,int64(def.low),
DW_AT_upper_bound,signform,int64(def.high)
])
else
append_entry(DW_TAG_subrange_type,false,[
DW_AT_lower_bound,signform,int64(def.low),
DW_AT_upper_bound,signform,int64(def.high)
]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(basedef));
end;
finish_entry;
end;
uvoid :