Pārlūkot izejas kodu

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

git-svn-id: trunk@11879 -
Jonas Maebe 17 gadi atpakaļ
vecāks
revīzija
c0ccf21c28
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  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)));
 {$else cpu64bitaddr}
               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}
             end;
           constreal: