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

git-svn-id: trunk@6631 -
This commit is contained in:
Jonas Maebe 2007-02-24 17:03:04 +00:00
parent 89ad4a083c
commit cc1dfcae7e

View File

@ -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;