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

* fixed range check errors

Browse Source 
git-svn-id: trunk@5432 -
This commit is contained in:
Jonas Maebe 2006-11-20 13:15:30 +00:00
parent d294359999
commit c54e49d428
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/dbgdwarf.pas
View File

@ -1961,7 +1961,7 @@ implementation
current_asmdata.getlabel(lbl,alt_dbgfile); current_asmdata.getlabel(lbl,alt_dbgfile);
if use_64bit_headers then if use_64bit_headers then
begin begin
linelist.concat(tai_const.create_32bit($FFFFFFFF)); linelist.concat(tai_const.create_32bit(longint($FFFFFFFF)));
linelist.concat(tai_const.create_rel_sym(aitconst_64bit, linelist.concat(tai_const.create_rel_sym(aitconst_64bit,
lbl,current_asmdata.RefAsmSymbol('.Ledebug_line0'))); lbl,current_asmdata.RefAsmSymbol('.Ledebug_line0')));
end end
@ -2146,7 +2146,7 @@ implementation
{ size } { size }
if use_64bit_headers then if use_64bit_headers then
begin begin
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_32bit($FFFFFFFF)); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_32bit(longint($FFFFFFFF)));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_rel_sym(aitconst_64bit, current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_rel_sym(aitconst_64bit,
lenstartlabel,current_asmdata.RefAsmSymbol('.Ledebug_info0'))); lenstartlabel,current_asmdata.RefAsmSymbol('.Ledebug_info0')));
end end