paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 09:19:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Ondrej Pokorny, fixing range error

Browse Source 
git-svn-id: trunk@35519 -
This commit is contained in:
michael 2017-03-04 14:24:12 +00:00
parent 529dc18ba7
commit d2a1e8f9de
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-pdf/src/fpttfsubsetter.pp
View File

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