mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 23:39:31 +02:00
* 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:
parent
89ad4a083c
commit
cc1dfcae7e
@ -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;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user