Browse Source

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

git-svn-id: trunk@6631 -
Jonas Maebe 18 years ago
parent
commit
cc1dfcae7e
1 changed files with 4 additions and 0 deletions
  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;