paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-30 20:53:44 +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 append_dwarftag_orddef(list:taasmoutput;def:torddef);
procedure append_dwarftag_orddef(def:torddef);
begin
case def.typ of
s8bit,
@ -737,13 +737,13 @@ implementation
DW_AT_byte_size,DW_FORM_data1,8
]);
else
internalerror(2006012819);
internalerror(200601289);
end;
finish_entry;
end;
procedure append_dwarftag_enumdef(list:taasmoutput;def:tenumdef);
procedure append_dwarftag_enumdef(def:tenumdef);
var
hp : tenumsym;
begin
@ -784,19 +784,20 @@ implementation
result:=stringdef_stabstr(tstringdef(def));
}
enumdef :
append_dwarftag_enumdef(list,tenumdef(def));
append_dwarftag_enumdef(tenumdef(def));
orddef :
append_dwarftag_orddef(list,torddef(def));
append_dwarftag_orddef(torddef(def));
pointerdef :
begin
append_entry(DW_TAG_pointer_type,false,[]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(tpointerdef(def).pointertype.def));
end;
{
floatdef :
result:=floatdef_stabstr(tfloatdef(def));
append_dwarftag_floatdef(tfloatdef(def));
{
filedef :
result:=filedef_stabstr(tfiledef(def));
recorddef :
@ -1310,6 +1311,9 @@ implementation
typesym :
stabstr:=typesym_stabstr(ttypesym(sym));
}
enumsym :
{ ignore enum syms, they are written by the owner }
;
else
internalerror(200601242);
end;