paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 21:30:50 +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; i: integer;
cid, gid: uint16; cid, gid: uint16;
ba: TBytes; ba: TBytes;
lMaxCharID: integer; lMaxCID: integer;
begin begin
lst := Document.Fonts[FontNum].TextMapping; lst := Document.Fonts[FontNum].TextMapping;
lst.Sort; lst.Sort;
lMaxCharID := lst.GetMaxCharID; lMaxCID := lst.GetMaxGlyphID;
SetLength(ba, (lMaxCharID * 2)+1); SetLength(ba, (lMaxCID + 1)*2);
// initialize array to 0's // initialize array to 0's
for i := 0 to Length(ba)-1 do for i := 0 to Length(ba)-1 do
ba[i] := 0; ba[i] := 0;