paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 08:19:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* enumeration sym names need trailing #0

Browse Source 
git-svn-id: trunk@2365 -
This commit is contained in:
florian 2006-01-28 22:46:18 +00:00
parent e75d5ac47c
commit 97b135f5cd
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/dbgdwarf.pas
View File

@ -401,14 +401,12 @@ implementation
DW_OP_HP_unmod_range := $e5,DW_OP_HP_tls := $e6
);
const
{ Implementation-defined range start. }
DW_OP_lo_user = $e0;
{ Implementation-defined range end. }
DW_OP_hi_user = $ff;
function TDebugInfoDwarf.def_dwarf_lab(def:tdef) : tasmsymbol;
begin
{ procdefs only need a number, mark them as already written
@ -765,7 +763,7 @@ implementation
while assigned(hp) do
begin
append_entry(DW_TAG_enumerator,false,[
DW_AT_name,DW_FORM_string,hp.name,
DW_AT_name,DW_FORM_string,hp.name+#0,
DW_AT_const_value,DW_FORM_data4,hp.value
]);
finish_entry;