瀏覽代碼

* fixed range check errors

git-svn-id: trunk@5432 -
Jonas Maebe 18 年之前
父節點
當前提交
c54e49d428
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/dbgdwarf.pas

+ 2 - 2
compiler/dbgdwarf.pas

@@ -1961,7 +1961,7 @@ implementation
         current_asmdata.getlabel(lbl,alt_dbgfile);
         if use_64bit_headers then
           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,
               lbl,current_asmdata.RefAsmSymbol('.Ledebug_line0')));
           end
@@ -2146,7 +2146,7 @@ implementation
         { size }
         if use_64bit_headers then
           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,
               lenstartlabel,current_asmdata.RefAsmSymbol('.Ledebug_info0')));
           end