Преглед изворни кода

* fixed range check error when writing const pointers > high(longint)

git-svn-id: trunk@11879 -
Jonas Maebe пре 17 година
родитељ
комит
c0ccf21c28
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/dbgdwarf.pas

+ 1 - 1
compiler/dbgdwarf.pas

@@ -1974,7 +1974,7 @@ implementation
               current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_64bit(int64(sym.value.valueordptr)));
               current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_64bit(int64(sym.value.valueordptr)));
 {$else cpu64bitaddr}
 {$else cpu64bitaddr}
               current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_FORM_data4)));
               current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_FORM_data4)));
-              current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_32bit(sym.value.valueordptr));
+              current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_32bit(longint(sym.value.valueordptr)));
 {$endif cpu64bitaddr}
 {$endif cpu64bitaddr}
             end;
             end;
           constreal:
           constreal: