paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 16:27:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

freetype: Fix range-check error when compiled with range-check on.

Browse Source
This commit is contained in:
wp_xyz 2022-10-25 17:54:07 +02:00
parent f4b383884d
commit 78225565ce
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/freetype/easylazfreetype.pas
View File

@ -2017,6 +2017,8 @@ begin
(nrLanguageID=0)) then
begin
value := TT_Get_Name_String(FFace, i);
if value <> '' then
begin
for j := 1 to length(value) div 2 do
pword(@value[j*2-1])^ := BEtoN(pword(@value[j*2-1])^);
setlength(value2, 3*(length(value) div 2) + 1); //maximum is 3-byte chars and NULL char at the end
@ -2026,6 +2028,7 @@ begin
setlength(value2, len-1 );
value := value2;
end;
end;
FNamesArray[nrNameID] := value;
end;
end;