浏览代码

* change address related variables from aint to PInt to avoid range check errors

git-svn-id: trunk@33701 -
florian 9 年之前
父节点
当前提交
35b18fbf85
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/dbgdwarf.pas

+ 2 - 2
compiler/dbgdwarf.pas

@@ -1683,8 +1683,8 @@ implementation
 
     procedure TDebugInfoDwarf.appenddef_array(list:TAsmList;def:tarraydef);
       var
-        size : aint;
-        elesize : aint;
+        size : PInt;
+        elesize : PInt;
         elestrideattr : tdwarf_attribute;
         labsym: tasmlabel;
       begin