mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 12:39:25 +02:00
* Patch from Ondrej Pokorny, fixing range error
git-svn-id: trunk@35519 -
This commit is contained in:
parent
529dc18ba7
commit
d2a1e8f9de
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user