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

* fixed (harmless) range check error

Browse Source 
git-svn-id: trunk@12701 -
This commit is contained in:
Jonas Maebe 2009-02-07 20:43:18 +00:00
parent eee1525de8
commit 1c82b105fa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/dbgdwarf.pas
View File

@ -1454,7 +1454,7 @@ implementation
finish_entry; finish_entry;
append_entry(DW_TAG_subrange_type,false,[ append_entry(DW_TAG_subrange_type,false,[
DW_AT_lower_bound,DW_FORM_udata,0, DW_AT_lower_bound,DW_FORM_udata,0,
DW_AT_upper_bound,DW_FORM_udata,slen DW_AT_upper_bound,DW_FORM_udata,int64(slen)
]); ]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(lendef)); append_labelentry_ref(DW_AT_type,def_dwarf_lab(lendef));
finish_entry; finish_entry;