paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 11:58:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
(cherry picked from commit 78225565ce)
This commit is contained in:
wp_xyz 2022-10-25 17:54:07 +02:00 committed by Maxim Ganetsky
parent a414fc5c19
commit f933c75d91
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/freetype/easylazfreetype.pas
View File

@ -2014,14 +2014,17 @@ begin
(nrLanguageID=0)) then
begin
value := TT_Get_Name_String(FFace, i);
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
len := system.UnicodeToUtf8(@value2[1],length(value2),PUnicodeChar( @value[1] ),length(value) div 2);
if len > 0 then
if value <> '' then
begin
setlength(value2, len-1 );
value := value2;
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
len := system.UnicodeToUtf8(@value2[1],length(value2),PUnicodeChar( @value[1] ),length(value) div 2);
if len > 0 then
begin
setlength(value2, len-1 );
value := value2;
end;
end;
FNamesArray[nrNameID] := value;
end;