paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #34060, using provided patch by Petr-K

Browse Source 
git-svn-id: trunk@39527 -
This commit is contained in:
michael 2018-07-30 13:43:46 +00:00
parent 7c0eec6a3f
commit b4ea525215
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-pdf/src/fppdf.pp
View File

@ -4111,12 +4111,12 @@ var
i: integer;
cid, gid: uint16;
ba: TBytes;
lMaxCharID: integer;
lMaxCID: integer;
begin
lst := Document.Fonts[FontNum].TextMapping;
lst.Sort;
lMaxCharID := lst.GetMaxCharID;
SetLength(ba, (lMaxCharID * 2)+1);
lMaxCID := lst.GetMaxGlyphID;
SetLength(ba, (lMaxCID + 1)*2);
// initialize array to 0's
for i := 0 to Length(ba)-1 do
ba[i] := 0;