瀏覽代碼

* an int2int type conversion doesn't retain the value location in
case of a bitpacked access

git-svn-id: trunk@14911 -

Jonas Maebe 15 年之前
父節點
當前提交
650ba6d50f
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/ncnv.pas

+ 1 - 0
compiler/ncnv.pas

@@ -3004,6 +3004,7 @@ implementation
                 (
                 (
                  (convtype=tc_int_2_int) and
                  (convtype=tc_int_2_int) and
                  (
                  (
+                  not is_bitpacked_access(left) and
                   (resultdef.size=left.resultdef.size) or
                   (resultdef.size=left.resultdef.size) or
                   ((m_tp7 in current_settings.modeswitches) and
                   ((m_tp7 in current_settings.modeswitches) and
                    (resultdef.size<left.resultdef.size))
                    (resultdef.size<left.resultdef.size))