paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 20:06:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* started to fix setdef writing for dwarf

Browse Source 
* some missing finish_entry inserted

git-svn-id: trunk@2369 -
This commit is contained in:
florian 2006-01-28 23:52:39 +00:00
parent 2b059f925f
commit b4946c6dc9
1 changed files with 5 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/dbgdwarf.pas
View File

@ -791,6 +791,7 @@ implementation
begin
append_entry(DW_TAG_pointer_type,false,[]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(tpointerdef(def).pointertype.def));
finish_entry;
end;
floatdef :
@ -808,16 +809,16 @@ implementation
setdef :
begin
if assigned(def.typesym) then
append_entry(DW_TAG_enumeration_type,true,[
append_entry(DW_TAG_set_type,false,[
DW_AT_name,DW_FORM_string,def.typesym.name+#0,
DW_AT_byte_size,DW_FORM_data1,def.size
])
else
append_entry(DW_TAG_enumeration_type,true,[
append_entry(DW_TAG_set_type,false,[
DW_AT_byte_size,DW_FORM_data1,def.size
]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(tsetdef(def).elementtype.def));
finish_entry
finish_entry;
end;
{
formaldef :
@ -1270,22 +1271,6 @@ implementation
}
end;
function typesym_stabstr(sym:ttypesym) : pchar;
var
stabchar : string[2];
begin
{
result:=nil;
if not assigned(sym.restype.def) then
internalerror(200509262);
if sym.restype.def.deftype in tagtypes then
stabchar:='Tt'
else
stabchar:='t';
result:=sym_stabstr_evaluate(sym,'"${name}:$1$2",${N_LSYM},0,${line},0',[stabchar,def_stab_number(sym.restype.def)]);
}
end;
procedure append_procsym(sym:tprocsym);
var
@ -1327,6 +1312,7 @@ implementation
DW_AT_name,DW_FORM_string,sym.name+#0
]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(ttypesym(sym).restype.def));
finish_entry;
end;
enumsym :
{ ignore enum syms, they are written by the owner }