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

* reverted setdef change which got accidentally committed in r6573

Browse Source 
git-svn-id: trunk@6585 -
This commit is contained in:
Jonas Maebe 2007-02-21 11:48:54 +00:00
parent 65ff50533e
commit 41bf70cf2a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/dbgdwarf.pas
View File

@ -2728,15 +2728,16 @@ implementation
http://sources.redhat.com/ml/gdb-patches/2005-05/msg00278.html (FK) } http://sources.redhat.com/ml/gdb-patches/2005-05/msg00278.html (FK) }
if assigned(def.typesym) then if assigned(def.typesym) then
append_entry(DW_TAG_set_type,false,[ append_entry(DW_TAG_base_type,false,[
DW_AT_name,DW_FORM_string,symname(def.typesym)+#0, DW_AT_name,DW_FORM_string,symname(def.typesym)+#0,
DW_AT_encoding,DW_FORM_data1,DW_ATE_unsigned,
DW_AT_byte_size,DW_FORM_data2,def.size DW_AT_byte_size,DW_FORM_data2,def.size
]) ])
else else
append_entry(DW_TAG_set_type,false,[ append_entry(DW_TAG_base_type,false,[
DW_AT_encoding,DW_FORM_data1,DW_ATE_unsigned,
DW_AT_byte_size,DW_FORM_data2,def.size DW_AT_byte_size,DW_FORM_data2,def.size
]); ]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(def.elementdef));
finish_entry; finish_entry;
end; end;