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

* fixed previous commit

Browse Source 
git-svn-id: trunk@2364 -
This commit is contained in:
florian 2006-01-28 22:42:34 +00:00
parent 826b5cf34a
commit e75d5ac47c
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/dbgdwarf.pas
View File

@ -581,7 +581,7 @@ implementation
procedure TDebugInfoDwarf.append_dwarftag(list:taasmoutput;def:tdef); procedure TDebugInfoDwarf.append_dwarftag(list:taasmoutput;def:tdef);
procedure append_dwarftag_orddef(list:taasmoutput;def:torddef); procedure append_dwarftag_orddef(def:torddef);
begin begin
case def.typ of case def.typ of
s8bit, s8bit,
@ -737,13 +737,13 @@ implementation
DW_AT_byte_size,DW_FORM_data1,8 DW_AT_byte_size,DW_FORM_data1,8
]); ]);
else else
internalerror(2006012819); internalerror(200601289);
end; end;
finish_entry; finish_entry;
end; end;
procedure append_dwarftag_enumdef(list:taasmoutput;def:tenumdef); procedure append_dwarftag_enumdef(def:tenumdef);
var var
hp : tenumsym; hp : tenumsym;
begin begin
@ -784,19 +784,20 @@ implementation
result:=stringdef_stabstr(tstringdef(def)); result:=stringdef_stabstr(tstringdef(def));
} }
enumdef : enumdef :
append_dwarftag_enumdef(list,tenumdef(def)); append_dwarftag_enumdef(tenumdef(def));
orddef : orddef :
append_dwarftag_orddef(list,torddef(def)); append_dwarftag_orddef(torddef(def));
pointerdef : pointerdef :
begin begin
append_entry(DW_TAG_pointer_type,false,[]); append_entry(DW_TAG_pointer_type,false,[]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(tpointerdef(def).pointertype.def)); append_labelentry_ref(DW_AT_type,def_dwarf_lab(tpointerdef(def).pointertype.def));
end; end;
{
floatdef : floatdef :
result:=floatdef_stabstr(tfloatdef(def)); append_dwarftag_floatdef(tfloatdef(def));
{
filedef : filedef :
result:=filedef_stabstr(tfiledef(def)); result:=filedef_stabstr(tfiledef(def));
recorddef : recorddef :
@ -1310,6 +1311,9 @@ implementation
typesym : typesym :
stabstr:=typesym_stabstr(ttypesym(sym)); stabstr:=typesym_stabstr(ttypesym(sym));
} }
enumsym :
{ ignore enum syms, they are written by the owner }
;
else else
internalerror(200601242); internalerror(200601242);
end; end;