* Patch from Ondrej Pokorny, fixing range error

git-svn-id: trunk@35519 -
This commit is contained in:
michael 2017-03-04 14:24:12 +00:00
parent 529dc18ba7
commit d2a1e8f9de

View File

@ -1092,7 +1092,7 @@ begin
// update head.ChecksumAdjustment field
head.Seek(8, soBeginning);
WriteInt32(head, checksum);
WriteInt32(head, Int32(checksum));
// write table bodies
WriteTableBodies(AStream, tables);