浏览代码

* fixed IE in case of trying to (un)pack an array of 0-byte records

git-svn-id: trunk@6631 -
Jonas Maebe 18 年之前
父节点
当前提交
cc1dfcae7e
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      compiler/ninl.pas

+ 4 - 0
compiler/ninl.pas

@@ -1319,6 +1319,10 @@ implementation
           set_varstate(target.left,vs_written,[]);
           { index in the unpacked array is read and must be valid }
           set_varstate(index.left,vs_read,[vsf_must_be_valid]);
+          { if the size of the arrays is 0 (array of empty records), }
+          { do nothing                                               }
+          if (source.resultdef.size = 0) then
+            result:=cnothingnode.create;
         end;